[VB] Création de Txtbox en boucle
Gilles
-
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- [VB] Création de Txtbox en boucle
- Creation de compte google - Guide
- Creation de site web - Guide
- Creation compte gmail - Guide
- Media creation tool - Télécharger - Systèmes d'exploitation
- Vb - Télécharger - Langages
1 réponse
bonjour
pour creer des textbox un exemple de code
bon courage pour la suite
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