Hallo Gemeinde,

ich habe ein Formular mit vielen Textboxen. Nun möchte ich zum Beispiel zum Leeren aller Boxen nicht jede Box einzeln ansprechen sondern mit einer Schleife und einer Laufvariablen die Boxen leeren.

Ich stelle mir das ungefähr so vor:

Dim lauf

For lauf = 1 to 100
textbox(lauf).text=""
Next

Jedoch scheint das so nicht zu funktionieren. Kann mir da jemand weiter helfen? Wie benenne ich eine Textbox mit einer Variablen im Namen? Geht das überhaupt?

Vielen Dank für eure Hilfe,
Holger

Hallo,

um die Textboxen in einer Schleife zu leeren, fallen mir zwei Möglichkeiten ein:

1. Statt vieler einzelner Textboxen erzeugst Du Dir ein Textbox-Array, d.h. alle Textboxen erhalten den selben Namen aber eine individuelle fortlaufende Index-Nummer (in der Formular-Ansicht ist das die Index-Eigenschaft des Steuerelements).
   
   Dann kannst Du in einer Schleife alle Textboxen des Arrays leeren, z.B. wenn das Textbox-Array Text1 heißt:
   
   
   Code :

   1 2 3 4

   dim i as long for i = Text1.lbound to Text1.ubound step 1   Text1.Item(i).text = "" next i

2. Da Du wahrscheinlich nicht alle Textboxen umbenennen und ihnen eine Index-Nummer zuweisen willst, gibt es noch eine Möglichkeit mit der Du alle Textboxen eines Formulars leeren kannst:
   
   
   Code :

   1 2 3 4 5 6 7

   dim c as control   for each c in controls   if typeof c is textbox then     c.text = ""   endif next c

Vielleicht hat ja noch jemand anders eine praktischere Lösung parat.

Zitat von RamonR

Vielleicht hat ja noch jemand anders eine praktischere Lösung parat.

Ich denke du hast da schon die zwei sinnvollsten Möglichkeiten aufgezeigt.

Hallo RamonR,

vielen Dank für deine Hilfe, die .Item-Lösung funktioniert problemlos.

Liebe Grüße,
Bartmouse

Statt

Code :

1	Text1.Item(i).text = ""

reicht glaub ich auch

Code :

1	Text1(i).text = ""

Und die zweite Möglichkeit kann man auch noch verkürzen:

Code :

1 2 3 4 5

dim c as textbox   for each c in form1.controls     c.text = "" next c

Zitat von schachmat

reicht glaub ich auch

Code :

1	Text1(i).text = ""

Ja, würde vollkommen reichen, ich bevorzuge aber die andere Schreibweise ... jedem das seine

Zitat von schachmat

Und die zweite Möglichkeit kann man auch noch verkürzen:

Code :

1 2 3 4 5

dim c as textbox   for each c in form1.controls     c.text = "" next c

Zitat von Al Borland

Das glaube ich nicht, Tim!

Da nicht jedes Control der Form eine Textbox seien muss, dürftest Du dort auf einen Fehler laufen. Andere Controls haben ja teilweise nicht die .Text Eigenschaft.

Wenn c von vorneherein schon vom Typ Textbox ist, dann geht er in der Schleife auch nur alle Textboxen durch

Zitat von schachmat

dim c as textbox

Hab ich doch glatt den Datentypen überlesen.

Ok, Einwand akzeptiert

Hallo,

man kann es aber auch so schreiben, wenn ich die Frage richtig verstanden habe, um die txtboxen zu leeren:

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub cmdReset_Click()       ClearTextBoxesOnForm   End Sub   Public Sub ClearTextBoxesOnForm()       Dim ctl As Control     For Each ctl In Me.Controls         If TypeOf ctl Is TextBox Then             ctl.Text = ""         End If     Next   End Sub

so schreib ich es immer...

mfg andy

Zitat von schachmat

Und die zweite Möglichkeit kann man auch noch verkürzen:

Code :

1 2 3 4 5

dim c as textbox   for each c in form1.controls     c.text = "" next c

Ich muss das Thema nochmal hochholen, denn der Code funktioniert leider nicht.
Ich hatte es vor langer Zeit auch mal so probiert und hatte noch dunkel in Erinnrerung, dass er nicht klappt (zumindest unter VB6).

Wenn ich o.g. Code verwende ist das Resultat meines Kompilers:

Zitat von VB6-Kompiler

Laufzeitfehler '13':
Typen unverträglich

Deshalb verwende ich schon seit langem:

Code :

1 2 3 4 5 6 7

dim c as control   for each c in controls   if typeof c is textbox then     c.text = ""   endif next c

Nur mal rein Interessehalber: In welcher Zeile meldet er den Fehler?

Er meldet den Fehler in

Code vb:

1	For Each c In Me.Controls

Ja, das kann sein, da Me.Controls ja vom Typen Control ist. Gibt es da vielleicht eine Eigenschaft Me.Controls.Textboxes oder so was in der Art? Bei VB8 sollte das aber schon gehen.... muss ich demnächst mal ausprobieren