✔ Bestimmen, von welchem Typ ein Control ist

[RamonR]

Hallo Leute,

was ist die wichtigste Eigenschaft eines Programmierers ? Richtig, FAULHEIT

Hier also mein Problem:

Ich will sämtliche Textboxen einer Form beim Load_Ereignis leeren und dachte mir ich benutze die Controls-Auflistung. Allerdings weiß ich jetzt nicht, wie ich bei einem Control den Typ bestimme.

Hier der Code zur Verdeutlichung:

Private Sub Form_Load()
    Dim T As Control
    
    'On Local Error Resume Next
    
    For Each T In Form_Einstellungsbildschirm.Controls
        T.Text = ""
    Next T
        
End Sub

Ohne die Fehlerbehandlung laufe ich natürlich immer auf einen Fehler, da ich auch andere Steuerelemente verwende.

Mit der Fehlerbehandlung geht's zwar, ist aber keine saubere Lösung

Hat jemand eine Idee ?

Danke im Vorraus.

 

[DirkM]

Eigentlich ganz simpel

Private Sub Form_Load()

Dim box As TextBox

    For Each box In Form1
        box.Text = "bla"
    Next box
 
End Sub

 

[RamonR]

So leicht ist es leider nicht.

Fehlermeldung:

Laufzeitfehler 13: Typen unvertrgäglich

 

[DirkM]

Poste doch mal bitte deine Sub Form_Load !

 

[RamonR]

Da ist sie, wie Du Dir denken kannst heißt meine Form 'Form_Einstellungsbildschirm'

Private Sub Form_Load()

    Dim box As TextBox

    For Each box In Form_Einstellungsbildschirm
        box.Text = ""
    Next box

End Sub

 

[DirkM]

Ok, hast ja recht

Versuche es dann doch mal mit TypeOf. Dabei werden dann nur die Textboxen angesprochen.

Private Sub Form_Load()

    Dim Ctrl As Control
    
    For Each Ctrl In Form1
    
        If TypeOf Ctrl Is TextBox Then Ctrl.Text = ""
        
    Next Ctrl

End Sub

 

[RamonR]

Ja, scheint zu funktionieren !

Danke

 

[dignsag]

Hier meine Lösung dazu:
(Gibt den Control Code aus)

 Sub ControlTyp()
 	 Dim ctl as Control
 
 	 For each ctl in Form.Controls
 		  Debug.Print ctl.ControlType
 	 Next ctl
 End Sub

109 zum Beispiel ist hier eine Textbox!