- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- TAB双击关闭代码 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=20210)
-- 发布时间：2012/6/1 13:05:00
-- TAB双击关闭代码
咱们的论坛中有一个精华帖，里面的TAB页双击关闭是怎么实现额。TAB页属于什么控件啊
此主题相关图片如下：qq截图20120601130257.png
此主题相关图片如下：qq截图20120601130305.png
-- 发布时间：2012/6/1 16:23:00
--
狐狸爸爸，这个是怎么实现的啊
希望你点化下
-- 发布时间：2012/6/1 17:26:00
--
双击隐藏就可以了.
-- 发布时间：2012/6/1 17:39:00
--
这个是Tabcontrol控件吗，是在控件的DOUBULECLICK设置的代码是吧
-- 发布时间：2012/7/22 12:07:00
--
嗯 这个漂亮
-- 发布时间：2012/7/22 12:29:00
--
未必非要这样，这只是别人的一个想法而已。有很多的软件有更好的界面。
我之前做了一个案例，你可以参考一下
主界面_TabControl_人事管理_DoubleClick
\'\'\'
Dim 人事管理 As
WinForm.TabControl = e.Form.Controls("TabControl_人事管理")
Select Case
e.Sender.SelectedPage.text \'返回页面标题
Case "人事管理"
Return
Case Else
e.Sender.SelectedPage.Visible = False \'隐藏本页面
e.Sender.SelectedPage = e.Sender.TabPages("人事管理") \'选中页面
End Select
主界面_TabControl1_DoubleClick
Dim 人事管理 As
WinForm.TabControl = e.Form.Controls("TabControl_人事管理")
Select Case
e.Sender.SelectedPage.text \'返回页面标题
Case "人事管理"
Return
Case Else
e.Sender.SelectedPage.Visible = False \'隐藏本页面
e.Sender.SelectedPage = e.Sender.TabPages("人事管理") \'选中页面
End Select
-- 发布时间：2012/7/22 18:09:00
--
应该三句代码就可以了.