1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
|
Private Sub Command1_Click()
' Déclare la variable.
Dim I
'Positionne le TextBox sur la barre d'outils.et ensuite s'amuse
Text1(0).Move 0, 0, 800, 400
' Crée les autres TextBox.
For I = 1 To 3
' Crée un bouton.
Load Text1(I)
' Place et dimensionne le TextBox.
Text1(I).Top = Text1(I - 1).Top + 500
' Affiche le TextBox.
Text1(I).Visible = True
Next I
' Définit les légendes des TextBox.
Text1(0).Width = 5000
Text1(0).Text = "Au lieu de .Text, tu mets .DataField = ton recordSet!nom du champ."
Text1(1).Text = "Idem"
Text1(2).Text = "Idem"
Text1(3).Text = "Idem"
End Sub |