VB6: слежка за API

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


api spy vb6
person Fuxi    schedule 18.03.2010    source источник

Ответы (1)


arrow_upward
2
arrow_downward

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

Ниже приведен примерно такой код — я адаптировал его из 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
person MarkJ    schedule 18.03.2010
comment
@wqw Спасибо, небольшая ошибка копирования/вставки! Говорю же, не проверял. Фукси, ты пробовал код? - person MarkJ; 19.03.2010