Mouse up

[_Мика_]

Чтобы отследить нажатия на кнопку, ну предположем мыши, вне формы надо юзать GetAsyncKeyState но она срабатывает на Mouse down. Как сделать чтобы она срабатывала на Mouse Up

[Amed]

Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private OldVal As Boolean
Private NewVal As Boolean

Private Sub Timer1_Timer()
NewVal = GetAsyncKeyState(vbKeyLButton)

If OldVal <> NewVal And NewVal = False Then
Me.Cls
Me.Print "Mouse_up"
End If

OldVal = NewVal
End Sub


В общем, всё просто, но я поясню: по таймеру проверяется, изменилось ли состояние клавиши, если оно изменилось, а кнопка отжата, то, соостветственно, произошло событие Mouse_Up:!:

P.S. Только сейчас заметил: 256 постов

[_Мика_]

Спасибо!