以文本方式查看主题 - 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 |