Iets 8 keer herhalen

[HellupUandMe]

Hoi

Ik zou iets graag acht keer willen herhalen
Nu doe ik dat met

Dim i as long
For i = 1 to 8
doe iets
Next i

Dit werkt, maar nu wil ik acht textboxen (textbox1 t/m textbox 8) vullen met het woord "rat".

Hoe kan ik zoiets doen als dit:
Dim a as integer
a = 0
Dim i as long
For i = 1 to 8
a = a + 1
textbox(a).text = "rat"
Next i

Dus dat je met een code acht textboxen kunt vullen zonder een ctrl+c,ctrl+v-code

 

[city guy]

Hi,
wat jij wilt is het toevoegen van controls @runtime

Met de zoekstring "create runtime control array vb6" krijg je daarover veel informatie.

Met het LOAD statement kun je dan een @designtime gemaakte controlarray uitbreiden.

Voor de verschillende VB-versies zijn er verschillende procedures

Toevoeging: in jouw code is het niet nodig om de variabele a te gebruiken. Met i kun je ook hetzelfde bereiken.

 

[xxmart]

Dit is wat jij wilt

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim boxes As New List(Of TextBox)
        boxes.Add(TextBox1)
        boxes.Add(TextBox2)
        boxes.Add(TextBox3)

        For Each box As TextBox In boxes
            box.Text = "rat"
        Next
    End Sub

 

[stefanz]

Dit is wat jij wilt

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim boxes As New List(Of TextBox)
        boxes.Add(TextBox1)
        boxes.Add(TextBox2)
        boxes.Add(TextBox3)

        For Each box As TextBox In boxes
            box.Text = "rat"
        Next
    End Sub

Waarom zo moeilijk

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim text As String = "rat"
        textbox1.text = text
        textbox2.text = text
        textbox3.text = text
    End Sub