Mouse Over Toolbar

[Juro128]

I want to put text inside a label's caption when the user moves their mouse over a button in a toolbar. How can i do this? I have tried this code but get the following error message: "Invalid Qualifier." It highlights the Button in Button.Index on this error. What can I do?

Private Sub tlbMain_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case Button.Index

Case 1
lblInfo.Caption = "Something"
Case 2
lblInfo.Caption = "Something"
Case 3
lblInfo.Caption = "Update"
Case 4
lblInfo.Caption = "Help"
Case 5
lblInfo.Caption = "Exit"

End Select
End Sub

[eer3]

Select Case Button

[eer3]

Also, only case 1(Left), 2(Right) and 4(Middle) are valid - 3 and 5 won't occur

[Juro128]

Why won't they occur?

[eer3]

The variable Button is referring to the button on the mouse that was clicked for the MouseMove Event.

Here's how MSDN explains it...

Button
Integer value specifying a bit field with bits corresponding to the left button (bit 0), right button (bit 1), and middle button (bit 2). These bits correspond to the values 1, 2, and 4, respectively. Only one of the bits is set, indicating which buttons were being pressed at the time the event occurred.

[Juro128]

Then I did it wrong, what I want to happen it when a mouse cursor is moved over a TOOLBAR button, then I want some text to appear in a label. Obviously it's my fault for not explaining this better. How can I do this then?

[Juro128]

Private Sub tlbMain_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case Button

Case 1
lblInfo.Caption = "Something"
Case 2
lblInfo.Caption = "Something"
Case 3
lblInfo.Caption = "Update"
Case 4
lblInfo.Caption = "Help"
Case 5
lblInfo.Caption = "Exit"

End Select
End Sub

This code still does not show the text in the label when the mouse moves over one of the buttons in the toolbar. Any ideas?

[crptcblade]

that is becuse it is not refering to the toolbar button, but to the mouse button. Try your code, and hold down the left mouse button on one of the toolbar buttons. The label should run the code for Case 1.

[Juro128]

Yeah, you're right. What can I do to achieve the affect I want?

[crptcblade]

Off the top of my head, you can check the x, and y in the mousemove event,and set it up to react to that, but that can get pretty hinky and with more code than youy probably want.

I think there is a way to use a variable dimensioned as an MSComctl.Button, but I'm not sure how.

sorry

[Beacon]

edited...

Could u use an array on your toolbar?

[crptcblade]

Originally posted by Beacon
Dont be yellin at me this time if im wrong!

[Juro128]

I think you're right crptcblade. I thought about that and maybe I could use the button.index. Not sure, lemme mingle around with the code and I'll post it when it works.

[Edneeis]

This is by no mean perfect not even very good but its a start:

Private Sub Toolbar1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Me.Caption = x & " , " & y
'1=0-330
'2=330-690
'3=690-1050
'about 345 each
tbnum = CInt((x / 345) + 0.5)
Label1.Caption = tbnum
Select Case tbnum
Case 1
'If tbnum = 1 Then
    Toolbar1.Buttons(1).Caption = "One"
    Toolbar1.Buttons(2).Caption = " "
    Toolbar1.Buttons(3).Caption = " "
'End If
Case 2
'If tbnum = 2 Then
    Toolbar1.Buttons(1).Caption = " "
    Toolbar1.Buttons(2).Caption = "Two"
    Toolbar1.Buttons(3).Caption = " "
'End If
Case 3
'If tbnum = 3 Then
    Toolbar1.Buttons(1).Caption = " "
    Toolbar1.Buttons(2).Caption = " "
    Toolbar1.Buttons(3).Caption = "Three"
'End If
Case Else
    Toolbar1.Buttons(1).Caption = " "
    Toolbar1.Buttons(2).Caption = " "
    Toolbar1.Buttons(3).Caption = " "
End Select
End Sub

I used a toolbar with three buttons as my sample.

[Juro128]

It's definetley a start, didn't work well though, because my toolbar is in the midde of the form. But a good start, thanks.

[Beacon]

Try this:

I used 1 button so modify it for more than 1.

Private Sub tb_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If x > tb.Buttons(1).Left And x < tb.Buttons(1).Width Then
Label1.Caption = "YOUR FIRST BUTTON"
End If
End Sub