vb6 api / шпионский вопрос

Question

Я пытаюсь управлять некоторыми функциями поиска душ из VB6 - проблема в SysTabControl32 - как я могу прочитать, какая вкладка выбрана? api spyer возвращает только SysTabcontrol32, но без кнопки табуляции.

ТНХ

Answer 1

Предлагаю попробовать сообщение TCM_GETCURSEL . Должен возвращать индекс текущей выбранной вкладки.

Код выглядит примерно так ниже - я адаптировал его из cTabCtrl в vbAccelerator, но не проверял его.

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