jeremy
15 déc. 2003 à 22:53
Voila, je pense que ca pourrai t'aider s'il n'est pas trop tard. J'ai eu un peu de mal mais j'ai fouillé un peu partout sur le net des solutions. Mon objectif etait le meme que toi.
Private Sub Valider_Click()
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 & "", Ouverture) 'Ouverture est le nom de ma fenetre
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
End With
Top = Top + 500
NumeroTextBox = NumeroTextBox + 1
Next
End Sub
