Passer d'un menu à l'autre

Version imprimable

Bonjour , voici mon problème.
J'ai des dictionnaires qui initialisent l'affichage dont voici un exemple:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
'déclaration des menu
Public MenuConnexion As New Dictionary(Of String, String)
Public MenuMain As New Dictionary(Of String, String)
 
'initialisation 
    Sub initMenuConnexion()
        MenuConnexion.Add("0", "")
        MenuConnexion.Add("1", "Hors connexion")
    End Sub
 
 
    Sub initMenuMain()
        MenuMain.Add("0", "Supervision")
        MenuMain.Add("1", "Defauts")
        MenuMain.Add("2", "Essais")

le soucis est le suivant:
je rempli ma listBox avec mes dictionnaire:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim N As Integer
 
        N = ListBox1.SelectedIndex
 
        Select Case N
 
            Case 0
                ListBox1.Items.Clear()
                For Each kvp As KeyValuePair(Of String, String) In Affichage.MenuSupervision
                    ListBox1.Items.Add(kvp.Value)
                Next kvp
            Case 1
                 ...
            case 2 
                 ...
end select

j'aimerai pouvoir passer d'un dictionnaire à l'autre.
par exemple quand je suis sur le menu "connexion" et que je suis qur Hors connexion et que je clique sur OK , sa m'affiche le menu "Main".
jusqu'ici sa marche mais je n'arrive pas a faire le bouton qui me permet de passer du menu "main" au menu "connexion" (en gros une sorte de bouton précédent)

merci

06/06/2011, 09h49
Gurdil le nain
Salut,

Essayes de créer un BindingSource qui sera facilement modifiable.

Exemple :

Initialisation :
Code:

1 2 3 4 5 Dim dataBind As New BindingSource dataBind.DataSource = tonDictionnaire.Values taListeBox.DataSource = dataBind
Mise à jour :
Code:

1 2 3 dataBind.DataSource = tonNouveauDictionnaire.Values dataBind.ResetBindings(False)
Edit : En fait je suis pas sur d'avoir répondu à ta question., mais ce sera déjà plus propre que de boucler dans chaque Case...

je te remercie meme si en effet tu ne répond pas tellement à ma question.

Le soucis c'est que je ne vois pas comment faire sans les CASE car une fois que j'ai dépassé le menu "connexion" j'ai un menu "main", qui lui, affiche plusieurs menu, etc etc

voila j'ai modifié le code en ajoutant tes conseils et en effet c'est plus pratique et moins lourd.

reste le soucis du boutton précédent

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
 
    Private Sub ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ok.Click
 
        Dim N As Integer
 
        N = ListBox1.SelectedIndex
 
        Select Case N
 
            Case 0
                dataBind.DataSource = Affichage.Menu1.Values
                dataBind.ResetBindings(False)
            Case 1
                dataBind.DataSource = Affichage.Menu2.Values
                dataBind.ResetBindings(False)
            Case 2
                dataBind.DataSource = Affichage.Menu3.Values
                dataBind.ResetBindings(False)
            Case 3
                dataBind.DataSource = Affichage.Menu4.Values
                dataBind.ResetBindings(False)
            Case 4
                dataBind.DataSource = Affichage.Menu5Values
                dataBind.ResetBindings(False)
        End Select
 
    End Sub

06/06/2011, 10h07
Gurdil le nain

Pourquoi tu parles de menu alors que tu as des listbox ?

Il faudrait en dire plus sur ton développement, ou nous montrer des captures, des bouts de codes...parce que là, je vois pas vraiment ce que tu veux faire !!
06/06/2011, 10h14
calagan99

Je pense en effet que ton problème n'est pas très complexe mais il faut que tu sois plus précis dans ta demande car il est difficile avec les éléments que tu donnes de savoir d'où tu pars et où tu veux aller.
Donne nous les informations demandées par Gurdil le nain et tu auras probablement plus de réponses.
06/06/2011, 10h15
douezz

je vais faire une video se sera plus simple
06/06/2011, 10h27
calagan99

Ah carrément :)
Une vidéo n'est peut-être pas nécessaire, mais explicite par exemple

Citation:

par exemple quand je suis sur le menu "connexion" et que je suis qur Hors connexion et que je clique sur OK , sa m'affiche le menu "Main".

Cette phrase ne peut être comprise que de quelqu'un qui connaît le contexte, ce qui n'est pas notre cas.

2 pièce(s) jointe(s)

Voila deux screen

Je navigue dans mon menu avec les touche H (Haut) et B (Bas) puis je rentre dans le menu "supervision" en cliquant sur OK.

Mais le soucis c'est que je n'arrive pas à revenir dans le menu précédent en cliquant sur retour.

Au lancement de l'application je charge le menu MAIN (dictionnaire) et j'affiche ce qu'il contient.
puis selon l’élément sélectionné (ici supervision) j'affiche les valeur du dictionnaire qui lui correspond (la deuxième image montre les élément du dictionnaire contenu dans supervision)
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 'déclaration des dictionnaires Public MenuMain As New Dictionary(Of String, String) Public MenuSupervision As New Dictionary(Of String, String) Public MenuDefauts As New Dictionary(Of String, String) Public MenuEssais As New Dictionary(Of String, String) 'exemple d’initialisation Sub initMenuMain() MenuMain.Add("0", "Supervision") MenuMain.Add("1", "Defauts") MenuMain.Add("2", "Essais") MenuMain.Add("3", "Reglages") MenuMain.Add("4", "Installation") MenuMain.Add("5", "Statistiques") MenuMain.Add("6", "Mobee") End Sub Sub initMenuSupervision() MenuSupervision.Add("0", "Info ascenseur") MenuSupervision.Add("1", "Info variateur") MenuSupervision.Add("2", "E/S carte mere") MenuSupervision.Add("3", "E/S carte toit cab.") End Sub
en gros je charge le dictionnaire "initMenuMain"
si l'element 0 (supervision) est selectionné j'affiche dans ma listBox le dictionnaire "initMenuSupervision"
mais ce que je veux c'est pourvoir revenir au menu précédent

J’espère avoir été un peu plus clair...:aie::aie:

06/06/2011, 10h46
calagan99

C'est plus clair en effet. :ccool:

Tu as en fait deux solutions (qui dépendent de ce que tu veux réellement faire):
- revenir au menu Main systématiquement au clic sur "Retour", auquel cas il te suffit, dans l'évènement Click auquel est abonné ton bouton "Retour" d'appeler "initMenuMain"
- stocker dans une variable un élément te permettant d'identifier le menu précédent à chaque changement de menu.
J'entends par là que, au clic sur un élément de menu, avant de charger ta ListBox avec les items qui vont bien, tu stockes une référence au menu actuel. En cas de clic sur "Retour", il te suffit alors d'appeler la méthode de chargement de ListBox qui va bien en fonction du contenu de cette variable.

Est-ce que ceci t'aiguille ?
06/06/2011, 10h50
douezz

C'est la deuxième solution.
Je veux pouvoir afficher le menu qui précédait avant mon clique sur OK
06/06/2011, 11h05
calagan99

Quand tu charges les éléments d'une ListBox, renseigne une variable qui te permet de savoir quelle dictionnary tu as utilisé.
Au clic sur retour, teste la valeur de cette variable. Tu sauras alors quel dictionnary tu dois utiliser pour recharger ta ListBox avec les bon items.
06/06/2011, 11h12
douezz

euh...:roll: je vais essayer
06/06/2011, 11h23
douezz

Je t'avouerai que la je seche un peu
06/06/2011, 11h31
Gurdil le nain

C'est très simple.

Sur ton formulaire, tu créé une variable de classe menuPrec du type que tu veux (tu peux faire une enum, un string...).

A chaque fois que la personne clique sur OK, tu stockes la valeur correspondant au menu appelant dans menuPrec.

Lorsque l'utilisateur clique sur précédent, tu switch sur ta variable menuPrec pour recharger le bon "menu".

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
 
 
Dim menuPrec as integer
'menuPrec = 0 correspond au menuMain
 
 Private Sub ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ok.Click
 
        Dim N As Integer
 
        N = ListBox1.SelectedIndex
 
        Select Case N
 
            Case 0
                dataBind.DataSource = Affichage.MenuSupervision.Values
                dataBind.ResetBindings(False)
                menuPrec = 0
            Case 1
                dataBind.DataSource = Affichage.MenuDefauts.Values
                dataBind.ResetBindings(False)
                menuPrec = 0
            Case 2
                dataBind.DataSource = Affichage.MenuEssais.Values
                dataBind.ResetBindings(False)
                menuPrec = 0
            Case 3
                dataBind.DataSource = Affichage.MenuRéglages.Values
                dataBind.ResetBindings(False)
                menuPrec = 0
            Case 4
                dataBind.DataSource = Affichage.MenuInstallation.Values
                dataBind.ResetBindings(False)
                menuPrec = 0
            Case 5
                dataBind.DataSource = Affichage.MenuStatistiques.Values
                dataBind.ResetBindings(False)
                menuPrec = 0
            Case 6
                dataBind.DataSource = Affichage.MenuMobee.Values
                dataBind.ResetBindings(False)
                menuPrec = 0
 
 
        End Select

06/06/2011, 11h56
Gurdil le nain

Ouais c'est dans le style...

Tu as des erreurs, des questions ?
06/06/2011, 11h58
douezz

enfait dans mon bouton retour je ne vois pas comment tester ma variable menuPrec, du moins par rapport à quoi

Ba tu assignes l'évènement onClick au bouton Précédent (comme pour le bouton OK), et dedans tu switch sur la valeur de menuPrec :
Code:

1 2 3 4 5 6 7 8 9 10 11 Select Case menuPrec Case 0: 'Affichage de menu Main Case 1 : 'Affichage du menu correspondant à 1 'etc '. '. '. End Select

06/06/2011, 12h12
douezz

Merci bien :ccool: