试了一下,没有办法做到,foxtable封装的这个tabcontrol不知道如何获取选项卡区域。如果是winform的tabcontrol就这样做。
Dim pt As New Point(e.x, e.y)
Dim tab As Object = e.Sender.basecontrol
For i As Integer = 0 To tab.TabCount - 1
Dim recTab As Rectangle = tab.GetTabRect(i)
If recTab.Contains(pt) Then
tab.SelectedIndex = i
End If
Next