MouseMove/ Steuelement allgemein ansprechen
07.10.2003 16:49:31
Martin
habe in der Recherche den Weg gefunden, wie man mit 'MouseMove' den (sicherlich überflüssigen) aber netten Effekt erzielen kann, Buttons, Labels etc entsprechend anders farblich zu markieren. Das funktioniert auch soweit.
Eine Arbeitsmappe von mir enthält viele Tabellen. Zur Navigation habe ich ein Menü erstellt, dh Labels in einer Userform, die einen direkt ins entsprechende Blatt bringen. Dieses Menü hat zwei Spalten mit einmal 8 und einmal 10 Labels (die auch noch eine unterschiedliche BackColor haben).
Würde ich den MouseMove-Code für alle meine Labels eingeben, hätte ich sehr viel Code, der aufgrund der unterschiedlichen Farben in den Labels recht aufwendig wird. Hier ein Auszug, wie ich angefangen habe ..
Private Sub lCSGer_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
lCSGer.BackColor = &H80000002
lCSGer.ForeColor = &HFFFFFF
lCSFr.BackColor = &H8000000A
lCSFr.ForeColor = &H0&
End Sub
Private Sub lCSfr_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
lCSFr.BackColor = &H80000002
lCSFr.ForeColor = &HFFFFFF
lCSGer.BackColor = &H8000000A
lCSGer.ForeColor = &H0&
End Sub
usw.
Dies sind jetzt nur zwei gleichfarbige Labels, bei 18 sieht es schon anders aus.
Frage: Es gibt doch sicherlich eine Möglichkeit (Schleife?), die zu vereinfachen oder muss ich da durch und den Code so wie er angefangen wurde für alle Elemente durchziehen?
Gruss,
Martin