Foxtable(狐表)用户栏目专家坐堂 → [求助]NavBar 控件新版本显示指定按钮时错误


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

主题:[求助]NavBar 控件新版本显示指定按钮时错误

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


加好友 发短信
等级:一尾狐 帖子:482 积分:4510 威望:0 精华:0 注册:2014/3/4 21:20:00
[求助]NavBar 控件新版本显示指定按钮时错误  发帖心情 Post By:2022/7/10 10:35:00 [只看该作者]


启动时,在自定义用户登录窗口前 提示以下错误(新版本升级后才有的,之前无此错误 foxtable版本:20220629)。


图片点击可在新窗口打开查看此主题相关图片如下:启动时错误.png
图片点击可在新窗口打开查看


NavBar1 控件下代码如下(其中Forms("主界面").Controls("TabControl1") 窗口已正常设置):

下面两个事件中的代码,取消掉任何一个,错误即消失


SelectedIndexChanged  事件下代码: 

Dim bar As WinForm.NavBar = e.sender
Select Case bar.SelectedPage.ButtonText
    Case "主界面"
        Forms("主界面").Controls("TabControl1").TabPages(0).Visible = True
        Forms("主界面").Controls("TabControl1").SelectedIndex = 0
        MainTable = Tables("main")
        Forms("主界面").Show
End Select

AfterLoad 事件下代码(如果NavBar能够默认显示第0个按钮,那么下面代码是可以不需要的,但此控件没发现有设置默认显示那个按钮的地方):
Dim Bar As WinForm.NavBar = e.Form.Controls("NavBar1")
Bar.SelectedIndex = 0
[此贴子已经被作者于2022/7/10 10:35:54编辑过]

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


加好友 发短信
等级:超级版主 帖子:109736 积分:558396 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/7/10 20:55:00 [只看该作者]

导航窗口不要设置为“自动打开”,在登录窗口之后再使用代码打开。

另外不要使用窗口嵌入窗口的用法,官方不对这种产生的问题进行支持

 回到顶部