以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  【已解决】[求助]NavBar这个空间的代码怎么用?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=134911)

--  作者:zto001
--  发布时间:2019/5/12 18:19:00
--  【已解决】[求助]NavBar这个空间的代码怎么用?
[求助]NavBar这个空间的代码怎么用?
帮助文档里面说的太简单了,没看懂。

比如我有个NavBar1,需要通过代码创建页面“页面A”“页面V”这两个页面,怎么写代码?
[此贴子已经被作者于2019/5/13 8:28:22编辑过]

--  作者:有点甜
--  发布时间:2019/5/12 21:18:00
--  

参考这里

 

http://www.foxtable.com/webhelp/scr/0873.htm

 


--  作者:zto001
--  发布时间:2019/5/13 8:28:00
--  
Dim Bar As WinForm.NavBar
Dim Page1 As WinForm.NavPage
Bar = Forms("全局").Controls("NavBar1")
Page1 = Bar.NavPages.Add("页面名称","按钮标题","路径.ico")  \'增加页面  
Page1 = Bar.NavPages.Insert("Task","标70题","002.ico",7)   \'增加到指定位置
Bar.NavPages.Delete("页面名称")   \'删除指定名称页面
Bar.NavPages.Delete(0)   \'删除指定位置页面
Bar.NavPages.Clear   \'清楚所有页面
MessageBox.Show( Bar.NavPages.Count )   \'返回页面数量