Farben von Controls ändern VB-Version:  VB5, VB6
	Views:  501

Sie möchten die Farben der Controls ändern, wenn der Anwender mit der Maus darüber fährt? Und wenn die Maus den Bereich des Controlsverlässt soll wieder die Standard-Farbe angezeigt werden?

Hier mal ein Beispiel mit einem Label und einem CommandButton:

Private Sub Label1_MouseMove(Button As Integer, _
    Shift As Integer, X As Single, Y As Single)
 
    Label1.ForeColor = vbRed    ' Schrift wird rot
    Label1.BackColor = vbBlack  ' Hintergrund wird schwarz
End Sub
 
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, _
    X As Single, Y As Single)
 
    ' Button wird rot - vorausgesetzt Sie haben die 
    ' Style-Eigenschaft auf grafisch gesetzt
    Command1.BackColor = vbRed
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, _
    X As Single, Y As Single)
 
    Label1.ForeColor = vbBlack       ' Schriftfarbe zurücksetzen
    Label1.BackColor = &H8000000F    ' Hintergrundfarbe zurücksetzen
    Command1.BackColor = &H8000000F  ' Buttonfarbe zurücksetzen
End Sub