VB6:应用程序接口间谍

Question

我正在尝试控制VB6的一些寻灵功能--问题出在SysTabControl32上--我怎么才能读出哪个标签被选中了？API spy只返回SysTabcontrol32，而不返回选项卡按钮。

Answer 1

我建议试试TCM_GETCURSEL消息。它应该返回当前所选选项卡的索引。

代码如下所示-我改编自vbAccelerator的cTabCtrl，但没有对其进行测试。

Private Const TCM_FIRST = &H1300 
Private Const TCM_GETCURSEL = (TCM_FIRST + 11)
Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" _
 (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As _
 Long) As Long

Public Function SelectedTab(ByVal hWnd As Long) As Long
    SelectedTab = SendMessageLong(hWnd, TCM_GETCURSEL, 0, 0) + 1
End Property