VB-Homepage Tipp 304

Alle Controls eines Typs gleichzeitig zurücksetzen

Form1.Cls / List1.Clear / Label1.Caption="" / Text1.Text="" alles Anweisungen, um Objekte zurück zusetzen und meist hat man ja nicht nur einen Vertreter auf der Form. Wenn Sie mit der Index Eigenschaft arbeiten, was der Performance zu Liebe immer genutzt werden sollte, wo es möglich ist, dann haben sie ja noch die Möglichkeit über For i=0 to Label1.UBound    Label1(i).Caption="" Next i sich die Arbeit zu erleichtern, aber wenn Sie viele Commandbutton oder Labels oder oder oder haben, was dann. Na Sie wissen schon ...., dann nutzen Sie fortan diesen Tipp, der alle Objekte eines Typs zurücksetzt. 'ZBsp. für alle Textboxen For Each vControl In Me.Controls          'Me = steht für aktive Form   If TypeOf vControl Is TextBox Then     vControl.Text = ""   End If Next 'ZBsp. für alle Labels For Each vControl In Me.Controls   If TypeOf vControl Is Label Then     vControl.Caption = ""   End If Next Das Ganze ist natürlich genau so gut auf alle anderen Eigenschaften der Objekte anwendbar.

Tipp-Download

Quelle :