1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
|
Dim Top, Left, Width, Height, i As Integer
Dim NumeroTextBox As Integer
Dim TextBoxName As String
Top = 150
Left = 150
Width = 2000
Height = 275
NumeroTextBox = 1
For i = 0 To 4 - 1
TextBoxName = "NomdelaTextBox" & NumeroTextBox
Set TextBox = Controls.Add("VB.textbox", "" & TextBoxName & "", Me.Name)
With TextBox
.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
.Font.Size = 8 ématiqu
End With
Top = Top + 500
NumeroTextBox = NumeroTextBox + 1
Next |
Partager