MouseOver in VBA?

[philhowell]

I'm trying to replicate the Office XP mouse over effect on text boxes, but the VBA only allows me use mouseMove.... so is there a way to do onMouseOver and onMouseOut....

Something similar to the Javascript functions

Cheers
Phil

 

[dk]

Hi Phil,

Say you have 2 textboxes and you want them to turn green when the mouse hovers over them. You'd use something like this:-

Private Sub Text0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text0.BackColor = vbGreen
End Sub

Private Sub Text2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text2.BackColor = vbGreen
End Sub

Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text0.BackColor = vbWhite
Text2.BackColor = vbWhite
End Sub

This is not quite the same as the OnMouseOver event you mentioned in Javascript because you need a third procedure when the mouse moves over the form to set the textboxes back to white.

Hope that helps - post back if not.

Regards,
Dan