The code I am using looks like this :- Private Sub Form_Timer() GetAsyncKeyState function which detects key and mouse presses but this does not seem to work properly in Access. From the InterWeb it looks like the API call to use is the That is on any form that might be open in the databaseĪpplication or any area of the screen outside the database such as the desktop, task bar, etc. The set up is something like this - a user opens a 'pop-up' form from a main form and only while the pop-up form is open, I need to detect whether the mouse has been left clicked anywhere on the screen. Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer 'fetch mouse button status 'Public Declare Function GetKeyState Lib "user32.dll" (ByVal vKey As Long) As Integer 'Not Used The API declaration looks like this :- Public Const VK_LBUTTON = &H1 Why, it's simple to fire WM_VSCROLL messages for that window too.I am trying to detect when the user clicks the left mouse buttonĪnywhere on screen using an API function. But, while Spy++ shows WM_MOUSEWHEEL messagesīeing sent to those windows, my program never gets them. The scroll wheel also doesn't work in the resource editing windows, withĬlass name "DesignerWindow". The style has the SBS_VERT bit set, then I know I have the correctĪlso, I cheated and took a picture of my mouse for the program's icon. If I find one, then I use GetWindowLong to retrieve the window's style.
DETECT MOUSE EVENTS API VBA WINDOWS
Use the FindWindow function to find child windows with the class name "ScrollBar".
Window's scrollbars have their own HWND, I need to find those first. Then, I just need to send WM_VSCROLL messages to the window. GetClassName function on each message's HWND, and ignore anything from That to make sure that I only process those events.
Know from Spy++ that the code window's class is "VbaWindow", so I can use Message hook that fires the scrolling events when it catches mouse wheel Using Spy++, I found that the code windows were getting WM_MOUSEWHEELĮvents, but no WM_VSCROLL messages were being fired. When you want to quit the program, right click the icon and choose That's all! The program puts an icon in your task bar that looks like a red Start up "VB6ScrollWheelFix.exe", and then use your mouse wheel in VB6. Now, if you hold down the Control key, then the mouse's scroll wheel willĪffect the horizontal scrollbar instead of the vertical. : I was asked to slightly modify the program's behavior. Use GetAsyncKeyState(VK_CONTROL) which works better. Since I only care about the 1 key, I just Instead of modifying my code to catch all keyboard messages, I removed the Opens a new window, my program was missing the Control key's KEY_UP message. Noticed it mostly when using Ctrl-F to open the Find window. : I found that in certain cases the Control key "sticks". Visible vertical scrollbar, and testing the mouse's position against the top : Yet another fix! If you split the window, the scroll wheel The program now has an INI that contains configuration options, supports multiple programs, supports mice that suport horizontal scrolling, and better follows Microsofts Best Practices. : I was asked to make a couple enhancements, and I went a little overboard. Windows may not let you overwrite the DLL until all programs finally decide to release it. If you're upgrading from an older version, exit out of the program and copy the new files over the old ones. Just unzip the files somewhere convenient for you. But newer mice may work better with the fractional values. Instead you'll just have to scroll more to get 1 scroll message sent. Fractional values like 1.6 and negative values work just fine! Keep in mind that the program simulates clicking the arrows on a scrollbar, so entering a value of 0.1 will not give you more fine grained control. It should be fairly self explanitory: just edit the values for VertMsgCount and HorzMsgCount for your program's settings. The scroll speed for each application can be adjusted by modifying the INI file. It also supports horizontal scrolling if your mouse supports it, or by holding CTRL while scrolling vertically. The included INI file includes support for: It is possible to support many programs by adjusting its INI file. To this site from Google looking for help with their mouse wheel. Wheel work in various older programs - mainly Visual Basic 6's code window. This is a small program that will make your mouse's scroll
0 kommentar(er)
