Foxtable(狐表)用户栏目专家坐堂 → 【已解决】[求助]NavBar这个空间的代码怎么用?


  共有2153人关注过本帖树形打印复制链接

主题:【已解决】[求助]NavBar这个空间的代码怎么用?

帅哥哟,离线,有人找我吗?
zto001
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1486 积分:10582 威望:0 精华:0 注册:2018/10/16 11:42:00
【已解决】[求助]NavBar这个空间的代码怎么用?  发帖心情 Post By:2019/5/12 18:19:00 [显示全部帖子]

[求助]NavBar这个空间的代码怎么用?
帮助文档里面说的太简单了,没看懂。

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

 回到顶部
帅哥哟,离线,有人找我吗?
zto001
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1486 积分:10582 威望:0 精华:0 注册:2018/10/16 11:42:00
  发帖心情 Post By: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 )   '返回页面数量

 回到顶部