api - vb6：コードでSysTabControl32を設定

Question

soulseekを制御するための小さなアプリをコーディングしています。コードで[ファイルの検索]ボタンをクリックするだけです。

タブ付きコントロール（SysTabControl32）のハンドルを取得し、次のコードでタブを変更することができました。

rc1 = SendMessage(hwnd, TCM_SETCURFOCUS, ByVal 0, ByVal 0&)  

問題：

タブコントロールが適切なボタンに変わりますが、何も起こりません。マウスでクリックするとボタンが上下するので、マウスクリックも送信する必要があると思います。

これを行う方法はありますか？

どうも

Answer 1

代わりにTCM_SETCURSELを使用してください。

Private Const TCM_FIRST               As Long = &H1300
Private Const TCM_SETCURSEL           As Long = (TCM_FIRST + 12)