I dont think its possible !!!

i have several controls and one statusbar control on one form. is it possible to show the tooltiptext of a control in statusbar when mouse is over that control ????

i dont think its possible !!!

Code:

---

Private Sub cmdYourCommandButton_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    frmFormWithStatusBas.StatusBar1.Panels(PanelYouWantToolTIpToAppearIn) = cmdYourCommandButton.ToolTipText
End Sub

---

Hope that helps...

Hey, don't be sad...

Everythin' is possible!

Code:

---

Private Sub List1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StatusBar1.Panels(0).Text = "haha *everything*  is possible!"
End Sub

---

Do this for every control and you're finished!!!!

Oops Morgan beat me :( damn I'm slow :( I've failed :(

well, I'll get over it :)

OK rockies1 & Jop,


what if i have a toolbar with multiple buttons on it and i want to show the tooltiptext of a button when mouse move over it ???????????

i'll be grateful for help

You'll need to put the MouseMove event code in for all of your buttons...

It'll be time consuming if you're not using a control array, but possibly worth it...

Hope that helps...

rockies1,

buttons on toolbar created using code not wizard and at design time buttons are not known!!!

Yeah that's a bit harder...

...I think you have to do a trick with X,Y

You have to check where the mousepointer is at the moment, and if it's between the X and Y cooridnates of one of the buttons and wich button.

Not sure if there's a better way to do it (probably)

Good Luck

jop,

how can i find out the control_name under x,y ??

Code:

---

Private Sub Command1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    Me.StatusBar1.Panels(PanelSectionName) = Command1(Index).ToolTipText
End Sub

---

This uses a Control Array of Command Buttons...

Make Sense?

That's what I'm figuring out :(

Oh, got it!!! (damn I'm smart :))

Code:

---

Private Sub Toolbar1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If x > Toolbar1.Buttons(1).Left And x < Toolbar1.Buttons(1).Width Then
MsgBox "IN first button!"
End If
End sub

---

Do this for every button and you're done!

[Edited by Jop on 09-07-2000 at 11:54 AM]

JOP... U R GREAT :)

thanx a lot for help... it worked :)

anytime...

just add me if ya want! (18818940, ICQ)