窗口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编辑过]