以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  页签问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=132464)
--  作者：巷弄太过弯曲
--  发布时间：2019/3/22 13:02:00
--  页签问题
老师，帮我看一下这个代码该怎么写，如图 当我双击名为“WIFI信息查询”页签 “WIFI信息查询”页签则隐藏， 当我双击“page3”页签也要隐藏 其他显示的页签不隐藏 这个该怎么写
图片点击可在新窗口打开查看此主题相关图片如下：16.png
图片点击可在新窗口打开查看

DoubleClick：


Dim pg As WinForm.TabPage



 pg = Forms("主窗体").Controls("页签").TabPages("WIFI信息查询") 

pg.Visible = False \'双击关闭当前页面
--  作者：有点甜
--  发布时间：2019/3/22 15:45:00
--  

msgbox(e.sender.selectedPage.text)

If e.sender.selectedpage.text = "WIFI信息查询" Then

    e.sender.selectedpage.visible = false

ElseIf e.sender.selectedpage.text = "Page3" Then

    e.sender.selectedpage.visible = false

End If
--  作者：巷弄太过弯曲
--  发布时间：2019/3/22 16:28:00
--  
谢谢老师