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 !!!
Printable View
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 !!!
Hope that helps...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
Hey, don't be sad...
Everythin' is possible!
Do this for every control and you're finished!!!!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
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 ??
This uses a Control Array of Command Buttons...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
Make Sense?
That's what I'm figuring out :(
Oh, got it!!! (damn I'm smart :))
Do this for every button and you're done!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
[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)