Rubrik: Fenster & Forms | 15.05.02 |
Farben von Controls ändern VB-Version: VB5, VB6 | ||
Views: 20.489 |
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