以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何对手动点击tab进行代码编辑?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194928)

--  作者:lur320
--  发布时间:2025/2/7 9:45:00
--  如何对手动点击tab进行代码编辑?
 在某一个功能区的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编辑过]

--  作者:有点蓝
--  发布时间:2025/2/7 10:12:00
--  
"登录"窗口改为模式窗口
--  作者:lur320
--  发布时间:2025/2/7 10:20:00
--  
 不行,之前就一直采用模式窗口,但是主窗口其实并没有打开,windows下方的任务栏也看不到。员工如果桌面文件开的多,就容易找不到登录窗口。
--  作者:lur320
--  发布时间:2025/2/7 10:21:00
--  
登录窗口就是先隐藏所有tab,然后密码正确后,再按照权限显示tab。这也会触发selecttab的事件?


--  作者:有点蓝
--  发布时间:2025/2/7 10:28:00
--  
隐藏其它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