导航栏显示的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 导航栏显示的问题

共有4268人关注过本帖树形打印复制链接主题：导航栏显示的问题

有点甜

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

加好友

发短信

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

Post By：2015/2/10 15:39:00 [显示全部帖子]

没领会你的意思，导航栏控件不会有此问题，例子上传上来。

有点甜

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

加好友

发短信

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

Post By：2015/2/10 15:54:00 [显示全部帖子]

Dim nv As WinForm.NavBar = e.Form.Controls ("navbar1")
nv.NavPages("任务").Visible = False
nv.SelectedPage = nv.NavPages("日历")

有点甜

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

加好友

发短信

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

Post By：2015/2/10 16:08:00 [显示全部帖子]

要写到timertick事件

Dim nv As WinForm.NavBar = e.Form.Controls ("navbar1")
nv.NavPages("任务").Visible = False
nv.SelectedPage = nv.NavPages("联系人")
e.Form.TimerEnabled = False

http://www.foxtable.com/help/topics/1301.htm

有点甜

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

加好友

发短信

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

Post By：2015/2/10 16:22:00 [显示全部帖子]

你也可以放在 tabcontrol 的切换事件里

有点甜

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

加好友

发短信

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

Post By：2015/2/10 16:54:00 [显示全部帖子]

以下是引用ypp1420在2015/2/10 16:45:00的发言：
甜版，我想用这个方法控制用户使用权限，不同用户登录显示不同的按钮及其相关内容，刚刚我用你给的方法试了一下，还是不太理想，因为我的timertick时间中有个控制时间的代码不能停止！请甜版再给想想办法，谢谢了！

看11楼。

如果用 timertick，可以在AfterLoad写 vars("flag") = False

在 timertick 写 vars("flag") = True，然后判断 vars("flag")

有点甜

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

加好友

发短信

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

Post By：2015/2/10 17:24:00 [显示全部帖子]

你没给对应的 NavPage 赋值名称为成品车间等

有点甜

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

加好友

发短信

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

Post By：2015/2/11 10:09:00 [显示全部帖子]

测试例子，没有异常

有点甜

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

加好友

发短信

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

Post By：2015/2/11 10:13:00 [显示全部帖子]

            Case "材料员1"
                nb.SelectedPage = nb.NavPages("工程")
                nb.NavPages("任务").Visible = False
                nb.NavPages("日历").Visible = False
                nb.NavPages("联系人").Visible = False
                nb.NavPages("工序").Visible = False
                nb.NavPages("工程").Visible = False
                nb.NavPages("工程").Visible = True
                nb.SelectedPage = nb.NavPages("工程")

有点甜

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

加好友

发短信

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

Post By：2015/2/11 11:14:00 [显示全部帖子]

最上面的 nb.SelectedPage = nb.NavPages("拔模车间") 去掉

有点甜

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

加好友

发短信

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

Post By：2015/2/11 11:15:00 [显示全部帖子]

如果出错，把出错的发上来看看，看有没有触发其它事件的代码了。

下一主题 >> << 上一主题

总数 13 1 2 下一页

主题：导航栏显示的问题