Боюсь что эта красота в данном случае не прокатит в VB:
lResult = SendMessage( // returns LRESULT in lResult
hWndControl, // (HWND) handle to destination control
TB_HITTEST, // (UINT) message ID
wParam, // = 0; not used, must be zero
lParam // = (LPARAM)(LPPOINT) pptHitTest;
'SendMessage function
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, _
ByVal Msg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long
Public Type POINTAPI
X As Long
Y As Long
End Type
Даже если сделать вот так:
'SendMessage function
Public Declare Function
SendMessage2 Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, _
ByVal Msg As Long, _
ByVal wParam As Long, _
lParam As POINTAPI ) As Long
то код:
1.
2.
3.
ElseIf (Msg = &H200) Then 'WM_MOUSEFIRST/WM_MOUSEMOVE
Call GetCursorPos(pt)
Call ScreenToClient(hwnd, pt)
Form1.Caption = SendMessage2(hwnd, TB_HITTEST, 0 , pt)
ничего не рисует. И немногочисленные рез-ты поиска V..B...+TB_HITTEST
сводятся похоже к мысли о том что именно в vb не работает.
Это как при случае с вложенными структурами...???
А по поводу MSDN: а смысл есть ее иметь на диске,если она доступна в Интернете.
А плюс поиск по google дает гораздо больше.
Другое дело что я не совсем умею с ней работать м.б., но это другое дело...
