Roleover Menus 1

[Adric]

Is There An Easy Way To Create Role Over Menus In VB 6

 

[Adric]

Ok, I've got the picture to change when the mouse is moved over it, but when the mouse leaves it it won't change back, any ideas?

 

[MikeBronner]

Hi guys, check the FAQ section:

I posted a detailed FAQ there under the Images section.
let me know if you need any additional help. Best Regards and many Thanks!
Michael G. Bronner X-)

"They who drink beer will think beer." Washington Irving

 

[Adric]

OK, i went over it and i understand a bit of it. Really what i would like is to have the button change when you click it and that is it,

 

[MikeBronner]

Ok, thats no biggie....

ignore the entire faq and simply use this code:

Option Explicit
Dim nLastPic As Integer

Private Sub Form_Load()
    nLastPic = picButtons.Count * 2
End Sub

Private Sub picButtons_Click(Index As Integer)
    Dim nNumPics As Integer
    picButtons(Index).Picture = LoadPicture("[i][path of picture you wish to use][/i]")
    picButtons(nLastPic).Picture = LoadPicture("[i][path of standard button image][/i]")
    nLastPic = Index
End Sub

I think that should work. let me know if you have any trouble running that. Best Regards and many Thanks!
Michael G. Bronner X-)

"They who drink beer will think beer." Washington Irving

 

[Adric]

Michael

GetCursorPosition MousePoint

this line is highleted in your code, and my computer says
expected variable or procedure not module

what do i do?

 

[MikeBronner]

did you add the line:

Public MousePoint as POINTAPI


In your module? Also, is the GetCursorPosition command at the top of the Module? If you would like, email me your module to bronnem@wellsfargo.com and I'll fix it for you (I'll be at that email for anoth 40 minutes or so). Best Regards and many Thanks!
Michael G. Bronner X-)

"They who drink beer will think beer." Washington Irving