以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  隐藏表标题和Tabcontrol页签问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=95697)

--  作者:xvkewen
--  发布时间:2017/2/2 10:39:00
--  隐藏表标题和Tabcontrol页签问题
如题,如果用鼠标双击表标题或Tabcontrol页签来隐藏对应表或对应Page呢?找了半天,没见有这个事件呀?
--  作者:有点色
--  发布时间:2017/2/2 11:16:00
--  

窗口AfterLoad:
 
Dim Tcl As C1.Win.C1Command.C1DockingTab = e.Form.controls("TabControl1").BaseControl

AddHandler Tcl.DoubleClick, AddressOf C1DockingTab_DoubleClick


全局代码


Public Sub C1DockingTab_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs)

Functions.Execute("DoubleClickColse",e,Sender)   \'这个是函数

End Sub

内部函数DoubleClickColse:


Dim e As System.EventArgs = Args(0)

Dim Sender As Object = Args(1)

Sender.selectedtab.Visible = False

[此贴子已经被作者于2017/2/2 11:23:11编辑过]