Utilisation dictionnaire (exemple) pour binding.

**Gualino** · 21/09/2011, 12h17

Bonjour à tous,

Sur les conseils de POL63, j’essaie de comprendre le fonctionnement du dictionnaire.

Ensuite je voudrais l'utiliser pour faire du binding

Code :

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

1
2
3
4
5
6
dim d as new dictionary(of long, string)
d.add(5,"le nombre 5")
dim s as string = d(5) 'retourne "le nombre 5"
d(5) = "maintenant c'est autre chose la valeur"
d.remove(5)
'etc...

ok çà c'est assez simple

Son 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
17
18
19
20
21
22
 Private _dico_txt_btns As New Dictionary(Of Button, TextBox)
 
    Private Sub creationcontrols() Handles Button1.Click
        For i As Integer = 1 To 3
 
            Dim t As New TextBox
            t.Location = New System.Drawing.Point(10, 35 * i)
            Me.Controls.Add(t)
 
            Dim b As New Button
            b.Location = New System.Drawing.Point(140, 35 * i)
            Me.Controls.Add(b)
 
            AddHandler b.Click, AddressOf buttonclick
            _dico_txt_btns.Add(b, t)
        Next
    End Sub
 
    Private Sub buttonclick(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim boutoncliqué As Button = DirectCast(sender, Button)
        Dim textboxlié As TextBox = _dico_txt_btns(boutoncliqué)
    End Sub

Donc ici le dico associe un bouton a une textbox.
Je ne comprend pas bien la procédure attaché à l’événement du click sur le bouton:
Le bouton cliqué va prendre place dans la variable boutoncliqué, et ...
_dico_txt_btns(boutoncliqué) pourquoi n'y a t'il qu'un argument?

**Gualino** · 21/09/2011, 12h31

_dico_txt_btns(boutoncliqué) pourquoi n'y a t'il qu'un argument?

Pardon c'est l'indice...

**Pol63** · 21/09/2011, 12h35

je pense que tu aurais pu poser ses questions sur l'autre topic, et éventuellement en rouvrir un pour les bindings

Dim boutoncliqué As Button = DirectCast(sender, Button)
car l'évènement est lié à 5 boutons, sender contient le bouton cliqué (enfin à priori ca tu avais suivi)

ensuite un dictionaire lie une valeur à une clé
la clé est le premier type (bouton) et la valeur le 2ème type (textbox)
quand on fait un ajout on précise les 2 (ou nothing pour la valeur et on peut la définir plus tard)
quand on lit, on donne une clé et ca retourne la valeur liée
donc on donne un bouton et ca donne le textbox lié
letextbox = dico(unbouton)
en donnant un autre bouton ca retournera un autre checkbox
si on donne un bouton qui n'est pas dans le dictionnaire ca plante (clé non présente)

si tu veux parcourir tous les couples clé/valeur :

Code :

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

1
2
3
for each key as typeclé in dico.keys
     dim valeur as typevaleur = dico(key)
next

ou encore

Code :

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

1
2
3
4
for i as integer = 0 to dico.count -1
  dim k as typeclé = dico.keys(i)
  dim v as typevaleur = dico(k)
next

dico.keys et dico.values sont indexés (0 à count-1)
item est la propriété par défaut de la classe dictionary
dico(k) équivaut à écrire dico.item(k)

**Shadam** · 21/09/2011, 13h14

Pour parcourir un dico il vaut mieux utilisé :

Code :

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

For Each cle As KeyValuePair(Of Button, TextBox) In dico

Ainsi cle.Key te donne le bouton et cle.Value te donne le Textbox.

**Gualino** · 21/09/2011, 15h41

Merci à vous,

Alors par ex, j'ai un tas de çà:

Code :

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

SetupForm.NSMFrequency_LF_tbox.DataBindings.Add(New Binding("Text", Me, "NSMFrequency_LF", True, DataSourceUpdateMode.OnPropertyChanged, 0))

Je fais un dico:

Code :

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

dim BindingDico as new dictionary(of string, textbox)

pour le remplir:

Code :

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

1
2
3
4
5
 
For each textbox as control in list
BindingDico.add((textbox.name).Remove(InputControl.Name.Length - 5),textbox)
'Car chaque propriété a le même nom que la textbox associée, "_tbox" en moins. Tordu? ou avec un autre dico?
next

pour faire:

Code :

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

SetupForm.BindingDico("NSMFrequency_LF").DataBindings.Add(New Binding("Text", Me, "NSMFrequency_LF", True, DataSourceUpdateMode.OnPropertyChanged, 0))

que je pourrais faire egalement dans une boucle avec :

Code :

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

For Each cle As KeyValuePair(Of Button, TextBox) In dico

comme çà:

Code :

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

1
2
3
For Each cle As KeyValuePair(Of Button, TextBox) In dico
SetupForm.BindingDico(cle).DataBindings.Add(New Binding("Text", Me, cle, True, DataSourceUpdateMode.OnPropertyChanged, 0))
next

**Gualino** · 21/09/2011, 16h24

çà parait juste?

**Shadam** · 21/09/2011, 17h34

Avec :

Code :

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

SetupForm.BindingDico(cle.Key).DataBindings.Add(New Binding("Text", Me, cle.Value, True, DataSourceUpdateMode.OnPropertyChanged, 0))

ça me paraît bon, à tester maintenant...

**Gualino** · 21/09/2011, 17h46

Code :

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

BindingDico.add((textbox.name).Remove(InputControl.Name.Length - 5),textbox)

çà c'est pas du délire?

**Pol63** · 21/09/2011, 18h02

sur les controls il y a une propriété DataBinding
ca se trouve le binding que tu fais est enregistré là et ca ne sert à rien ne faire un mécanisme pour le retrouver

**Gualino** · 21/09/2011, 20h25

Pour me faire la main sur les dicos j'ai fait une sub qui control si mes valeur d'entré sont acceptables:

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
#Region "Dictionary of Min & Max chassis input values"
    Dim ChassisMaxInputValuesDictionary As New Dictionary(Of TextBox, String)
    Dim ChassisMinInputValuesDictionary As New Dictionary(Of TextBox, String)
    Public Sub DictionaryOfMinMaxChassisInputs()
        With ChassisMaxInputValuesDictionary
            .Add(SetupForm.TotalMass_tbox, "2000")
            .Add(SetupForm.TotalMassWeightDistribution_tbox, "70")
            .Add(SetupForm.TotalMassCenterOfGravityHeight_tbox, "550")
            .Add(SetupForm.NSM_LF_tbox, "45")
            .Add(SetupForm.NSM_RF_tbox, "45")
            .Add(SetupForm.NSM_LR_tbox, "45")
            .Add(SetupForm.NSM_RR_tbox, "45")
            .Add(SetupForm.NSMCenterOfGravityHeight_LF_tbox, "400")
            .Add(SetupForm.NSMCenterOfGravityHeight_LF_tbox, "400")
            .Add(SetupForm.NSMCenterOfGravityHeight_LF_tbox, "400")
            .Add(SetupForm.NSMCenterOfGravityHeight_LF_tbox, "400")
            .Add(SetupForm.Wheelbase_Left_tbox, "3000")
            .Add(SetupForm.Wheelbase_Right_tbox, "3000")
            .Add(SetupForm.HalfTrack_LF_tbox, "1000")
            .Add(SetupForm.HalfTrack_RF_tbox, "1000")
            .Add(SetupForm.HalfTrack_LR_tbox, "1000")
            .Add(SetupForm.HalfTrack_RR_tbox, "1000")
            .Add(SetupForm.RollCenterHeight_Front_tbox, "600")
            .Add(SetupForm.RollCenterHeight_Rear_tbox, "650")
            .Add(SetupForm.PitchCenterHeight_Left_tbox, "600")
            .Add(SetupForm.PitchCenterHeight_Right_tbox, "600")
            .Add(SetupForm.PitchCenterLongitudinalPosition_Left_tbox, "10000")
            .Add(SetupForm.PitchCenterLongitudinalPosition_Right_tbox, "10000")
            .Add(SetupForm.SpringStiffness_LF_tbox, "300")
            .Add(SetupForm.SpringStiffness_RF_tbox, "300")
            .Add(SetupForm.SpringStiffness_LR_tbox, "300")
            .Add(SetupForm.SpringStiffness_RR_tbox, "300")
            .Add(SetupForm.SpringMotionRatio_LF_tbox, "5")
            .Add(SetupForm.SpringMotionRatio_RF_tbox, "5")
            .Add(SetupForm.SpringMotionRatio_LR_tbox, "5")
            .Add(SetupForm.SpringMotionRatio_RR_tbox, "5")
            .Add(SetupForm.ARBStiffness_Front_tbox, "200")
            .Add(SetupForm.ARBStiffness_Rear_tbox, "200")
            .Add(SetupForm.ARBMotionRatio_Front_tbox, "2")
            .Add(SetupForm.ARBMotionRatio_Rear_tbox, "2")
            .Add(SetupForm.TireStiffness_LF_tbox, "300")
            .Add(SetupForm.TireStiffness_LF_tbox, "300")
            .Add(SetupForm.TireStiffness_LF_tbox, "300")
            .Add(SetupForm.TireStiffness_LF_tbox, "300")
            .Add(SetupForm.AckermannRatio_tbox, "30")
        End With
 
        With ChassisMinInputValuesDictionary
            .Add(SetupForm.TotalMass_tbox, "500")
            .Add(SetupForm.TotalMassWeightDistribution_tbox, "30")
            .Add(SetupForm.TotalMassCenterOfGravityHeight_tbox, "200")
            .Add(SetupForm.NSM_LF_tbox, "15")
            .Add(SetupForm.NSM_RF_tbox, "15")
            .Add(SetupForm.NSM_LR_tbox, "15")
            .Add(SetupForm.NSM_RR_tbox, "15")
            .Add(SetupForm.NSMCenterOfGravityHeight_LF_tbox, "150")
            .Add(SetupForm.NSMCenterOfGravityHeight_LF_tbox, "150")
            .Add(SetupForm.NSMCenterOfGravityHeight_LF_tbox, "150")
            .Add(SetupForm.NSMCenterOfGravityHeight_LF_tbox, "150")
            .Add(SetupForm.Wheelbase_Left_tbox, "2000")
            .Add(SetupForm.Wheelbase_Right_tbox, "2000")
            .Add(SetupForm.HalfTrack_LF_tbox, "600")
            .Add(SetupForm.HalfTrack_RF_tbox, "600")
            .Add(SetupForm.HalfTrack_LR_tbox, "600")
            .Add(SetupForm.HalfTrack_RR_tbox, "600")
            .Add(SetupForm.RollCenterHeight_Front_tbox, "-600")
            .Add(SetupForm.RollCenterHeight_Rear_tbox, "-650")
            .Add(SetupForm.PitchCenterHeight_Left_tbox, "-600")
            .Add(SetupForm.PitchCenterHeight_Right_tbox, "-600")
            .Add(SetupForm.PitchCenterLongitudinalPosition_Left_tbox, "-10000")
            .Add(SetupForm.PitchCenterLongitudinalPosition_Right_tbox, "-10000")
            .Add(SetupForm.SpringStiffness_LF_tbox, "20")
            .Add(SetupForm.SpringStiffness_RF_tbox, "20")
            .Add(SetupForm.SpringStiffness_LR_tbox, "40")
            .Add(SetupForm.SpringStiffness_RR_tbox, "40")
            .Add(SetupForm.SpringMotionRatio_LF_tbox, "0.3")
            .Add(SetupForm.SpringMotionRatio_RF_tbox, "0.3")
            .Add(SetupForm.SpringMotionRatio_LR_tbox, "0.3")
            .Add(SetupForm.SpringMotionRatio_RR_tbox, "0.3")
            .Add(SetupForm.ARBStiffness_Front_tbox, "0")
            .Add(SetupForm.ARBStiffness_Rear_tbox, "0")
            .Add(SetupForm.ARBMotionRatio_Front_tbox, "0.01")
            .Add(SetupForm.ARBMotionRatio_Rear_tbox, "0.01")
            .Add(SetupForm.TireStiffness_LF_tbox, "50")
            .Add(SetupForm.TireStiffness_LF_tbox, "50")
            .Add(SetupForm.TireStiffness_LF_tbox, "50")
            .Add(SetupForm.TireStiffness_LF_tbox, "50")
            .Add(SetupForm.AckermannRatio_tbox, "-30")
        End With
    End Sub
#End Region
 
 
    Public Sub IsValueWithinTheBoundaries(ByVal sender As Object, ByVal e As System.EventArgs)
 
        For Each cle As KeyValuePair(Of TextBox, String) In ChassisMinInputValuesDictionary
            If cle.Key.Text < cle.Value Then
                Call ChassisInputsMinErrorProvider(True, cle.Key, cle.Value)
            Else
                Call ChassisInputsMinErrorProvider(False, cle.Key, cle.Value)
            End If
        Next
 
        For Each cle As KeyValuePair(Of TextBox, String) In ChassisMaxInputValuesDictionary
            If cle.Key.Text > cle.Value Then
                Call ChassisInputsMaxErrorProvider(True, cle.Key, cle.Value)
            Else
                Call ChassisInputsMaxErrorProvider(False, cle.Key, cle.Value)
            End If
        Next
 
    End Sub
 
    Private Sub ChassisInputsMinErrorProvider(ByVal WarningValue As Boolean, ByVal textbox As TextBox, ByVal MinVal As String)
        Dim ChassisErrorProvider As New ErrorProvider
        If WarningValue = True Then
            ChassisErrorProvider.SetError(textbox, "The value should be higher than " & MinVal)
        Else
            ChassisErrorProvider.SetError(textbox, "")
        End If
    End Sub
    Private Sub ChassisInputsMaxErrorProvider(ByVal WarningValue As Boolean, ByVal textbox As TextBox, ByVal MaxVal As String)
        Dim ChassisErrorProvider As New ErrorProvider
        If WarningValue = True Then
            ChassisErrorProvider.SetError(textbox, "The value should be lower than " & MaxVal)
        Else
            ChassisErrorProvider.SetError(textbox, "")
        End If
    End Sub

çà ne fonctionne pas.
Avec un point d’arrêt, j'ai remarqué que les dico étaient vide!?

**Pol63** · 21/09/2011, 20h31

appelles tu au moins la méthode qui les remplie ?

**Gualino** · 21/09/2011, 20h36

Oops!

J'avais oublier que le dico était dans un sub...
Merci!

**Gualino** · 21/09/2011, 20h56

çà clignotte de partout!

J'ai mi un breakpoint, et à if 100 < 40 il me sort : "true"

**Pol63** · 21/09/2011, 21h01

rien compris

un truc aussi, quand on des dizaines de controles, on évite de les poser à la main et on évite de taper des lignes de code pour chaque controle
ca gagne énormément temps (alignement et autres) et ca rend le code plus lisible

**Gualino** · 21/09/2011, 21h06

à cet endroit:

Code :

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

1
2
3
If cle.Key.Text < cle.Value Then
                Call ChassisInputsMinErrorProvider(True, cle.Key, cle.Value)
            Else

cle.Key.Text =100
et
cle.Value= 40

et il appel ChassisInputsMinErrorProvider(True, cle.Key, cle.Value)!

**Pol63** · 21/09/2011, 21h17

fonctionnement tout à fait normal

tu compares 2 string
et "100" est inférieur à "40" je confirme (tout comme "a" est inférieur à "b")

par contre en nombre ce n'est pas le cas je te l'accorde, mais ton programme ne fait que ce que tu as écrit, il ne peut pas deviner que c'est les nombre contenus dans les string qu'il faut comparer

donc soit tu convertis, soit mieux tu déclares ton dictionnaire avec un type nombre

**Gualino** · 21/09/2011, 21h20

La seul explication serait qu'ici, on ne compare pas des valeurs numériques?

**Gualino** · 21/09/2011, 22h33

String! pfff
C'est devant mon riz et quenelles de saumon que je m'en suis rendu compte...

**Gualino** · 21/09/2011, 22h39

Envoyé par Pol63

fonctionnement tout à fait normal

tu compares 2 string
et "100" est inférieur à "40" je confirme (tout comme "a" est inférieur à "b")

par contre en nombre ce n'est pas le cas je te l'accorde, mais ton programme ne fait que ce que tu as écrit, il ne peut pas deviner que c'est les nombre contenus dans les string qu'il faut comparer

donc soit tu convertis, soit mieux tu déclares ton dictionnaire avec un type nombre

J'avais vu ta réponse...oui c'est une faute d’inattention...

**Gualino** · 21/09/2011, 23h22

Par contre une fois le logo du errorprovider apparru il ne veux plus dégager!

Je fais pourtant ce qu'il faut:

Code :

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

ChassisErrorProvider.SetError(textbox, "")

J'ai mis un points d'arret, çà repasse bien par là mais il reste!

Utilisation dictionnaire (exemple) pour binding.

VB.NET

Discussions similaires

Partager

Partager