Discussion :

[Skice]

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 :

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
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

[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.

[Skice]

J'ai déjà tester la méthode SelectedItem et quand je rajoute l'option toString, mon application sort l'erreur NullReferenceException

[Gurdil le nain]

Et la propriété SelectedText ?

[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

[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...

[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

[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é...

[AcidLines]

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 :

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
 
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

[Skice]

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