I dont think its possible !!!

[amer]

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 !!!

[rockies1]

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...

[Jop]

Hey, don't be sad...

Everythin' is possible!

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

[amer]

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

[rockies1]

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...

[amer]

rockies1,

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

[Jop]

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

[amer]

jop,

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

[rockies1]

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?

[Jop]

That's what I'm figuring out

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

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]

[amer]

JOP... U R GREAT

thanx a lot for help... it worked

[Jop]

anytime...

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