Mouseover geht das

Jukkales

Erfahrenes Mitglied
ich will versuchen wenn ich mit der maus über einen button gehe das in einem darunter angezeigten label ein texte angezeigt wird. Zu jedem Button ein andere text. kennt jm. einen code
 
Versuch´s mal so:
Code:
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = "Text für CommandButton1"
End Sub

Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = "Text für CommandButton2"
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = ""
End Sub
 
Zuletzt bearbeitet:
Zurück