سؤال
أحاول التحكم في بعض ميزات Soulseek من VB6 - المشكلة هي SystabControl32 - كيف يمكنني قراءة علامة التبويب التي تم تحديدها؟ يقوم API Spyer بإرجاع SystabControl32 فقط ولكن لا يوجد زر علامة تبويب.
شكرًا
المحلول
أقترح جرب 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
لا تنتمي إلى StackOverflow