Discussion :

[ManonB]

Bonsoir,
Je suis une débutante en langage VB et surtout pas très douée en programmation !
J'ai un petit soucis avec une combobox.
Je vous explique : alors j'ai une liste (list of) de menu qui est composée de plusieurs plats (il y a plusieurs plats par menu).
Je souhaite insérer cette liste de menu dans une combobox, puis suivant le choix de l'utilisateur (le choix du menu) la liste de plat correspondant au menu devra s'afficher dans une autre combobox. (j'espère être assez claire ^^)
Alors je voulais commencer par afficher les différents menu dans ma combobox1 :

Code :

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

1
2
3
4
5
6
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        ComboBox1.Items.Add("Menu Enfant")
        ComboBox1.Items.Add("Menu Doubiste")
        ComboBox1.Items.Add("Menu Anglais")
        ComboBox1.Items.Add("Menu Italien")
    End Sub

Mais quand je compile ma combobox reste vide.
Merci pour votre aide !
Et passez de bonnes fêtes
Manon

[Theze]

Bonsoir Manon,

Mets ce code dans le chargement de ta Form (Form_Load) pour qu'il soit rempli dès l'affichage :

Code :

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

1
2
3
4
5
6
7
8
 
 
With ComboBox1.Items
    .Add("Menu Enfant")
    .Add("Menu Doubiste")
    .Add("Menu Anglais")
    .Add("Menu Italien")
End With

Hervé.

[ManonB]

Merci pour la réponse rapide !!
Alors j'ai une autre question (débile je l'avoue) : où se trouve Form_load?

[Theze]

Re,

Tu double clique sur une partie libre de la Form et ceci doit ouvrir le module et créer la sub Form_Load

Hervé.

[ManonB]

Oki, alors quand je double clic sur ma combobox j'obtient :

Code :

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

1
2
3
4
5
6
7
8
 Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        With ComboBox1.Items
            .Add("Menu Enfant")
            .Add("Menu Doubiste")
            .Add("Menu Anglais")
            .Add("Menu Italien")
        End With
    End Sub

Donc j'essaye de changer "selectedIndexChanged" par Form_Load comme ci-dessous, mais rien ne fonctionne ...

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub ComboBox1_Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.FormLoad
        With ComboBox1.Items
            .Add("Menu Enfant")
            .Add("Menu Doubiste")
            .Add("Menu Anglais")
            .Add("Menu Italien")
        End With
    End Sub

(pour info j'utilise studio 2010)

[Bob Langlade]

Quand on débute, il est plus évident de laisser Visual Studio générer le bon code pour les évènements.

Comme Theze l'a écrit, il suffit de double cliquer sur un endroit vide de ta form pour que l'IDE te génère l'évènement Load.

Code :

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

1
2
3
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub

Tu peux aussi accéder à la génération du code des évènements en cliquant sur le combobox de gauche dans la fenêtre de code, pour sélectionner le contrôle sur lequel tu veux agir, puis sur le combobox de droite pour sélectionner l'évènement qui t'intéresse.

Dans ton cas, tu crées un évènement qui n'existe pas (Form_Load) pour un Combobox.

Le code suivant pourra peut-être t'aider:

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
33
34
35
36
37
38
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        With ComboBox1.Items
            .Add("Menu Enfant")
            .Add("Menu Doubiste")
            .Add("Menu Anglais")
            .Add("Menu Italien")
        End With
        ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
        ComboBox2.DropDownStyle = ComboBoxStyle.DropDownList
    End Sub
 
 
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        ComboBox2.Items.Clear()
        Select Case ComboBox1.SelectedItem
            Case "Menu Enfant"
                With ComboBox2.Items
                    .Add("Hamburger")
                    .Add("Jambon")
                    .Add("Pizza")
                    .Add("Glace")
                End With
            Case "Menu Doubiste"
 
            Case "Menu Anglais"
 
            Case "Menu Italien"
        End Select
    End Sub
 
    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
        'Action à réaliser
    End Sub
 
 
End Class

Pour apprendre, il y a l'excellent cours de Monsieur Lasserre : http://plasserre.developpez.com/cours/vb-net/