全局代码
Public Sub TabControl_SelectedIndexChanged(sender As Object, e As EventArgs)
MessageBox.Show(sender.SelectedTab.Name & "|" & sender.SelectedTab.Text)
msgbox(sender.SelectedTab.Controls(0).name)
End Sub
并列窗口AfterLoad事件
Dim tab As C1Command.C1DockingTab = e.Form.panel.parent.parent
Removehandler tab.SelectedIndexChanged, addressof TabControl_SelectedIndexChanged
addhandler tab.SelectedIndexChanged, addressof TabControl_SelectedIndexChanged
[此贴子已经被作者于2017/8/30 16:33:13编辑过]