wie Code kürzer gestalten
12.09.2007 10:07:06
Lorenz
Da die Eigenschaften alle gleich sind kann ich mir vorstellen, daß man es mit "Select Case" oder ähnlichen kürzer gestalten kann. Nur wie das ist hier die Frage?
Private Sub LblZusammen_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As _
_
Single, ByVal Y As Single)
With LblNeu
With .Font
.Bold = False
.Italic = False
.Size = 9
End With
End With
With LblWald
With .Font
.Bold = False
.Italic = False
.Size = 9
End With
End With
With Lbl222
With .Font
.Bold = False
.Italic = False
.Size = 9
End With
End With
With lblWest
With .Font
.Bold = False
.Italic = False
.Size = 9
End With
End With
With LblZeitung
With .Font
.Bold = False
.Italic = False
.Size = 9
End With
End With
With LblEingabe
With .Font
.Bold = False
.Italic = False
.Size = 9
End With
End With
End Sub
Danke im Voraus
Lorenz
Anzeige