Как программно эмулировать двойной клик?

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Fara
Начинающий
Начинающий
 
Сообщения: 11
Зарегистрирован: 19.04.2004 (Пн) 7:48
Откуда: Ташкент

Как программно эмулировать двойной клик?

Сообщение Fara » 29.09.2005 (Чт) 12:22

Для одного клика использую - mouse_event. А как эмулировать двойной?

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 29.09.2005 (Чт) 12:31

Два раза???
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

Fara
Начинающий
Начинающий
 
Сообщения: 11
Зарегистрирован: 19.04.2004 (Пн) 7:48
Откуда: Ташкент

Сообщение Fara » 29.09.2005 (Чт) 12:32

не получается...

Fara
Начинающий
Начинающий
 
Сообщения: 11
Зарегистрирован: 19.04.2004 (Пн) 7:48
Откуда: Ташкент

Сообщение Fara » 29.09.2005 (Чт) 12:34

на таймере написал:
Код: Выделить всё
mouse_event MOUSEEVENTF_LEFTDOWN, 0&, 0&, 0&, 0&
mouse_event MOUSEEVENTF_LEFTUP, 0&, 0&, 0&, 0&

Interval у таймера 100
как сделать сразу подряд два раза???

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 29.09.2005 (Чт) 12:35

Как пробуешь?
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

Fara
Начинающий
Начинающий
 
Сообщения: 11
Зарегистрирован: 19.04.2004 (Пн) 7:48
Откуда: Ташкент

Сообщение Fara » 29.09.2005 (Чт) 12:41

Код: Выделить всё
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
...
Private Sub Timer1_Timer()

GetCursorPos z
mouse_event MOUSEEVENTF_LEFTDOWN, 0&, 0&, 0&, 0& 
mouse_event MOUSEEVENTF_LEFTUP, 0&, 0&, 0&, 0&

End Sub

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 29.09.2005 (Чт) 12:43

mouse_event MOUSEEVENTF_LEFTDOWN, 0&, 0&, 0&, 0&
mouse_event MOUSEEVENTF_LEFTUP, 0&, 0&, 0&, 0&
mouse_event MOUSEEVENTF_LEFTDOWN, 0&, 0&, 0&, 0&
mouse_event MOUSEEVENTF_LEFTUP, 0&, 0&, 0&, 0&

Нет?
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

Fara
Начинающий
Начинающий
 
Сообщения: 11
Зарегистрирован: 19.04.2004 (Пн) 7:48
Откуда: Ташкент

Сообщение Fara » 29.09.2005 (Чт) 12:45

Оппа...есть...
огромное спасибо... :D

ALX_2002
Мега гуру
Мега гуру
 
Сообщения: 2054
Зарегистрирован: 25.11.2002 (Пн) 20:03

Сообщение ALX_2002 » 29.09.2005 (Чт) 15:18

Последовательность эмоций: :?: :) :D :lol: :geek: :mrgreen: :shock: :flower: :thumleft:

vvs_adm
Гуру
Гуру
Аватара пользователя
 
Сообщения: 1492
Зарегистрирован: 03.02.2005 (Чт) 3:45
Откуда: оттуда ;)

Сообщение vvs_adm » 29.09.2005 (Чт) 22:23

GSerg писал(а):Два раза???
Fara писал(а):не получается...
:scratch:
Никогда не откладывай на завтра то, что можно ... отложить на послезавтра!


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

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

Сейчас этот форум просматривают: Google-бот, SemrushBot, Yandex-бот и гости: 37

    TopList