VB6 API/스파이 질문

Question

VB6의 SoulSeek 기능을 제어하려고합니다. API Spyer는 SuctABControl32 만 반환하지만 탭 버튼은 없습니다.

고마워

Answer 1

나는 시도해 볼 것을 제안한다 TCM_GETCURSEL 메시지. 현재 선택된 탭의 인덱스를 반환해야합니다.

코드는 아래의 것입니다 - 나는 이것을 vbaccelerator 's에서 조정했습니다. 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