vb6 api /間諜問題

Question

我想從VB6中控制一些soulseek功能 - 問題是SysTabControl32 - 我怎樣才能讀出哪個選項卡被選中？ api spyer只返回SysTabcontrol32，但沒有選項卡按鈕。

THX

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