Dictionary global : comment faire plus simple ?

Version imprimable

Bonjour,

J'ai un petit programme, qui se sert dans plusieurs formes de dictionnaires statiques (dans le sens où ils ne sont jamais modifiés) sauf un (CollBool).

J'ai donc créé un module où j'ai mis :

Code:

1
2
3
4
5
6
7
8
9
    Friend CollBool As New Dictionary(Of Integer, Boolean)
    Friend CollCB2 As New Dictionary(Of Integer, CheckBox)
    Friend CollTB1 As New Dictionary(Of Integer, TextBox)
    Friend CollTB2 As New Dictionary(Of Integer, TextBox)
    Friend CollTB3 As New Dictionary(Of Integer, TextBox)
    Friend CollR1 As New Dictionary(Of Integer, Label)
    Friend CollR2 As New Dictionary(Of Integer, Label)
    Friend CollOLabel As New Dictionary(Of Integer, Label)
    Friend CollRLabel As New Dictionary(Of Integer, Label)

ainsi qu'une public sub :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Public Sub LoadingParameters()
 
        For i As Integer = 1 To CollBool.Count
            If CollBool.Item(i) = False Then
                CollTB1.Item(i).Hide()
                CollTB2.Item(i).Hide()
                CollTB3.Item(i).Hide()
                CollR1.Item(i).Hide()
                CollR2.Item(i).Hide()
                CollOLabel.Item(i).Hide()
                CollRLabel.Item(i).Hide()
            ElseIf CollBool.Item(i) = True Then
                CollTB1.Item(i).Show()
                CollTB2.Item(i).Show()
                CollTB3.Item(i).Show()
                CollR1.Item(i).Show()
                CollR2.Item(i).Show()
                CollOLabel.Item(i).Show()
                CollRLabel.Item(i).Show()
            End If
        Next

qui va permettre de loader ce que je souhaite afficher en fonction des settings.

J'ai dans ApplicationEvents.vb ceci :

Code:

1
2
3
4
5
6
7
8
 Private Sub LoadApp(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles MyBase.Startup
            CollBool.Add(1, My.Settings.CBCobb1)
            CollBool.Add(2, My.Settings.CBRotation1)
...
On remplit les dictionnaires
 
puis
Call LoadingParameters()

où tous mes dictionnaires sont remplis à l'ouverture du logiciel.

De ce que j'ai compris, ça devrait fonctionner ainsi : à l'ouverture du logiciel, tous mes dictionnaires (partagés entre toutes les forms) sont remplis. puis l'appli lance LoadingParameters, qui devraient afficher/cacher les textbox, etc concernées... Sauf que ça ne marche pas ainsi.

Où se situe mon erreur de raisonnement svp ? Je suis perplexe là -_-

Merci d'avance !

26/03/2012, 13h17
Kropernic

Je peux me tromper mais je dirais que ta sub LoadingParameters est appelée avant que ton formulaire de démarrage ne soit créé (de même pour tous les autres). Du coup, quand ton application instancie ton formulaire, les contrôles sont créés avec leurs propriétés par défaut (celles définies dans le designer).

Ce qui fait que les textbox et autres ne sont pas masqués.

Griftou.

Merci !

En fait, c'était plus que bête (je savais que j'aurais dû attendre de revenir manger avant de poster, j'ai toujours les idées plus claires après le repas) :
Je n'actualisais pas mon dictionnaire avant de faire le load... :oops:

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
           Public Sub LoadingParameters()
 CollBool.Clear()
        CollBool.Add(1, My.Settings.CBCobb1)
        CollBool.Add(2, My.Settings.CBRotation1)
        CollBool.Add(3, My.Settings.CBCobb2)
        CollBool.Add(4, My.Settings.CBRotation2)
        CollBool.Add(5, My.Settings.CBCobb3)
        CollBool.Add(6, My.Settings.CBRotation3)
        CollBool.Add(7, My.Settings.CBCyphose1)
        CollBool.Add(8, My.Settings.CBCyphose2)
        CollBool.Add(9, My.Settings.CBLordose1)
        CollBool.Add(10, My.Settings.CBLordose2)
        CollBool.Add(11, My.Settings.CBInciPelv)
        CollBool.Add(12, My.Settings.CBPenteSacree)
        CollBool.Add(13, My.Settings.CBVersionPelv)
        CollBool.Add(14, My.Settings.CBObliquite)
        CollBool.Add(15, My.Settings.CBRotationB)
        CollBool.Add(16, My.Settings.CBSacral)
        CollBool.Add(17, My.Settings.CBBascule)
        CollBool.Add(18, My.Settings.CBBasculeT)
 
        For i As Integer = 1 To CollBool.Count
            If CollBool.Item(i) = False Then
                CollTB1.Item(i).Hide()
                CollTB2.Item(i).Hide()
                CollTB3.Item(i).Hide()
                CollR1.Item(i).Hide()
                CollR2.Item(i).Hide()
                CollOLabel.Item(i).Hide()
                CollRLabel.Item(i).Hide()
            ElseIf CollBool.Item(i) = True Then
                CollTB1.Item(i).Show()
                CollTB2.Item(i).Show()
                CollTB3.Item(i).Show()
                CollR1.Item(i).Show()
                CollR2.Item(i).Show()
                CollOLabel.Item(i).Show()
                CollRLabel.Item(i).Show()
            End If
        Next

et le problème est réglé... :roll:

26/03/2012, 15h22
Kropernic

Du moment que ça fonctionne, tant mieux.

Par contre, pour ma culture personnelle, j'aimerais comprendre.

Tu remplis tes dictionnaires au startup de l'application. C'est donc ce qui fait en premier (ou presque) et ça ne se fait qu'une seule fois. Du coup, l'utilité du clear m'échappe même si je suis d'accord qu'il vaut mieux toujours initialisé la variable proprement. Mais je trouve encore plus étrange que ce soit cela qui résolve ton problème.

Bref, tu peux m'éclairer ? ^^

Griftou.
26/03/2012, 15h30
TheYggdrazil

En fait, j'ai des dictionnaires contenant des checkbox, des textbox, des labels, etc...

Ces dictionnaires là sont statiques, je n'y touche jamais pendant le runtime. Il n'y en a qu'un qui change, c'est celui contenant des settings booléens.

En revanche, ce que je veux c'est afficher tel textbox, tel label ou tel checkbox en fonction des choix de l'utilisateur. J'ai donc une fenêtre dans laquelle il coche les paramètres qu'il veut afficher.

Lorsqu'il valide, les paramètres qu'il a choisi sont enregistrés dans des settings, puis l'affichage est actualisé en fonction de ces choix : je dois donc "refresh" le dictionnaire contenant les settings pour que l'affichage se fasse en conséquence.

Je ne sais pas trop si j'ai été clair, n'hésite pas à me demander si tu n'as pas suivi. Et si ma méthode te semble stupide et qu'il existe plus simple (je suis débutant !) merci également de me faire signe :p
26/03/2012, 15h37
Kropernic

Citation:

Envoyé par TheYggdrazil

En fait, j'ai des dictionnaires contenant des checkbox, des textbox, des labels, etc...

Ces dictionnaires là sont statiques, je n'y touche jamais pendant le runtime. Il n'y en a qu'un qui change, c'est celui contenant des settings booléens.

En revanche, ce que je veux c'est afficher tel textbox, tel label ou tel checkbox en fonction des choix de l'utilisateur. J'ai donc une fenêtre dans laquelle il coche les paramètres qu'il veut afficher.

Lorsqu'il valide, les paramètres qu'il a choisi sont enregistrés dans des settings, puis l'affichage est actualisé en fonction de ces choix : je dois donc "refresh" le dictionnaire contenant les settings pour que l'affichage se fasse en conséquence.

Je ne sais pas trop si j'ai été clair, n'hésite pas à me demander si tu n'as pas suivi. Et si ma méthode te semble stupide et qu'il existe plus simple (je suis débutant !) merci également de me faire signe :p

Oui je crois que je comprends (j'avais zappé une étape).

Sinon, loin de moi l'idée que ta méthode soit stupide. Par contre, je ne doute pas qu'il doit probablement y avoir plus simple. Mais je n'ai jamais eu ce besoin et n'ai donc jamais réfléchi à la question.