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 постов

Последний раз редактировалось
Amed 24.11.2003 (Пн) 18:37, всего редактировалось 1 раз.