Pregunta de VB6 API/SPY

Question

Estoy tratando de controlar algunas características de Soulseek de VB6: el problema es el SystabControl32 - ¿Cómo puedo leer qué pestaña se selecciona? El Spyer API solo devuelve el SystabControl32 pero no hay botón de pestaña.

gracias

Answer 1

Sugiero probar el Tcm_getCursel mensaje. Debería devolver el índice de la pestaña seleccionada actualmente.

El código es algo como esto a continuación: adapté esto de VBACCelerator's ctabctrl pero no lo he probado.

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