全局事件
Public Sub TabControl_SelectedIndexChanged(sender As Object, e As EventArgs) MessageBox.Show(sender.SelectedTab.Name & "|" & sender.SelectedTab.Text)End Sub
绑定事件
Dim tab As C1Command.C1DockingTab = Forms("窗口1").panel.parent.parent
addhandler tab.SelectedIndexChanged, addressof TabControl_SelectedIndexChanged