vb6 api/spy question

Question

Я пытаюсь контролировать некоторые функции soulseek от 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