Mouse wheel scroll in a combobox on userform (Lots of Code)

[Phil_C]

Hello All
I have seen some code around that allows scrolling in listboxes using the mousewheel. I have also seen some code here on the forums about scrolling through a combobox embedded in a workbook. I have tried adapting both of these to suit a combobox on a userform but I cannot get either to work.

Here is the code that I used for the embedded combobox; I added it to the base code for the userform

I then added the following code to a standard module as stated in the forum post;

In the first section of the code there is a msgbox that never gets shown so I don't think code is recognizing the mouse wheel at all.

The second set of code that I used was set up to work with a listbox and it works perfectly with a listbox control. The problem is I cannot adapt it to suit a combobox and if I use a breakpoint to see what is happening Excel freezes.
The following code is added to the userforms code;

Then in a standard module I added the following code;

I added this section of the code;


I think this should only work on a Combobox but a Combobox does not appear to support the TopIndex value. Is there a way this can be setup to work with a userform combobox?
Sorry about the huge amount of code.

Thanks in advance

Phil

CODE removed to avoid confusion.

 

[Gettingbetter]

Hi Phil,

The reason Excel crashes if there is an error in your code is because the Scroll code uses API calls. You can not debug API calls. Usualy if you were to choose end when your code bugs out and not debug, excel would not crash.

I should have warned you that if you are using API calls you have to be very careful (because you can also really mess up your system with them). My advice to you would be to finnish your code fully (including error traps etc) and then when it is fully functioning and tested add the nice to haves such as this scroll at the end.

Also if I am using alot of API calls (which I do) I sometimes have a question before the form starts which says With API (yes/no) ands all my api calls have a If WithAPI = true then statement in front of them (obviously when my project is finninshed this is removed).

Hope this hasn't put you off using the code, you just have to be careful (and save your work often).

Cheers
GB

 

[Norie]

Phil

Ever heard of the down arrow?

 

[Phil_C]

Hello GB
Thanks again for helping with this. I will do as suggested.

Norie
Yes I have heard of the down arrow. It is still quicker to use the scroll wheel than the down arrow or are you saying you never use the scroll wheel in comboboxes or anywhere else for that matter.


Does anyone know if Excel 2007 supports this feature?

Regards

Phil

 

[Norie]

Phil

No I don't use the scroll wheel in comboboxes.

Probably because my mouse seems to have a life of it's own sometimes.