【已解决】[求助]NavBar这个空间的代码怎么用？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有1673人关注过本帖树形打印复制链接主题：【已解决】[求助]NavBar这个空间的代码怎么用？

zto001

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：六尾狐帖子：1465 积分：10397 威望：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编辑过]

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/5/12 21:18:00 [只看该作者]

参考这里

zto001

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：六尾狐帖子：1465 积分：10397 威望：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 ) '返回页面数量

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