Textboxen selecteren met tag

[Doofenshmirt]

Ik wil graag ongeveer 50 van de 70 textboxen tijdens starten van het programma een tekst geven van " 0 "

Dit wil ik graag doen door die 50 textboxen een tag te geven bv de naam Nul, ik heb wel gevonden waar ik Nul moet neerzetten .

Welke code moet ik dan gebruiken om die " 0 " te laten zien tijdens Formload?

 

[MartinJM]

Je hebt het dus over 50 textboxen die de tag 'Nul' hebben die gevuld moeten worden met een 0?

Je zou zoiets kunnen gebruiken:
[CPP] For Each Ctrl As Control In Me.Controls
If TypeOf Ctrl Is TextBox Then
If CType(Ctrl, TextBox).Tag = "Nul" Then
CType(Ctrl, TextBox).Text = "0"
End If
End If
Next[/CPP]

Maar is het niet misschien makkelijker om alleen die textboxen in een apart panel te zetten en ze dan te doorlopen? Dan hoef je ook niet alle tag's op "Nul" te zetten.....

MartinJM

 

[Doofenshmirt]

Hoi MartinJM ,

Je code werkt , bedankt.

Maar inderdaad 50 keer is best veel , ik heb de textboxen in 2 groupboxen gezet .

Groupbox2 en Groupbox5 .


Welke code moet ik dan gebruiken zonder Tag te gebruiken ?

 

[MartinJM]

Zoiets:
[CPP] For Each Ctrl As Control In GroupBox1.Controls
If TypeOf Ctrl Is TextBox Then
CType(Ctrl, TextBox).Text = "0"
End If
Next

For Each Ctrl As Control In GroupBox2.Controls
If TypeOf Ctrl Is TextBox Then
CType(Ctrl, TextBox).Text = "0"
End If
Next[/CPP]

Ik heb de namen niet veranderd, dat zal je zelf moeten doen. Maar dat zal wel lukken.

MartinJM

 

[Doofenshmirt]

Het werkt goed , bedankt :thumb: