[VB] Création de Txtbox en boucle Fermé

Question

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

Configuration: Windows 7 / Microsoft Visual Studio 2005

ccm81 · Answer

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

[VB] Création de Txtbox en boucle

1 réponse

Discussions similaires