只能做到这样
全局代码
Public Sub C1DockingTab1_TabClick(sender As Object, e As EventArgs)
Forms("窗口1").Controls("tab1").ShowContextStrip(vars("x"),15,Forms("窗口1").Strips("快捷菜单1"))
End Sub
Public Sub C1DockingTab1_MouseClick(sender As Object, e As System.Windows.Forms.MouseEventArgs)
vars("x") = e.X
vars("y") = e.X
End Sub
窗口1，afterload
Dim tab As C1.Win.C1Command.C1DockingTab = e.Form.Controls("tab1").basecontrol
AddHandler tab.TabClick, AddressOf C1DockingTab1_TabClick
AddHandler tab.MouseDown, AddressOf C1DockingTab1_MouseClick
加好友 
发短信
Post By：2018/9/21 21:24:00 [显示全部帖子]
