Discussion :

[tilily]

Bonjour a tous et merci d'avance pour votre aide.

Je suis débutante, en stage, a créer un appli de gestion de commerce.

J'ai créer dynamiquement dans un form 2 colonnes de textbox :

la 1ere alimentée parles données de mon datareader de ma BDD
la 2eme doit etre remplié par l'utilisateur.

Et cette 2eme colonne je n'arrive pas a trouver comment retrouver ces données rentrée par l'utilisateur apres clic sur un bouton.

Je suis dessus depuis 2 jours et je ne trouve pas, je suis un peu desesperée. je sais que ca a un rapport avec une collection, mais je n'en avais jamais vraiment manipuler.

J'espere que vous pourrez m'aider.

[MetalGeek]

Salut,
qu'entends-tu par créer "dynamiquement" des textboxes ? Tu les a créées par le code? SI tel est le cas, ajoute-les par exemple dans une collection du style dictionary<> déclaré comme champ de ton formulaire pour les retrouver par la suite, et récupère les infos avec par ex. "myDictionary[cleDeMaTextBoxToto].Text"

[tilily]

oui j'ai crée mes textbox en code, suivant le nombre d'enregistrement de ma BDD
Comment je les ajoute dans une collection, dans ma boucle de création ?
c'est une partie qui est completement obscur pour moi.
Merci

je te fais un copie de mon code de creation ca t'aidera peut etre a m'aider...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
 
Pbox = New TextBox
                Me.Controls.Add(Pbox)
 
 
                Pbox.name = "TextPrix" & x + 1
                Pbox.text = ""
                Pbox.width = 70
                Pbox.height = 20
                Pbox.Left = 385
                Pbox.top = 237 + (x * 27)

[Sehnsucht]

Bonjour,

Pbox.name = "TextPrix" & x + 1

J'imagine déjà que cette variable "x" est incrémentée à chaque nouveau contrôle Textbox que tu ajoutes.

le plus simple ici à mon avis serait de faire quelque chose comme ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
' A mettre en tant que variable de la classe
' Va stocker le contenu de tes TextBox
Private champs As New StringDictionary()

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
' A mettre dans ta procédure de création
' nbEnreg = nombre d'enregistrements de ta BDD
For cptTextBox As Integer = 0 To nbEnreg - 1
    Using PBox As New TextBox()
        With PBox
            .Name = String.Format("TextPrix{0}", cptTextBox + 1)
            .Text = String.Empty
            .Width = 70
            .Height = 20
            .Left = 385
            .Top = 237 + (cptTextBox * 27)
            ' Ajoute un élément dans le dictionnaire
            ' Avec le nom du TextBox comme clef initialisé à vide
            champs.Add(.Name, String.Empty)
            ' Crée un gestionnaire d'évènement commun
            ' à tout tes TextBox pour l'évènement LostFocus
            AddHandler .LostFocus, AddressOf mesTextBox_LostFocus
        End With
        Controls.Add(PBox)
    End Using
Next

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
' A ajouter quelque part dans ta classe
' le gestionnaire de l'évènement LostFocus de tes TextBox
Private Sub mesTextBox_LostFocus(ByVal sender As Object, e As EventArgs)
    ' Récupère le contrôle (TextBox) qui a provoqué l'évènement
    Dim cibleTextBox as TextBox = DirectCast(sender, TextBox)
    ' Modifie la valeur du dictionnaire correspondant à ce TextBox
    champs(cibleTextBox.Name) = cibleTextBox.Text
End Sub

Il ne te restera plus qu'à récupérer les valeurs du dictionnaire lors du clic sur le bouton.

En espérant avoir pu t'aider, n'hésite pas à demander si le besoin s'en fait ressentir.

[tilily]

merci de m'avoir repondu, je vais essayer ca, ce soir ou demain
je te tiens au courant.

[tilily]

bon j'ai essayé et mes textbox ne s'affiche plus du tout

je sais pas si ca change quelques chose mais en meme temps que je crée ces textboxs, j'en crée d'autres et des combobox...peut etre que ca derange..en tout cas eux s'affiche