VB6-MouseWheel With Any Control

[bushmobile]

ok, was fairly simple when managed to get my hands on VB

Don't call the PictureBox 'Picture' - it's a reserved word - i renamed it picMain and then changed this part of the Select Case:

Case TypeOf ctl Is PictureBox
            If Not ctl Is picMain Then
                PictureBoxZoom ctl, MouseKeys, Rotation, Xpos, Ypos
            Else
                bHandled = False
            End If

[Bri0]

GREAT
I think I have still to study and practise alot

Thank you very much Bushmobile!

[qvqnytowl]

Hi bushmobile,

I used your mousewheel code in an existing VB6 app and it worked fine. I altered it slightly because I'm using an MSHFlexgrid instead of an MSFlexgrid. I'm running into another problem though. In my MSHFlexgrid I list rows of invoices, some billed and some unbilled. The user has options to list all invoices, only billed invoices or only unbilled invoices. When the user takes the option to list only billed invoices, the program loops through the grid row by row and sets the .rowheight = 0 for those rows that are unbilled and and sets the .rowheight = -1 for rows that are billed. This code works great for hiding rows but for whatever reason, once the routine completes, the mousewheel no longer works on the grid. I tried all kinds of things to figure out where the problem is and everything seems to point to setting the rowheight to 0. I tried setting the rowheight to like 50 and that worked but it looked ugly. Any thoughts?

Thanks.

[Al42]

everything seems to point to setting the rowheight to 0. I tried setting the rowheight to like 50 and that worked but it looked ugly. Any thoughts?

How about not loading the grid with the records you don't want displayed? Are you loading it from a database? If so, the solution is simple - a Where clause in your select statement.