AW: Aktives Label ansprechen
10.11.2003 15:37:15
Martin
ok, dann also ein paar Infos mehr. Ich habe eine UserForm mit ca 18 Labels. Derzeit arbeite ich bei jedem einzelnen Label mit MouseMove, d.h der gleich Code liegt 18 Mal vor.
Ich dachte mir halt diesen Code nur einmal zu verwenden. Dazu müsste xl beim Durcharbeiten das Label erkennen, auf dem die Maus liegt und dieses Label ansteuern.
So sieht es derzeit aus:
Private Sub l1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ResetLabels
' format "onMouseOver-effect"
With l2
.BackColor = RGB(0, 0, 97)
.ForeColor = RGB(255, 255, 255)
.Font.Bold = True
End With
End Sub
"ResetLabels" ist eine andere Prozedur, die in einer Schleife alle Labels "rückformatiert", bevor mit
With l2
.BackColor = RGB(0, 0, 97)
.ForeColor = RGB(255, 255, 255)
.Font.Bold = True
End With
das "aktive" Label einen Effekt bekommt.
Ich würde halt gerne anstelle des
With l2 ...
einen Code haben, der sinngemäß hier das "aktive" Label formatiert, ohne es direkt anzusprechen. Wie mir scheint geht das aber nicht, oder nur mit Klassenmodulen. Ich hätte es aber gerne so probiert.
Gruss,
Martin