在某一个功能区的selectab里面有如下代码:
forms("xmu").open
maintable=tables(...)
然后每次启动都会直接跳到这个段代码。并非手动点击tab触发的。
在项目属性里面,和窗体相关的只有这一条。在afterprojectopen
MainTable = Tables("vshi")
Forms("登录").Open
在Forms("登录")的aftershow事件中,有如下代码
Dim itm As RibbonMenu.Tab
For Each itm In RibbonTabs
itm.visible = False
Next
但是这个Forms("登录")登录界面不会自动显示,也可能显示的太快,只显示forms("xmu")
为何系统启动会自行依次选择所有tab?如何写代码使得手动点击才触发?
[此贴子已经被作者于2025/2/7 9:58:42编辑过]
不行,之前就一直采用模式窗口,但是主窗口其实并没有打开,windows下方的任务栏也看不到。员工如果桌面文件开的多,就容易找不到登录窗口。
登录窗口就是先隐藏所有tab,然后密码正确后,再按照权限显示tab。这也会触发selecttab的事件?
隐藏其它tab的时候,这个tab就会显示,就会处于选中状态,就会触发selecttab的事件
功能区的selectab里面代码:
if vars("登录")=false
forms("xmu").open
maintable=tables(...)
end if
afterprojectopen
vars("登录")=true
MainTable = Tables("vshi")
Forms("登录").Open
在Forms("登录")的aftershow事件中,有如下代码
Dim itm As RibbonMenu.Tab
For Each itm In RibbonTabs
itm.visible = False
Next
vars("登录")=false