Vb 6 Как Имитировать прокрутку колеса мыши?

Формулировка задачи:

Имитация нажатия левой кнопки мыши делатется так А как сделать имитацию колеса вверх и вниз на одно 1 деление ? Пробовал добавить констансту &H20A не помогло

                    Листинг программы
                
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 Const LEFTDOWN = &H2, LEFTUP = &H4 'НАЖАТ И ОТЖАТЬ  ЛЕВУЮ КНОПКУ МЫШИ
 
Private sub Command1_click()
mouse_event LEFTDOWN, 0&, 0&, 0&, 0&
mouse_event LEFTUP, 0&, 0&, 0&, 0&
end sub

Решение задачи: «Vb 6 Как Имитировать прокрутку колеса мыши?»

textual
                            Листинг программы 
                        
Private Const MOUSEEVENTF_WHEEL As Long = &H800&          ' Specifies that the wheel has been moved, if the mouse has a wheel

Оцени полезность:

14 голосов , оценка 3.929 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы