Как отслеживать где на экране клацнули мышкой?
Как отслеживать где на экране клацнули мышкой?
жлательно на ВБ
жлательно на ВБ
Если надо получить кординаты то GetCursorPos( LPPOINT lpPoint);
Цитата: Scaiman
Если надо получить кординаты то GetCursorPos( LPPOINT lpPoint);
спасибо это я и так знаю но я хочю знать когда где-то на экране клацают, в любой точке не только над формой.
эт конечно хорошо но на бейсике такой же статейки нигде нет?
спасибо всем, сам догадался, добавте это в фак. там по моему этого точно нет.
'in module
Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
' константы для других кнопок посмотрите в API вьювере
Public Const VK_LBUTTON = &H1
'in form
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1
End Sub
Private Sub Timer1_Timer()
If GetAsyncKeyState(VK_LBUTTON) Then
MsgBox "Кто то клацнул", vbInformation
End If
End Sub
'in module
Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
' константы для других кнопок посмотрите в API вьювере
Public Const VK_LBUTTON = &H1
'in form
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1
End Sub
Private Sub Timer1_Timer()
If GetAsyncKeyState(VK_LBUTTON) Then
MsgBox "Кто то клацнул", vbInformation
End If
End Sub
Вроде тебе ещё надо было узнать,ГДЕ щёлкнули,так что одним асинком не обойтись
Цитата: @pixo $oft
Вроде тебе ещё надо было узнать,ГДЕ щёлкнули,так что одним асинком не обойтись
...посему бери GetCursorPos, когда нажмется ЛК мыши...