Mouse up

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
_Мика_
Гуру
Гуру
 
Сообщения: 1459
Зарегистрирован: 24.10.2003 (Пт) 15:05
Откуда: г. Москва, м.Речной вокзал

Mouse up

Сообщение _Мика_ » 23.11.2003 (Вс) 11:01

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

Amed
Алфизик
Алфизик
 
Сообщения: 5346
Зарегистрирован: 09.03.2003 (Вс) 9:26

Сообщение Amed » 23.11.2003 (Вс) 16:37


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 постов :P
Последний раз редактировалось Amed 24.11.2003 (Пн) 18:37, всего редактировалось 1 раз.

_Мика_
Гуру
Гуру
 
Сообщения: 1459
Зарегистрирован: 24.10.2003 (Пт) 15:05
Откуда: г. Москва, м.Речной вокзал

Сообщение _Мика_ » 24.11.2003 (Пн) 16:42

Спасибо!
-Папа, а правда, что форумы делают людей дибилами?
-гы гы гы, сынок, лол!


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 9

    TopList