以文本方式查看主题

-  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=178564)

--  作者:绿火柴
--  发布时间:2022/7/10 10:35:00
--  [求助]NavBar 控件新版本显示指定按钮时错误


启动时,在自定义用户登录窗口前 提示以下错误(新版本升级后才有的,之前无此错误 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编辑过]

--  作者:有点蓝
--  发布时间:2022/7/10 20:55:00
--  
导航窗口不要设置为“自动打开”,在登录窗口之后再使用代码打开。

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