Comment créer dynamiquement une textbox

Question

Bonjour je m'explique,



j'ai une listbox dans laquel sont affich&#233; tout les champs de la table toto d'une base de donn&#233;es.

Je cherche &#224; r&#233;alis&#233; un bouton qui ajouter une nouvelle valeur dans ma
table toto. pour cela mon bouton ouvrirai une fen&#234;tre dans laquel
serait cr&#233;er automatique x label et x textbox ("x" correspondant au
nombre d echamp pr&#233;sent dans la table toto et affich&#233; dans ma liste
box). Les labels me servirai &#224; afficher le nom de mes champs et les
textbox la valeur que je veu affecter &#224; ces champ.



Private Sub NewEnr2_Click()



    Dim i As Integer

    Dim nom(50, 1) As String



     'Affiche a la feuille que je
veu faire appara&#238;tre (feuille new_enr) le titre "Nouvelle
enregistrement pour  " le nom d ema table""

    new_enr.titre.Caption = "Nouvelle enregistrement pour " & List1.Text & " :"   

     

    For i = 0 To 9

        new_enr.nom_champ(i).Visible = False   'nom_champ correspond aux labels

        new_enr.txt_new_val(i).Visible = False   'txt_new_val correspond aux text box

    Next i

        

    For i = 0 To List2.ListCount - 1

        nom(i, 1) = List2.List(i)

        new_enr.nom_champ(i).Visible = True

        new_enr.txt_new_val(i).Visible = True

        new_enr.nom_champ(i).Caption = nom(i, 1) & " :"

    Next i

    

    new_enr.Visible = True   'Affiche la feuille avec les Labels et TextBox



End Sub



Le probl&#232;me de ce code est le suivant :

Il n&#233;cessite d'avoir cr&#233;er &#224; l'avance 10 label et textbox que je rend
invisible avant le chargement de la feuille puis affiche le nombre
n&#233;cessaire pour visualiser tout mes champs.



Le pb est que ce code permet de g&#233;rer les tables qui n'ont pas plus de 10 champs.

Moi ce que je voudrai c'est : apr&#232;s avoir compter le nombre de champ,
cr&#233;er dynamique un nombre de label et textbox correspondant &#224; ce nombre
de champ.



Je pense qu'il faut utiliser la fonction load mais je n'y arrive pas.



Si quelqu'un peut m'aider.



Merci d'avance

nhervagault · Answer

Salut,



Pour repondre a ta demande il faut utiliser l'index des controles



Tu cr&#233;e un labl(0) invisible (le laisser invisible)

Et apres tu fais 

Load label(i)

label(i).visible = true

label(i).top = ....



....



Esperant t'avoir guider



J'ai un vieux messages sur le forum qui explique mieuxmais j'ai pas le temps de chercher dsl:,

jpleroisse · Answer

Bonjour,

Voici un exemple de cr&#233;ation de Texbox dynamique.Place sur ta Form Un TextBox avec l'index &#224; 0 et un CommandButton.



Private Sub Command1_Click()

' D&#233;clare la variable.

   Dim I

 'Positionne le bouton sur la barre d'outils.et ensuite s'amuse

   Text1(0).Move 0, 0, 700, 300

   ' Cr&#233;e les autres boutons.

   For I = 1 To 3

      ' Cr&#233;e un bouton.

      Load Text1(I)

      ' Place et dimensionne le bouton.

      Text1(I).Move I * 800, 0, 800, 300

      ' Affiche le bouton.

      Text1(I).Visible = True

   Next I

   ' D&#233;finit les l&#233;gendes des boutons.

   Text1(0).Text = "Bonjour"

   Text1(1).Text = "comment"

   Text1(2).Text = "vas"

   Text1(3).Text = "tu ?"

End Sub



jpleroisse

olivier857 · Answer

Ok merci les gars ca doit &#234;tre ca que je veu.

Je vais tester.

nhervagault · Answer

Aller une deuxieme methode a tester

J'ai pas test&#233; 
For i = 1 to inI

Form1.Controls.Add "VB.Textbox", "Text" & (i)
 Dim oLabel As VB.TextBox
 Set oLabel = Form1.Controls("Text" & CStr(i))
 
 With oLabel
     .Top = var_num1
     .Visible = True
     .Text = "Hello" & i
     .Left = 100
 End With

 var_num1 = var_num1 + 800

olivier857 · Answer

Ca marche tr&#232;s bien, encore merci de votre aide.

Comment créer dynamiquement une textbox

5 réponses

Discussions similaires