KnowBrainer Speech Recognition
Decrease font size
Increase font size
Topic Title: Commands for scrolling with the mouse wheel
Topic Summary:
Created On: 05/07/2021 12:50 PM
Status: Post and Reply
Linear : Threading : Single : Branch
 Commands for scrolling with the mouse wheel   - thalon - 05/07/2021 12:50 PM  
 Commands for scrolling with the mouse wheel   - wristofdoom - 05/07/2021 01:39 PM  
 Commands for scrolling with the mouse wheel   - thalon - 05/10/2021 01:26 PM  
 Commands for scrolling with the mouse wheel   - Lunis Orcutt - 05/07/2021 05:45 PM  
 Commands for scrolling with the mouse wheel   - brooklyn cabin - 05/27/2021 11:51 AM  
 Commands for scrolling with the mouse wheel   - wristofdoom - 05/07/2021 06:33 PM  
 Commands for scrolling with the mouse wheel   - Mphillipson - 05/09/2021 11:16 AM  
 Commands for scrolling with the mouse wheel   - Edgar - 05/09/2021 12:35 PM  
 Commands for scrolling with the mouse wheel   - kkkwj - 05/10/2021 02:09 AM  
Keyword
 05/07/2021 12:50 PM
User is offline View Users Profile Print this message

Author Icon
thalon
Senior Member

Posts: 94
Joined: 03/19/2015

today, I implemented two commands to scoll with the mouse wheel, which I'd like to share with you. I find them very useful, especiallyin web apps which implement their own scroll bar.

Command: mouse wheel <1to100> down

Declare Function mouse_event Lib "user32.dll" (ByVal dB As Long, ByVal dX As Long, ByVal dY As Long, ByVal dP As Long, ByVal dE As Long) As Long

 

Sub Main

  dist = CInt(ListVar1)

  mouse_event(&H800,0,0,-120*dist,0) 

End Sub

Command: mouse wheel <1to100> up

Declare Function mouse_event Lib "user32.dll" (ByVal dB As Long, ByVal dX As Long, ByVal dY As Long, ByVal dP As Long, ByVal dE As Long) As Long

 

Sub Main

  dist = CInt(ListVar1)

  mouse_event(&H800,0,0,-120*dist,0) 

End Sub

Statistics
32306 users are registered to the KnowBrainer Speech Recognition forum.
There are currently 0 users logged in.
The most users ever online was 12124 on 09/09/2020 at 04:59 AM.
There are currently 403 guests browsing this forum, which makes a total of 403 users using this forum.

FuseTalk Standard Edition v4.0 - © 1999-2022 FuseTalk™ Inc. All rights reserved.