1 2 3 4 5 6 7 8 9 10 11 12 13
| Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For i = 0 To n 'n à définir pour le nombre de textbox que tu veux
Dim TxtBx As New TextBox
Me.Controls.Add(TxtBx)
TxtBx.Size = New Size(l, L) 'l et L entier à définir pour ta taille de textbox
TxtBx.Location = New Point(x + (l + y) * i, z) '"x" à définir soit la position part rapport au bord gauche du container, "y" à définir soit l'espacement entre tes textbox et "z" la position de tes textbox au niveau de la hauteur (elles seront alignées en hauteur)
TxtBx.Name = "Textbox" & i
Next i
End Sub |
Partager