Récupérer valeur combobox dans un form

Version imprimable

Bonjour,

Actuellement je suis en trin de développer une application en vb et dans mon code je fais appel à une deuxième fenêtre. Jusque là pas de problème.

Mon problème est que dans cette seconde fenêtre se trouve à la fois une combobox contenant trois valeurs ainsi que deux boutons (valider et annuler). En ce qui concerne annuler rien de bien méchant puisqu'elle ferme la fenêtre mais pour valider c'est une autre paire de manche puisque je voudrai récupérer la valeur de la combobox et m'afficher une MSGBOX pour le moment en fonction de la sélection fait. Le truc c'est que dans les méthodes proposés, la méthode selectedboxitem ne fait pas partie et je patauge un peu car aucune autre méthode ne veut faire ce que je désire.

Je vous met mon code en espérant que quelqu'un arrive à trouver la solution

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
Public Class Form1
 
    Private Sub ComboBox1_DropDownClosed(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.DropDownClosed
        Dim wxp As String = "windows xp"
        Dim wsevde As String = "windows 7 Dell"
        Dim wsevhp As String = "windows 7 HP"
        For i As Integer = 0 To 2
            If (Not ComboBox1.Items.Contains(wxp) Or Not ComboBox1.Items.Contains(wsevde) Or Not ComboBox1.Items.Contains(wsevhp)) Then
                ComboBox1.Items.Add(wxp)
                ComboBox1.Items.Add(wsevde)
                ComboBox1.Items.Add(wsevhp)
            End If
        Next
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim opt As String = ComboBox1.ValueMember.ToString
        If (opt.Contains("xp")) Then
            MsgBox("winxp")
        ElseIf (opt.Contains("7")) Then
            If (opt.Contains("Dell")) Then
                MsgBox("seven dell")
            ElseIf (opt.Contains("HP")) Then
                MsgBox("seven HP")
            End If
        End If
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub
End Class

01/06/2011, 15h58
Gurdil le nain

Tu veux simplement récupérer la valeur sélectionnée dans ta combo ?

Si c'est cela, utilises la propriété SelectedItem.
01/06/2011, 16h03
Skice

J'ai déjà tester la méthode SelectedItem et quand je rajoute l'option toString, mon application sort l'erreur NullReferenceException
01/06/2011, 16h10
Gurdil le nain

Et la propriété SelectedText ?
01/06/2011, 16h16
Skice

C'est une des seules propriétés qui me sort pas d'erreur mais ne m'affiche pas mon p'tit message que j'utilise pour le débogage
01/06/2011, 16h33
Gurdil le nain

Pour déboguer, essayes plutôt le pas à pas en mettant un point d'arrêt au bon endroit (ici avant ton test), pour vérifier la valeur de tes objets...
01/06/2011, 16h42
Skice

Je viens de le faire et effectivement il n'y a rien dans la valeur sur laquelle je fais le test ce qui veut dire que ca vient de la combobox qui ne récupére pas la valeur lu
01/06/2011, 16h50
Gurdil le nain

En même temps, j'avais pas fait gaffe à ton remplissage de Combo...pourquoi tu la remplis à chaque fermeture de celle ci et pas au chargement de ton formulaire ?

A mon avis, ça doit faire planter l'index sélectionné...

Tu cherche a récupérer "ValueMember" qui est une valeur entre "" caché derrière une valeur affichée.
Dans ton remplissage de ta combo tu ne definie pas de "valuemember" dans tes items.
Donc forcement il ne trouve rien derrière ta selection.

De plus Gurdil à raison ton remplissage est incorrect.
Essaye de remplir ton combo sur un load de formulaire ou en fonction d'autre objet de ton formulaire.

Exemple sur load :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Private Sub Entreaide_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim wxp As String = "windows xp" Dim wsevde As String = "windows 7 Dell" Dim wsevhp As String = "windows 7 HP" For i As Integer = 0 To 2 If (Not cbx_test01.Items.Contains(wxp) Or Not cbx_test01.Items.Contains(wsevde) Or Not cbx_test01.Items.Contains(wsevhp)) Then cbx_test01.Items.Add(wxp) cbx_test01.Items.Add(wsevde) cbx_test01.Items.Add(wsevhp) End If Next End sub Private Sub b_msgcbx_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b_msgcbx.Click MsgBox(cbx_test01.SelectedItem.ToString) End Sub

03/06/2011, 11h00
Skice

Merci ca marche très bien avec la fonction load ! Je n'avais pas pensé à changer la fonction