label effect

[Peter]

Hi,
A question from a friend of mine. Hope you understand this, cause it's in
dutch. I've tried to translate it at the bottom.

Ik heb een formulier in Vba met een label. Als ik er een commandbutton
bijzet met de code

"Private Sub CommandButton1_Click()
Label1.SpecialEffect = fmSpecialEffectRaised
End Sub"

bij dan krijgt mijn label nen "boebel" als ik op de nop klik. De bedoeling
is echter dat dit gebeurt als ik met de muis over het label ga.

Enig idee iemand?

Translation:
I have a form in vba wich contains a label. When i put a commandbutton in
with the code

"Private Sub CommandButton1_Click()
Label1.SpecialEffect = fmSpecialEffectRaised
End Sub"

then the label gets a bump everytime i press the button. However this should
only happen when i put the cursor on top of the label.

Any ideas anyone?

regards,
Peter

 

[Harald Staff]

Hi Peter

CommandButton1_Click is the "when I click this button" event. Mousecursor
over is the MouseMove event:

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Label1.SpecialEffect = fmSpecialEffectRaised
End Sub

Note that there is no MouseOut event, so you must find another event to
detect when the mouse is no longer over it.

HTH. Best wishes Harald

 

[Tom Ogilvy]

But you move the cursor to the commandbutton1 to click it. So it would no
longer be over the label.

Are you looking for a mousemove event?

The problem there is that you would need to put the label on top of another
control to use the mouseover for that control to return the label to its
former configuration.

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Label1.SpecialEffect = fmSpecialEffectRaised
End Sub



Private Sub TextBox1_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Label1.SpecialEffect = fmSpecialEffectFlat
End Sub


Label1 is above, centered and inside the boundaries of Textbox1.

Textbox1 is visible, has specialeffect set to flat, no boarders, background
color matches the userform so it is not noticeable. Tabstop set to false.

Play with it. Worked for me.