Klassenprogrammierung
19.03.2017 13:06:48
Rosenfeld
ich möchte Steuerelemente als Klasse zusammenfassen.
Bei CheckBoxen funktioniert das mit der folgenden Anweisung auch prima, nur nicht bei SpinButton. da erhalte ich mit der Set Anweisung die Fehlermeldung "Methode oder DatenObjekt nicht gefunden"
Zähler = 0
With Frame14
For Each cb In Frame14.Controls
If TypeName(cb) = "SpinButton" Then
Zähler = Zähler + 1
ReDim Preserve SpinButtonNr(1 To Zähler)
Set SpinButtonNr(Zähler).SpinButtonNr = cb
End If
Next cb
End With
Wie muss ich den Code anpassen?
Gruß
Siegfried