[VB] Création de Txtbox en boucle
Gilles
-
ccm81 Messages postés 11033 Statut Membre -
ccm81 Messages postés 11033 Statut Membre -
Bonjour,
Je suis débutant en VB et je voudrais créer un nombre i (défini par l'utilisateur dans une étape précédente) de textbox.
Je suis arrivé à ce bout de code:
Dim monTxt As New TextBox
For i = 0 To j
monTxt.Name = "txtBox" & i
With monTxt
.Visible = True
.Top = 0
.Left = 0
.Width = 300
.Height = 300
End With
i = i + 1
Next
Aucune Textbox ne s'affiche et j'aimerais en créer une ou plusieurs où l'utilisateur peut entrer un "String" puis cliquer sur un bouton "OK" rafraichir la textbox et enregistrer le texte dans une variable. Je suppose qu'il faudrait créer une sorte de modèle mais là aussi je suis bloqué ...
Merci d'avance
Je suis débutant en VB et je voudrais créer un nombre i (défini par l'utilisateur dans une étape précédente) de textbox.
Je suis arrivé à ce bout de code:
Dim monTxt As New TextBox
For i = 0 To j
monTxt.Name = "txtBox" & i
With monTxt
.Visible = True
.Top = 0
.Left = 0
.Width = 300
.Height = 300
End With
i = i + 1
Next
Aucune Textbox ne s'affiche et j'aimerais en créer une ou plusieurs où l'utilisateur peut entrer un "String" puis cliquer sur un bouton "OK" rafraichir la textbox et enregistrer le texte dans une variable. Je suppose qu'il faudrait créer une sorte de modèle mais là aussi je suis bloqué ...
Merci d'avance
1 réponse
-
bonjour
pour creer des textbox un exemple de code
Private Sub CommandButton1_Click() For i = 1 To 5 ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1", Link:=False, _ DisplayAsIcon:=False, Left:=100 * i, Top:=10 * i, Width:=80, Height:= _ 50).Name = "TB" & i Next i End Sub
bon courage pour la suite
