- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 同主表的多个窗口(opened状态)间切换显示触发的事件是什么？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71832)
-- 发布时间：2015/7/18 22:37:00
-- 同主表的多个窗口(opened状态)间切换显示触发的事件是什么？
同主表的多个窗口(opened状态)间切换显示触发的事件是什么？
此主题相关图片如下：11122.png
如图显示，右边主窗口部分都是主表main的并列窗口，都打开着的，点击下方的标题后会将该窗口显示在最上层，些动作触发的事件是什么？
-- 发布时间：2015/7/19 10:21:00
--
必须自己绑定事件。
并列窗口放上这么一段代码:
Dim Tcl As C1.Win.C1Command.C1DockingTab = e.Form.panel.parent.parent
AddHandler Tcl.DoubleClick, AddressOf C1DockingTab_DoubleClick
全局代码代码是这个
Public Sub C1DockingTab_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
Functions.Execute("DoubleClickColse1",e,Sender) \'这个是函数
End Sub
函数的写法:
Dim e As System.EventArgs = Args(0)
Dim Sender As Object = Args(1)
Dim frm As WinForm.Form = Forms.ActiveForm
If frm IsNot Nothing Then
Forms(frm.Name).Close
End If
End If
-- 发布时间：2015/7/19 23:55:00
--
这代码我是理解不了了，不过我希望能直接拿来用就可以了。我现在还是不能实现：
第一个问题：并列窗口放上这么一段代码:
Dim Tcl As C1.Win.C1Command.C1DockingTab = e.Form.panel.parent.parent
AddHandler Tcl.DoubleClick, AddressOf C1DockingTab_DoubleClick
这代码放在窗口的什么地方？AfterLoad里么？
-----------------------------------------------
函数的写法: Dim e As System.EventArgs = Args(0) Dim Sender As Object = Args(1) Dim frm As WinForm.Form = Forms.ActiveForm If frm IsNot Nothing Then Forms(frm.Name).Close End If End If ------------------------------------------------------------------------------- 上面这个函数又放在哪里？是哪一个事件里面么？ 辛苦“大红袍”帮忙解释一下呗！谢谢！ |
-- 发布时间：2015/7/20 9:30:00
--
afterLoad事件
Dim Tcl As C1.Win.C1Command.C1DockingTab = e.Form.panel.parent.parent
AddHandler Tcl.DoubleClick, AddressOf C1DockingTab_DoubleClick
内部函数 DoubleClickColse1 http://www.foxtable.com/help/topics/1486.htm
Dim e As System.EventArgs = Args(0)
Dim Sender As Object = Args(1)
Dim frm As WinForm.Form = Forms.ActiveForm
If frm IsNot Nothing Then
Forms(frm.Name).Close
End If
End If