Coordination entre TextBox et Combobox

Version imprimable

18/06/2014, 11h49
laiiha

Coordination entre TextBox et Combobox

Bonjour,

Je suis novice et je code sous Visual Basic Express 2010.
J'ai une combo box dans laquelle se trouve une petite liste déroulante de noms.
Et deux textboxs, l'une permet de rentrer un nouveau nom et l'autre affiche le nom qui est choisi au final.

Donc j'aimerai les mettre en relation de cette maniere:
Lorsque l'utilisateur regarde les noms et qu'il ne trouve pas celui qu'il veut dans la combo box, il la laisse "vide"puis lorsqu' il va taper son nom dans la Textbox1, et que ce nom s’implémente dans la liste de la combo box.

Pour la dernière "Textbox2" j'aimerai quelle affiche le nom choisi au final.

Tout cela se trouve dans une groupbox. (je sais pas si c'est utile d'en faire la remarque..) :oops:

Merci beaucoup, :zen:

Cordialement,

Laiiha
18/06/2014, 13h41
Kreepz

Bonjour,

Dans un premier temps, si tu es novice je te conseil de jeter un œil a ce tutoriel: http://plasserre.developpez.com/cours/vb-net/

Tu y trouveras toutes tes réponses ;)

Bonjour,

Merci pour ta réponse,
mais j'ai déjà lu la plupart des tutos et je regarde tous les bouts de code mais ils ne marche pas ... je n'ai pas ce que je veux c'est pour ca que j'appel à l'aide ;)
Voici d'ailleurs un bout de code, qui ne marche pas bien évidemment.. et je ne comprends pas pourquoi..
Code:

1 2 3 4 5 6 7 Private Sub CB_NOMS_SN_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CB_NOMS_SN.SelectedIndexChanged If Me.CB_NOMS_SN.Text = " " Then Me.TXTBOX_NOMS_SN.Text = Me.TXTBOX_NOMS_SN_2.Text Else Me.TXTBOX_NOMS_SN.Text = Me.CB_NOMS_SN.SelectedText End If End Sub

18/06/2014, 14h22
mactwist69

Pour tester ce qui ne marche pas, (c'est à dire la ligne de code qui ne fonctionne pas comme tu le voudrais),
utilise un point d'arrêt puis avance au pas à pas en contrôlant ce qu'il y a dans les variables (en passant la souris au dessus de celles-ci).

Fait donc ceci (qui est un travail omniprésent chez les développeurs), dis nous quelle ligne ne fonctionne pas et on t'aidera par la suite.
18/06/2014, 14h40
laiiha

Je viens de le faire et le problème est que rien ne rentre dans mes zones de textes..
18/06/2014, 14h58
mactwist69

Que se passe t il au pas à pas... Dis moi par quelles lignes le code passe.

Désolé d'insister, mais si tu ne sais pas faire ça... tu n'y arriveras jamais.
Tu ne pourras pas développer des programmes en posant des questions et sans comprendre ce qu'il se passe.

Si tu ne comprends pas ce qu'est le "pas-à-pas" ou un "point d'arrêt" commence par chercher ça sur Google...
18/06/2014, 15h03
laiiha

Je comprends trés bien ce que tu veux dire..
Alors mon code ne me releve aucune erreur, il compile parfaitement.
Ensuite, lorsque je passe d'une ligne à l'autre il ne se passe rien sur l'IHM..
Je sais que normalement (car ce code je l'ai fait moi meme), si je mets dans ma combobox la case ou il n'y a rien, et que je rentre du texte dans la textbox, il devrait apparaitre dans l'autre.
et que si je selectionne un nom dans ma liste de la combobox, il devrait apparaitre dans la seconde textbox. Mais rien n'y fait rien n'apparait..

Lorsque tu choisis un champ vide de ta textbox ton premier textbox est il remplit?

Sinon tu peux utiliser l’événement LostFocus sur ta première textbox.
Code:

1 2 3 4 5 6 7 8 9 Private Sub TXTBOX_NOMS_SN_LostFocus(sender As Object, e As EventArgs) Handles TXTBOX_NOMS_SN.LostFocus If Me.CB_NOMS_SN.Text = " " Then Me.TXTBOX_NOMS_SN.Text = Me.TXTBOX_NOMS_SN_2.Text Else Me.TXTBOX_NOMS_SN.Text = Me.CB_NOMS_SN.SelectedText End If End Sub
Lorsque tu rentrera du texte et que tu perdras le focus sur ton textbox cela modifiera le texte du second textbox.
Ou alors tu peux utiliser l'Event TextChanged:
Code:

1 2 3 4 5 6 7 8 9 Private Sub TXTBOX_NOMS_SN_TextChanged(sender As Object, e As EventArgs) Handles TXTBOX_NOMS_SN.TextChanged If Me.CB_NOMS_SN.Text = " " Then Me.TXTBOX_NOMS_SN.Text = Me.TXTBOX_NOMS_SN_2.Text Else Me.TXTBOX_NOMS_SN.Text = Me.CB_NOMS_SN.SelectedText End If End Sub

18/06/2014, 15h57
mactwist69

Citation:

Envoyé par laiiha

Je comprends trés bien ce que tu veux dire..
Alors mon code ne me releve aucune erreur, il compile parfaitement.
Ensuite, lorsque je passe d'une ligne à l'autre il ne se passe rien sur l'IHM..
Je sais que normalement (car ce code je l'ai fait moi meme), si je mets dans ma combobox la case ou il n'y a rien, et que je rentre du texte dans la textbox, il devrait apparaitre dans l'autre.
et que si je selectionne un nom dans ma liste de la combobox, il devrait apparaitre dans la seconde textbox. Mais rien n'y fait rien n'apparait..

Premier cas de figure :

Tu sélectionnes dans le combobox, le ligne vide, le texte du textbox2 va dans le 1.
Si tu n'as rien. Deux solutions:
-> ton If est incorrect
-> il n'y a pas de texte dans textbox2

Si il y a du texte dans textbox2, cela veut dire, que le test du IF est faux.
Donc Me.CB_NOMS_SN.Text ne contient pas " "

Donc j'en reviens au point d'arrêt.

Si tu mets un point d'arrêt sur le IF, que tu mets ta souris sur ".Text" de "Me.CB_NOMS_SN", tu verras ce qu'il y a dedans.
Il y a peut être juste une chaine vide, ou une chaîne d'espace plus grande que deux espaces...

Et comme ça, tu pourras refaire ton If correctement.

Deuxième cas de figure :

Tu sélectionnes un élèment dans ta combobox, il devrait aller dans le textbox1.
Mais rien n'y fait.

Mets un point d'arrêt sur la ligne : textbox1.text = combobx.selected text
Quand la ligne est surlignée en jaune, passe ta souris au dessus de selectedtext. Si il ne t'affiche rien, ca veut dire qu'il y a un problème avec selected text.

Et en effet il y a parfois des problèmes avec cette propriété (perte de focus).

Regarde ce cas, et on verra quelle autre propriété peut convenir. (.Text par exemple tout simplement).
18/06/2014, 16h17
CLeBeR

Salut,
Je passe en coup de vent, je n'ai pas lu entièrement la discussion mais il y a un truc pour moi qui ne va pas dans ton code c'est l'espace dans ta chaine de caractère. Tu pourrais même le remplacer par la propriété IsEmpty.
18/06/2014, 16h17
mactwist69

Citation:

Envoyé par Kreepz

(...) l’événement LostFocus sur ta première textbox. (...)

Je ne trouve pas que LostFocus et TextChanged soient adapté pour ce genre de cas.
Pourquoi faire compliqué...

Si on veut faire quelque chose à la sélection d'un élément du combobox, pourquoi prendre autre chose que SelectedIndexChanged ?

Par exemple Focus se déclenchera si on clique sur le combobox puis ailleurs, sans changer d'élèment...
Et je suis sûr qu'il se déclenchera dans plein d'autres cas...

Et puis si tu dois retoucher la code un an plus tard... Va te souvenir que c'est en perdant le focus d'un control que tu sélectionnes un élément...
Sur un gros projet il faut bien choisir son événement.
18/06/2014, 16h20
mactwist69

Citation:

Envoyé par CLeBeR

Salut,
Je passe en coup de vent, je n'ai pas lu entièrement la discussion mais il y a un truc pour moi qui ne va pas dans ton code c'est l'espace dans ta chaine de caractère. Tu pourrais même le remplacer par la propriété IsEmpty.

C'est gentil d'aider, mais si tu avais lu quelques messages plus haut, tu aurais vu que j'essai de lui apprendre à debugger toute seule... ;)
18/06/2014, 21h22
wallace1

Citation:

Envoyé par mactwist69

C'est gentil d'aider, mais si tu avais lu quelques messages plus haut, tu aurais vu que j'essai de lui apprendre à debugger toute seule... ;)

Je plussois mactwist69 :ccool:, et je pense cleber que tu voulais parler du champ String.Empty et non IsEmpty qui n'existe pas et encore moins IsNullOrEmpty qui est une méthode !!
18/06/2014, 22h10
CLeBeR

Citation:

Envoyé par wallace1

je pense cleber que tu voulais parler du champ String.Empty

Oui exact ! Je vous laisse gérer vous êtes plus expérimentés :roll:
19/06/2014, 09h09
laiiha

Salut à tous !

Merci à tous pour votre aide, mais en effet il est plus judicieux pour plus tard d'apprendre a débeuger mon programme..

Alors en faisant ce que tu m'as dit je me suis aperçu, que mon IF etait comment dire .. Bizarre
En fait il n'attend pas que je choisisse le nom dans la liste. Il le laisse comme si il n'y avait rien. et il saute directement au Else.
Et pour l'autre textBox c'est pareil, j'ai beau écrire dedans.. rien ne sort.. (avec le point d'arret sur la deuxieme ligne).

Je ne comprends pas .. pourtant mes conditions semblant compréhensibles.. :calim2:

Bonjour,

Juste pour information, il est possible de faire exactement ce que vous voulez avec un seul et même contrôle : un ComboBox.

Le contrôle ComboBox dispose des propriétés .AutoCompleteSource, .AutoCompleteMode.
En jouant avec cela, on peut faire en sorte que:

Si l'utilisateur sélectionne un item dans la liste, la propriété .DisplayMember est affichée.
Si l'utilisateur tape du texte dans le ComboBox, le contrôle lui propose des Items qui répondent à ce qu'il a commencé à taper. Ex : l'utilisateur tape "DU" le combobox va proposer tout les items dont le DisplayMember commence par "DU".
Si le texte tapé n'est pas dans l'AutoCompleteSource, il faut le gérer par code.

Le code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
 
Public Class Form1
 
    Dim lstClients As New List(Of Client)
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'On va initialiser tout ce dont on a besoin
        'Pour tester, j'ai créé un objet Client avec une propriété RaisonSociale de type String.
 
        'Pour commencer, on ajoute des clients à la liste de clients
        lstClients.Add(New Client("DURAND Pierre"))
        lstClients.Add(New Client("DURAND Yves"))
 
        'Ensuite, on paramètre le contrôle ComboBox pour qu'il affiche ma liste de clients
        Me.ComboBox1.DataSource = lstClients
        Me.ComboBox1.DisplayMember = "RaisonSociale"
 
        'On paramètre le combobox pour activer l'autocomplete
        Me.ComboBox1.AutoCompleteMode = AutoCompleteMode.SuggestAppend
        Me.ComboBox1.AutoCompleteSource = AutoCompleteSource.ListItems
 
    End Sub
 
    Private Sub ComboBox1_Validating(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ComboBox1.Validating
        'On se sert de l'évènement .Validating du combobox pour vérifier si le nom saisit correspont à une entrée dans la liste
        Dim str As String = Me.ComboBox1.Text
        'Petite requête Linq 
        Dim result = From cli As Client In Me.lstClients Select cli.RaisonSociale
        'Si le résultat de la requête ne contient pas le nom du client, on demande à l'utilisateur s'il veut l'ajouter
        If Not result.ToList.Contains(str) Then
            'S'il répond Oui, on ajoute un nouveau client à la liste et on reconfigure le combobox pour faire l'affichage.
            If MessageBox.Show("Le client: " & str & " n'existe pas, voulez vous le créer?", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
                Dim cli As New Client(str)
                Me.lstClients.Add(cli)
                Me.ComboBox1.DataSource = Nothing
                Me.ComboBox1.DataSource = lstClients
                Me.ComboBox1.DisplayMember = "RaisonSociale"
                Me.ComboBox1.SelectedItem = cli
            Else
                'Si non, on annule.
                e.Cancel = True
            End If
        End If
    End Sub
 
End Class
 
Public Class Client
 
    Public Overridable Property RaisonSociale As String
 
 
    Public Sub New(ByVal _Raisonsociale As String)
        Me.RaisonSociale = _Raisonsociale
    End Sub
 
End Class

Cordialement.

19/06/2014, 12h53
mactwist69

Citation:

Envoyé par laiiha

Salut à tous !

Merci à tous pour votre aide, mais en effet il est plus judicieux pour plus tard d'apprendre a débeuger mon programme..

Alors en faisant ce que tu m'as dit je me suis aperçu, que mon IF etait comment dire .. Bizarre
En fait il n'attend pas que je choisisse le nom dans la liste. Il le laisse comme si il n'y avait rien. et il saute directement au Else.
Et pour l'autre textBox c'est pareil, j'ai beau écrire dedans.. rien ne sort.. (avec le point d'arret sur la deuxieme ligne).

Je ne comprends pas .. pourtant mes conditions semblant compréhensibles.. :calim2:

Bon alors... On va refaire et tu vas m'expliquez plus clairement.

Pour ton premier cas, il s'agit bien de:
-> Sélectionner le premier élément, qui est vide ? C'est bien ça ?
(C'est peut être clair pour toi, mais répète les choses clairement, sinon ça peut durer longtemp)

-> Moi je voudrai, ou plutot, TOI tu voudrais savoir si on a sélectionné cet élément vide.
Or ton test If Me.CB_NOMS_SN.Text = " " Then est toujours faux.

Donc, il n'y a qu'un chose à faire pour comprendre ce qui ne va pas:
1) tu mets un point d'arrêt sur le IF.
2) Tu lances ton programme, tu sélectionne l'élèment vide
3) La ton code s'arrete sur le point d'arrêt.
4) tu places ta souris sur .Text de If Me.CB_NOMS_SN.Text = " " Then
5) La un info-bulle, va te dire ce qu'il y a dans texte.

-> Et moi je veux que tu me dises ce qu'il y a dedans.

(Et par exemple si il te dis que .Text="", ça veut dire que ton IF devrait être : If Me.CB_NOMS_SN.Text = "" Then)
19/06/2014, 13h58
laiiha

Merci,
Alors oui en premier c'est bien de sélectionner un nom dans cette Liste.
Mais si le nom (que l'utilisateur cherche) n'y est pas, alors l'utilisateur met la ligne "" de la liste et il doit aller dans texbox1 pour entrer le nouveau nom à ajouter a la liste de la combobox.

Pour ce qui est du debug a la ligne du IF-Then,
dans l'info bulle j'ai bien ce que j'ai sélectionné dans ma combobox, soit "" ,soit les noms de la liste

Alors il y a quelque chose que tu fais mal.
C'est n'est pas tellement un problème technique que tu as mais plutôt un problème de compréhension... ou de traduction entre ce que tu veux faire et ce que tu fais dans le code.
Code:

1 2 3 4 5 6 If Me.CB_NOMS_SN.Text = " " Then Me.TXTBOX_NOMS_SN.Text = Me.TXTBOX_NOMS_SN_2.Text '<------ a quoi sert cette ligne car si l'utilisateur sélectionne "", il doit aller tout seul dans le textbox Else Me.TXTBOX_NOMS_SN.Text = Me.CB_NOMS_SN.SelectedText 'essaie plutot Me.TXTBOX_NOMS_SN.Text = Me.CB_NOMS_SN.Text End If

19/06/2014, 14h42
laiiha

Citation:

Envoyé par mactwist69

Alors il y a quelque chose que tu fais mal.
C'est n'est pas tellement un problème technique que tu as mais plutôt un problème de compréhension... ou de traduction entre ce que tu veux faire et ce que tu fais dans le code.

Oui j'ai souvent du mal à traduire ce que je veux faire en code ..

Citation:

Envoyé par mactwist69

Me.TXTBOX_NOMS_SN.Text = Me.TXTBOX_NOMS_SN_2.Text '<------ a quoi sert cette ligne car si l'utilisateur sélectionne "", il doit aller tout seul dans le textbox

cette ligne voulait dire que si l'utilisateur sélectionne "" alors textbox2 = ce que l'utilisateur écrit dans textbox1.
Sinon (else) textbox2 prends la valeur de ce qu'a selectionné l'utilisateur dans la liste de la combobox.

De plus je viens de tester en changeant le selectText par .Text et ca marche pour la combobox Merci :D
19/06/2014, 14h56
mactwist69

aaaaaaaaaaaahhhhhhh je comprends mieux...
Il a fallu un peu de temps, mais on y est arrivé. :aie:

Bon, il faut que tu comprennes quelque chose... :weird:
Quand un événement se déclenche... (chez toi, c'est quand l'utilisateur sélectionne un élément), tout le code de la procédure va s’exécuter en une fraction de seconde.

Donc dans ton code, si l'utilisateur sélectionne "". le code ne va pas attendre que l'utilisateur va dans textbox1, attendre qu'il tappe un nom, deviner quand il a terminer, pour le mettre dans textbox2. non,non non.

Dans l'évènement selectedindexchanged de ton combobox, il n'y a qu'un chose qui t'interesse : si il selectionne un nom, alors tu le mets dans textbox2. si c'est vide, ne rien faire.

si l'utilisateur ne trouve rien, il prends la ligne vide, il va aller tout seul comme un grand dans le textbox1 pour ajouter un nom.
Et là, tu dois lui mettre un bouton avec le titre "Ajouter", et là, quand il aura finis de saisir, il clique et toi tu sais qu'il a finis de saisir, dans le code de l'évènement boutton_Click tu vas mettre le texte de textbox1 vers textbox2.

Bon, ça a part. Au vue de tes questions... Je te suggère tout de même de voir le cours de plasserre http://plasserre.developpez.com/cours/vb-net/, et de faire les exercices... Car il y a des bases a apprendre. Sinon ça risque d'être dur pour toi. Il n'y aura pas tout le temps quelqu'un pour reprendre les bases avec toi.

Normalement ici, c'est pour les gens, qui savent ce qu'ils veulent faire mais n'y arrive pas a cause d'un problème technique... Pas vraiment pour un cours... tu vois ce que je veux dire ?
19/06/2014, 15h11
laiiha

OKOK.

Merci pour ton aide déjà en tout cas, et de ton explication.

Cordialement,

Laiiha
19/06/2014, 15h38
mactwist69

Pas de souci.

Marque comme Résolu !

A+

bonjour,

J'ai bien pris connaissance du tuto, Mais j'ai une petite question..
J'ai réussi à faire ce que je voulais avec le boutton ajouter pour ajouter mon text dans la fameuse text box, j'ai aussi réussi à rajouter ce texte dans la liste de ma combobox.
MAIS, lorsque je ferme le programme, ce que j'ai ajouter en clickant sur "ajouter" dans la combobox disparait, alors que j'aimerai qu'il soit enregistré 'en dur' dans cette liste.
Or je ne peux pas le rentrer "manuellement" dans le code car l'utilisateur n'aura pas acces à ce code (bien evidemment).
Quelle serait la solution ?

VOici mon code:
Code:

1 2 3 4 5 6 'Le boutton ajouter va ajouter le texte dans la textbox et dans la liste de la combobox Private Sub BT_AJOUTER_NOM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_AJOUTER_NOM.Click Me.TXTBOX_NOM_SN.Text = Me.TXTBOX_NOM_SN_1.Text CB_NOM.Items.Add(Me.TXTBOX_NOM_SN.Text) End Sub

20/06/2014, 10h59
Rainui

Bonjour,
Il y a plein de possibilités :
Enregistrer les Items dans un objet sérialisé, un fichier texte ou dans une variable d'application (setting)
Alimenter le combobox avec une base de données si l'application en a une...

Cordialement.

PS: Bien qu'en ayant tourné la première question dans tout les sens, je ne comprends toujours pas l’intérêt logique d'utiliser 3 contrôles alors qu'un seul fait l'affaire...
20/06/2014, 11h34
laiiha

Merci,

Pourriez vous m'expliquer plus en detail cette premiere méthode ? et m'aiguiller au niveau du code ?

Pour ce qui est du PS, c'est tout simplement parce que mon cahier des charges me demande de faire comme cela, afin que ce soit intuitif à l'utilisateur.
20/06/2014, 14h02
laiiha

Pensez vous que je puisse utiliser comme variable de stockage une collection ?
20/06/2014, 14h20
Kreepz

Citation:

Envoyé par laiiha

Pensez vous que je puisse utiliser comme variable de stockage une collection ?

Normalement à la fermeture tu perdras toutes informations de ta collection.

Regarde le post de "Rainui" un peu plus haut :)

Concrètement ton application devra répondre à quoi plus tard? Car si tu fais un fichier texte alors qu'au final tu auras besoin d'une base de donnée :?
20/06/2014, 14h34
laiiha

Citation:

Concrètement ton application devra répondre à quoi plus tard? Car si tu fais un fichier texte alors qu'au final tu auras besoin d'une base de donnée

En gros tous les noms rentrés dans cette combobox, doivent pouvoir être modifiables.. Soit on peut rajouter un nom soit en supprimer un.
A la guise de l'utilisateur.. :|