Mouse Scroll Wheel in 64 bit

I've got 32 bit to work flawlessly, but I haven't been able to get 64 bit to work. The problem is that there are so many variations to the code and so it's hard to figure out from the examples how to adjust the code that I'm using. Any help is appreciated! I tried changing the declarations to PtrSafe, but that wasn't enough. I tried changing all of the Long to LongPtr, and it was finally able to run, but not very well- the mouse scroll was all wonky. I just don't know enough about these functions to make all these changes.

I finally got the chance to upgrade my home computer to 64 bit Excel and I jumped on it!

I'll include the whole file as an attachment.

Here's the 32bit code for the mouse (without any changes)

Please Login or Register  to view this content.

Perhaps the code here will help:

https://www.excelforum.com/excel-pro...se-scroll.html

Originally Posted by Soulfien

It works! I adapted my code using the example provided!

Thank you! I will post the finished product here:

Thanks for posting your file. I've been wanting a mouse wheel scroll that doesn't select anything and so far this is the best I've seen.

Is that file CSR 54.xlsm you attached the latest one you had? It works in Windows 10 64 bit/Excel 32 bit, but not Excel 64 bit. When I run on 64 bit, it gives an automation error. There's only one "#If Win64 Then" which is commented out I would assume you would need that in other places as well. I'll review Rory's link to see if I can piece together, but wonder if you had a working file for both 32 & 64.

Also, for others, here is my code where I tweaked the listbox .topindex property, so it will always scroll to the top (seems if the .topindex is negative it wouldn't go to the top). I also need to figure out a way to use the scroll in a large text box and using curpostion, but haven't gotten to that yet. Need this to work in 32 & 64 bit before adding more features!

Please Login or Register  to view this content.

Put this in your userform (I put it at the bottom of my Private Sub UserForm_Initialize() event):

Please Login or Register  to view this content.

Be sure to change the iGblControlType to the control type you are using and the "Me.lbTrades" to your listbox (or other control) name.

Put

Please Login or Register  to view this content.

before your unload event or in the form QueryClose event.

Originally Posted by mikepfly2

Does anyone think it's possible to add scrolling to a text box that is multi-line and has a vertical scrollbar?

Administrative Note:

Welcome to the forum.

We are happy to help, however whilst you feel your request is similar to this thread, experience has shown that things soon get confusing when answers refer to particular cells/ranges/sheets which are unique to your post and not relevant to the original.

Please see Forum Rule #4 about hijacking and start a new thread for your query.

If you are not familiar with how to start a new thread see the FAQ: How to start a new thread

Administrative Note:

Welcome to the forum.

We are happy to help, however whilst you feel your request is similar to this thread, experience has shown that things soon get confusing when answers refer to particular cells/ranges/sheets which are unique to your post and not relevant to the original.

Please see Forum Rule #4 about hijacking and start a new thread for your query.

If you are not familiar with how to start a new thread see the FAQ: How to start a new thread