steuerelement text via schleife ändern

[lisa schmitt]

moin moin,

wie kann ich mittels schleife den text von steuerelementen ändern?

bsp zu button02.text:

a = 0
b = 2

me.("button" & a & b).text = "neuer text"

thx

bye

[Thomas Ley]

Hallo,

du kannst die Liste des Formulars in der alle Steuerelemente enthalten sind durchsuchen und nach Namen "ButtonXY" und ggf. nach Typ (InvalidCast-Vorsorge) suchen:

<code>
' Name des gesuchten Buttons
Dim sBtnName As String = "Button1" <br />

' Suchen in allen Controls des Formulars
For Each ctl As Control In Me.Controls
' Suchen nach einem Button mit dem Namen von sBtnName
If TypeOf ctl Is Button And ctl.Name = sBtnName Then
' Casten und Zuweisen der Uhrzeit
CType(ctl, Button).Text = "neuer text"
End If
Next
</code>

Thoma

[Nico Stöckigt]

Hallo!
<br>
...etwas schneller geht's wenn man weiß auf welchem Parent-Controll die Buttons liegen. Wenn alle Buttons auf einem Control liegen, z.B. einem Panel, kann man sich entweder von einem der Buttons das Parent holen oder eben das Panel direkt ansprechen und die Control-List durchlaufen...<br>
Sicherer ist auch der Aufruf:<br>
<font face="Courier New, Courier, monospace">If TypeOf ctl Is Button <b>AndAlso</b> ctl.Name = sBtnName Then </font>
statt
<font face="Courier New, Courier, monospace">If TypeOf ctl Is Button And ctl.Name = sBtnName Then </font><br>
Nix für ungut... <br>
Gruß Nico Stöckigt
&#10