tijdelijk zichtbare labels

[blueberry013]

Hallo!

Hoe kan ik een label tijdelijk zichtbaar maken als ik over een commandbutton kom met mijn muis?
(bedoeling is dat de uitleg van de knop gedurende 3 sec. zichtbaar wordt en daarna terug verdwijnt.)

Naam van label = LRefresh
naam van de button = CBRefresh

Alvast bedankt!

 

[Niels28]

Private Sub CBRefresh_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If LRefresh.Tag = "" Then
LRefresh.Tag = 1
LRefresh.Visible = True
Application.Wait (Now() + TimeValue("00:00:03"))
LRefresh.Visible = False
LRefresh.Tag = ""
End If
End Sub

Private Sub UserForm_Initialize()
LRefresh.Visible = False
End Sub

Niels

 

[blueberry013]

Bedankt!! Werkt super!!

 

[Niels28]

Zet je de vraag dan op opgelost.

Niels

 

[blueberry013]

hallo,

Nog even bijkomend vraagje... het neemt redelijk veel tijd in beslag als ik over de verschillende labels ga. Kan ik dit ook met een rechtermuisknop?
gewoon als ik met mijn rechtermuisknop op de knop duw bv? ipv erover schuiven? dan kan ik echt bewust selecteren welke labels ik wil zien.

 

[Niels28]

Met rechtermuisknop weet ik niet.

Nu reageert de commandbutton waar de focus op gericht is op het pijltje naar beneden.
Als je hem op een andere toets wilt laten reageren pas dan het getal in het rode gedeelte aan, zie link voor de getallen

http://msdn.microsoft.com/en-us/library/aa243025(v=vs.60).aspx

Private Sub CBrefresh_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If [COLOR="#FF0000"]KeyCode = 40 [/COLOR]Then
If LRefresh.Tag = "" Then
LRefresh.Tag = 1
LRefresh.Visible = True
Application.Wait (Now() + TimeValue("00:00:03"))
LRefresh.Visible = False
LRefresh.Tag = ""
End If
End If
End Sub

Niels