Discussion :

[douezz]

Bonjour,
j'essaye de faire un case dans un case mais sa ne marche pas.voici mon code:

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
        Select Case N
 
            Case 0
                dataBind.DataSource = MenuSupervision.Values
                dataBind.ResetBindings(False)
                menuPrec = 0
                Select Case N
                    Case 0
                        dataBind.DataSource = ParamSupAsc.Struct_S1.texte
                        dataBind.ResetBindings(False)
                        menuPrec = 1
                    Case 1
                        '...
                End Select
         End Select

je ne vois pas ou est l'erreur

[Psycadi]

C'est ton code ou un exemple?

Car là, tu fais deux case sur la même variable.

Et qu'est-ce qui ne marche pas?

[douezz]

c'est mon code à moi.ben entait il n'affiche pas le sous menu.

[Shadam]

Je ne vois pas bien l'intérêt de faire un select case 2 fois de suite sur la même variable...

Je pense que c'est là que ça pêche d'ailleurs

[douezz]

voila le code:

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
Private Sub ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ok.Click
 
        Dim n As Integer
        Dim n2
 
        n = ListBox1.SelectedIndex
        n2 = ListBox1.SelectedIndex
 
        Select Case n
            Case 0
                dataBind.DataSource = MenuSupervision.Values
                dataBind.ResetBindings(False)
                menuPrec = 0
                Select Case n2
                    Case 0
                        dataBind.DataSource = ParamSupAsc
                        dataBind.ResetBindings(False)
                        menuPrec = 1
 
                End Select
        End Select

[Shadam]

tu attributs à n et n2 la même valeur, donc tu fais 2 fois le même select