Dim Txt As TextBox Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Dim Top, Left, Width, Height As Integer Dim NumeroTextBox As Integer Top = 10 Left = 10 Width = 100 Height = 20 NumeroTextBox = 1 For i = 0 To 4 - 1 Txt = New TextBox() With Txt .Visible = True .Top = Top 'Definit la distance entre le bord de la fenetre et le bord du conteneur .Left = Left 'Definit la distance entre le bord gauche de la fenetre et le bord du conteneur .Width = Width 'Definit la largeur de l'objet .Height = Height 'Definit la hauteur de l'objet End With Panel1.Controls.Add(Txt) Top = Top + 30 NumeroTextBox = NumeroTextBox + 1 Next End Sub
For k = 0 To CInt(Round(Len(monString) / 8)) - 1
TabTXT(k) = New TextBox
TabTXT(k).Location = New System.Drawing.Point(734, 10 + 25 * k)
TabTXT(k).Name = "TabTXT" & k
TabTXT(k).Size = New System.Drawing.Size(104, 24)
TabTXT(k).TabIndex = k
TabTXT(k).Text = monTab(k)
Me.Controls.Add(TabTXT(k))
Next
Sub DynamicArrayofControls()
Dim i As Integer = 0
ReDim MyLabel(Round(Len(monString) / 8))
For k = 0 To CInt(Round(Len(monString) / 8)) - 1
MyLabel(k) = New Label
With MyLabel(k)
.Name = "Label" & k
.Text = myStrList(i).ToString
.Visible = True
.Location = New System.Drawing.Point(610, 10 + 25 * k)
Me.Controls.Add(MyLabel(k))
i = i + 1
End With
Next
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question