Discussion :

[douezz]

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

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

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

[Gurdil le nain]

Salut,

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

Exemple :

Initialisation :

Code :

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

1
2
3
4
5
 
Dim dataBind As New BindingSource
 
dataBind.DataSource = tonDictionnaire.Values
taListeBox.DataSource = dataBind

Mise à jour :

Code :

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

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

[douezz]

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 :

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

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

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

[douezz]

je vais faire une video se sera plus simple

[calagan99]

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

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.

[douezz]

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 :

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