| Вопрос: Левая кнопка мыши | Добавлено: 25.05.04 19:14 |
Автор вопроса:  Kodo | ICQ: 293048085 |
Простите за ламерский вопрос  , но как отследить, нажата ли левая кнопка мыши? Если GetKeyState, то с каким параметром?
|
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  Kodo Разработчик Offline Client ICQ: 293048085 Вопросов: 37 Ответов: 457 |
Профиль | Цитата | #1 | Добавлено: 25.05.04 19:17 |
| Да и еще. Как программно "кликнуть" мышкой? Короче смысл программы - если левая кнопка нажата, программа начинает "кликать" мышкой. | ||
|
Номер ответа: 2 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | Цитата | #2 | Добавлено: 25.05.04 20:14 |
| GetAsyncKeyState & VK_LEFT; SendMessage & WM_LBUTTONDOWN & WM_LBUTTONUP | ||
|
Номер ответа: 3 Автор ответа: KodoРазработчик Offline Client ICQ: 293048085 Вопросов: 37 Ответов: 457 |
Профиль | Цитата | #3 | Добавлено: 26.05.04 09:44 |
| Thanks | ||
|
Номер ответа: 4 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | Цитата | #4 | Добавлено: 26.05.04 17:16 |
ну и я ворвусь 
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As KeyCodeConstants) As Integer Public Function MButtonDown(btButton As Byte) As Boolean Select Case btButton Case Is = 1 MButtonDown = CBool(GetKeyState(vbKeyLButton) And &H8000) Case Is = 2 MButtonDown = CBool(GetKeyState(vbKeyRButton) And &H8000) Case Is = 3 MButtonDown = CBool(GetKeyState(vbKeyMButton) And &H8000) End Select End Function Private Sub Form_Load() If MButtonDown(1) Then MsgBox "Левая клавиша нажата!" If MButtonDown(2) Then MsgBox "Правая клавиша нажата!" If MButtonDown(3) Then MsgBox "Средняя клавиша нажата!" End Sub |
||
|
Номер ответа: 5 Автор ответа: KodoРазработчик Offline Client ICQ: 293048085 Вопросов: 37 Ответов: 457 |
Профиль | Цитата | #5 | Добавлено: 26.05.04 17:52 |
|
ну и тебе Thanks хотя и так все работает
|
||
Страница: 1 |