Discussion :

[waspy59]

bonjour a tous (ou plutot bonsoir, vu l'heure)

J'ai découvert grace à un membre de ce site le propertygrid qui est genial. Cependant je bloque sur une chose... je souhaite ajouter une listbox pour un des parametres afin d'autoriser un choix restraint de saisie.
Le probleme c'est que je n'y arrive pas ;-)

qq1 a un exemple a me fournir?


merci

[olsimare]

Bonjour.

Il te faut définir une class qui hérite de UITypeEditor et utiliser l'attribut Editor pour ta propriété.

Intéressant à voir : http://msdn2.microsoft.com/fr-fr/lib...40(VS.80).aspx

Cdt.

[waspy59]

malgres une recherche approfondie j'ai pas trouvé ce que je voulais.

J'ai bien reussi a mettre un enum dans mon propertygrid mais il n'accepte que des strings.

Or moi je souhaite faire un choix entre des valeurs numeriques (valeurs d'angles de rotation)

comment puis je faire dans ce cas?

[tomlev]

La doc de la classe UITypeEditor donne justement comme exemple un éditeur d'angle (en mode graphique)...

[tomlev]

malgres une recherche approfondie j'ai pas trouvé ce que je voulais.

On ne doit pas avoir la même notion de "approfondie", j'ai trouvé en quelques minutes

En gros, il faut définir un éditeur qui sera utilisé dans la propertygrid pour cette propriété. L'éditeur un objet d'un type dérivé de UITypeEditor. En l'occurence il existe une classe ObjectSelectorEditor (dans l'assembly System.Design.dll), qui correspond assez bien à ce que tu cherches, donc on va hériter de cette classe pour éviter d'avoir à refaire le gros du boulot. Tout ce qui reste à faire est de définir la liste des valeurs possibles:
(c'est en C#, la conversion ne devrait pas être trop compliquée...)

Code C# :

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
 
    public class AngleSelectorEditor : ObjectSelectorEditor
    {
        public override UITypeEditorEditStyle GetEditStyle(ITypeDescriptorContext context)
        {
            // On indique que cet éditeur est de type "dropdown"
            return UITypeEditorEditStyle.DropDown;
        }
 
        protected override void FillTreeWithData(Selector selector, ITypeDescriptorContext context, IServiceProvider provider)
        {
            // On initialise la liste des valeurs d'angle possibles
            selector.Nodes.Clear();
            selector.AddNode("15°", 15.0, null);
            selector.AddNode("30°", 30.0, null);
            selector.AddNode("45°", 45.0, null);
            selector.AddNode("60°", 60.0, null);
            selector.AddNode("75°", 75.0, null);
            selector.AddNode("90°", 90.0, null);
        }
 
        public override bool IsDropDownResizable
        {
            // On rend le dropdown redimensionnable, ce sera plus pratique
            get { return true; }
        }
 
    }

Ensuite, il reste juste à indiquer dans le code de ton contrôle que pour la propriété Angle, on va utiliser l'éditeur AngleSelectorEditor, grâce à l'attribut EditorAttribute :

Code C# :

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

1
2
3
4
5
6
7
 
        [Browsable(true), Editor(typeof(AngleSelectorEditor), typeof(UITypeEditor))]
        public double Angle
        {
            get { ... }
            set { ... }
        }

Et là, magie ! Quand tu places ton contrôle sur une Form et que tu édites ses propriétés, une liste de valeurs apparaît pour la propriété Angle



Bien sûr l'éditeur peut encore être amélioré, par exemple en pré-sélectionnant dans la liste l'entrée qui correspond à la valeur actuelle (propriété IsSelected des nodes du Selector)...

[waspy59]

un tres tres grand merci a toi.... mais quand je traduit le code en vb.net (avec outils sur le net) que deux chose non definit:

ObjectSelectorEditor
UITypeEditorEditStyle

pourtant j'ai reférencé system.design

j'ai oublié qqchose? (desolé pour mon incompetence mais je suis relativement nouveau dans le VB.net) et les convertion C#>vb.net j'y comprend pas grand chose

[tomlev]

Il manque sûrement des using (Imports en VB), je ne les ai pas mis dans le code ci-dessus...
ObjectSelectorEditor est dans le namespace System.ComponentModel.Design (il faut référencer l'assembly System.Design.dll)
UITypeEditorEditStyle est dans le namespace System.Drawing.Design (assembly System.Drawing.dll)

[waspy59]

re tomlev,

bon j'ai testé tes conseils ce week end.... je me suis bien pris la tête et au final... j'y arrive pas
je comprend pas ce qui cloche...

Pour infos j'ai mis en pièce jointe un extrait de mon projet... J'ai une class "Etiquette" qui contient les différentes propriétés des éléments constituant l'etiquette a imprimer:

- Nom du parametre
- Volume
- date d'expiration
- ect...

ces différents éléments possédant différentes propriétés:
- positionX
- positionY
- Orientation >>> c'est pour cette propriété que je veux mettre un choix par listbox (pour l'instant c'est déclaré en integer)

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
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
 
Imports System.ComponentModel.Design
Imports System.Drawing.design
Imports System.ComponentModel
 
<Serializable()> _
Public Class Etiquette
 
    Private _SizeX As Integer = 100
    Private _SizeY As Integer = 100
 
    Private _XCB As Integer
    Private _YCB As Integer
    Private _OrientCB As Integer
 
    Private _TextLot As String
    Private _XLot As Integer
    Private _YLot As Integer
    Private _OrientLot As Integer
 
    Private _XParam As Integer = 10
    Private _YParam As Integer = 10
    Private _OrientParam As Integer = 45
 
    Private _textExp As String
    Private _XExp As Integer
    Private _YExp As Integer
    Private _OrientExp As Integer
 
    Private _textReagent As String
    Private _XReagent As Integer
    Private _YReagent As Integer
    Private _OrientReagent As Integer
 
    Private _XVol As Integer
    Private _YVol As Integer
    Private _OrientVol As Integer
 
    Private _textCom1 As String
    Private _XCom1 As Integer
    Private _YCom1 As Integer
    Private _OrientCom1 As Integer
 
 
    <Category("Etiquette"), DisplayName("Lenght")> _
    Public Property SizeX() As Integer
        Get
            Return _SizeX
        End Get
        Set(ByVal value As Integer)
            _SizeX = value
        End Set
    End Property
 
    <Category("Etiquette"), DisplayName("Width")> _
Public Property SizeY() As Integer
        Get
            Return _SizeY
        End Get
        Set(ByVal value As Integer)
            _SizeY = value
        End Set
    End Property
 
    <Category("BarCode"), DisplayName("positionX")> _
    Public Property XCB() As Integer
        Get
            Return _XCB
        End Get
        Set(ByVal value As Integer)
            _XCB = value
        End Set
    End Property
 
    <Category("BarCode"), DisplayName("positionY")> _
    Public Property YCB() As Integer
        Get
            Return _YCB
        End Get
        Set(ByVal value As Integer)
            _YCB = value
        End Set
    End Property
 
    <Category("BarCode"), DisplayName("Orientation")> _
    Public Property OrientCB() As Integer
        Get
            Return _OrientCB
        End Get
        Set(ByVal value As Integer)
            _OrientCB = value
        End Set
    End Property
 
    <Category("Lot Number"), DisplayName("Text")> _
        Public Property TextLot() As String
        Get
            Return _TextLot
        End Get
        Set(ByVal value As String)
            _TextLot = value
        End Set
    End Property
 
    <Category("Lot Number"), DisplayName("positionX")> _
    Public Property XLot() As Integer
        Get
            Return _XLot
        End Get
        Set(ByVal value As Integer)
            _XLot = value
        End Set
    End Property
 
    <Category("Lot Number"), DisplayName("positionY")> _
    Public Property YLot() As Integer
        Get
            Return _YLot
        End Get
        Set(ByVal value As Integer)
            _YLot = value
        End Set
    End Property
 
    <Category("Lot Number"), DisplayName("Orientation")> _
    Public Property OrientLot() As Integer
        Get
            Return _OrientLot
        End Get
        Set(ByVal value As Integer)
            _OrientLot = value
        End Set
    End Property
 
    <Category("Parameter"), DisplayName("positionX")> _
        Public Property XParam() As Integer
        Get
            Return _XParam
        End Get
        Set(ByVal value As Integer)
            _XParam = value
        End Set
    End Property
 
    <Category("Parameter"), DisplayName("positionY")> _
    Public Property Yparam() As Integer
        Get
            Return _YParam
        End Get
        Set(ByVal value As Integer)
            _YParam = value
        End Set
    End Property
 
    <Category("Parameter"), DisplayName("Orientation")> _
    Public Property OrientParam() As Integer
        Get
            Return _OrientParam
        End Get
        Set(ByVal value As Integer)
            _OrientParam = value
        End Set
    End Property
 
    <Category("Expiry Date"), DisplayName("Text")> _
    Public Property TextExp() As String
        Get
            Return _textExp
        End Get
        Set(ByVal value As String)
            _textExp = value
        End Set
    End Property
 
    <Category("Expiry Date"), DisplayName("positionX")> _
    Public Property XExp() As Integer
        Get
            Return _XExp
        End Get
        Set(ByVal value As Integer)
            _XExp = value
        End Set
    End Property
 
    <Category("Expiry Date"), DisplayName("positionY")> _
    Public Property YExp() As Integer
        Get
            Return _YExp
        End Get
        Set(ByVal value As Integer)
            _YExp = value
        End Set
    End Property
 
    <Category("Expiry Date"), DisplayName("Orientation")> _
    Public Property OrientExp() As Integer
        Get
            Return _OrientExp
        End Get
        Set(ByVal value As Integer)
            _OrientExp = value
        End Set
    End Property
 
    <Category("Reagent"), DisplayName("Text")> _
    Public Property TextReagent() As String
        Get
            Return _textReagent
        End Get
        Set(ByVal value As String)
            _textReagent = value
        End Set
    End Property
 
    <Category("Reagent"), DisplayName("positionX")> _
    Public Property XReagent() As Integer
        Get
            Return _XReagent
        End Get
        Set(ByVal value As Integer)
            _XReagent = value
        End Set
    End Property
 
    <Category("Reagent"), DisplayName("positionY")> _
    Public Property YReagent() As Integer
        Get
            Return _YReagent
        End Get
        Set(ByVal value As Integer)
            _YReagent = value
        End Set
    End Property
 
    <Category("Reagent"), DisplayName("Orientation")> _
    Public Property OrientReagent() As Integer
        Get
            Return _OrientReagent
        End Get
        Set(ByVal value As Integer)
            _OrientReagent = value
        End Set
    End Property
 
    <Category("Volume"), DisplayName("positionX")> _
    Public Property XVol() As Integer
        Get
            Return _XVol
        End Get
        Set(ByVal value As Integer)
            _XVol = value
        End Set
    End Property
 
    <Category("Volume"), DisplayName("positionY")> _
    Public Property YVol() As Integer
        Get
            Return _YVol
        End Get
        Set(ByVal value As Integer)
            _YVol = value
        End Set
    End Property
 
    <Category("Volume"), DisplayName("Orientation")> _
    Public Property OrientVol() As Integer
        Get
            Return _OrientVol
        End Get
        Set(ByVal value As Integer)
            _OrientVol = value
        End Set
    End Property
 
    <Category("Comment"), DisplayName("text")> _
    Public Property TextCom1() As String
        Get
            Return _textCom1
        End Get
        Set(ByVal value As String)
            _textCom1 = value
        End Set
    End Property
 
    <Category("Comment"), DisplayName("positionX")> _
    Public Property XCom1() As Integer
        Get
            Return _XCom1
        End Get
        Set(ByVal value As Integer)
            _XCom1 = value
        End Set
    End Property
 
    <Category("Comment"), DisplayName("positionY")> _
    Public Property YCom1() As Integer
        Get
            Return _YCom1
        End Get
        Set(ByVal value As Integer)
            _YCom1 = value
        End Set
    End Property
 
    <Category("Comment"), DisplayName("Orientation")> _
    Public Property OrientCom1() As Integer
        Get
            Return _OrientCom1
        End Get
        Set(ByVal value As Integer)
            _OrientCom1 = value
        End Set
    End Property
End Class

Ces éléments sont chargés dans le propertygrid (propEtiquette) que l'on peut modifier afin de modifier l'apercu d'impression (PicEtiquette):

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
 
 
Public Class frmMain
 
    Private MyEtiquette As New Etiquette
    Private MyImage As Bitmap
    Private myZoom As Single = 1
 
    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        propEtiquette.SelectedObject = MyEtiquette
        propEtiquette.CollapseAllGridItems()
        PicEtiquette.Width = MyEtiquette.SizeX
        PicEtiquette.Height = MyEtiquette.SizeY
    End Sub
 
 
    Private Sub PicEtiquette_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PicEtiquette.Paint
        ' Tester la taille de la PictureBox
        Dim parametre, dateexp, lot, reagent, vol As String
 
        Dim ft As Font = New Font("arial", 8, FontStyle.Bold, GraphicsUnit.Point)
        Dim Size As New Size(MyEtiquette.SizeX * myZoom, MyEtiquette.SizeY * myZoom)
        Dim chaine As String
 
 
        If Size.Width < 5 Then Size.Width = 5
        If Size.Height < 5 Then Size.Height = 5
        If PicEtiquette.Size <> Size Then PicEtiquette.Size = Size
        ' dessiner l'etiquette
        e.Graphics.ScaleTransform(myZoom, myZoom)
 
        ' Parametre
        If parametre = Nothing Then
            chaine = "############"
        Else
            chaine = parametre
        End If
        e.Graphics.ResetTransform()
        e.Graphics.ScaleTransform(myZoom, myZoom)
        e.Graphics.TranslateTransform(MyEtiquette.XParam, MyEtiquette.Yparam)
        e.Graphics.RotateTransform(MyEtiquette.OrientParam)
        'e.Graphics.ScaleTransform(4, 0.5) 'etire sur x et y (x4 sur X et /2 sur Y)
        e.Graphics.DrawString(chaine, ft, Brushes.Black, 0, 0)
        ' date expiration
        If dateexp = Nothing Then
            chaine = MyEtiquette.TextExp & "  " & "##/####"
        Else
            chaine = MyEtiquette.TextExp & "  " & dateexp
        End If
        e.Graphics.ResetTransform()
        e.Graphics.ScaleTransform(myZoom, myZoom)
        e.Graphics.TranslateTransform(MyEtiquette.XExp, MyEtiquette.YExp)
        e.Graphics.RotateTransform(MyEtiquette.OrientExp)
        e.Graphics.DrawString(chaine, ft, Brushes.Black, 0, 0)
 
        ' lot
        If lot = Nothing Then
            chaine = MyEtiquette.TextLot & "  " & "########"
        Else
            chaine = MyEtiquette.TextLot & "  " & lot
        End If
        e.Graphics.ResetTransform()
        e.Graphics.ScaleTransform(myZoom, myZoom)
        e.Graphics.TranslateTransform(MyEtiquette.XLot, MyEtiquette.YLot)
        e.Graphics.RotateTransform(MyEtiquette.OrientLot)
        e.Graphics.DrawString(chaine, ft, Brushes.Black, 0, 0)
 
        'reagent
        If reagent = Nothing Then
            chaine = MyEtiquette.TextReagent & "  " & "#"
        Else
            chaine = MyEtiquette.TextReagent & "  " & reagent
        End If
        e.Graphics.ResetTransform()
        e.Graphics.ScaleTransform(myZoom, myZoom)
        e.Graphics.TranslateTransform(MyEtiquette.XReagent, MyEtiquette.YReagent)
        e.Graphics.RotateTransform(MyEtiquette.OrientReagent)
        e.Graphics.DrawString(chaine, ft, Brushes.Black, 0, 0)
 
        'Vol
        If vol = Nothing Then
            chaine = "##" & "ml"
        Else
            chaine = vol & "ml"
        End If
        e.Graphics.ResetTransform()
        e.Graphics.ScaleTransform(myZoom, myZoom)
        e.Graphics.TranslateTransform(MyEtiquette.XVol, MyEtiquette.YVol)
        e.Graphics.RotateTransform(MyEtiquette.OrientVol)
        e.Graphics.DrawString(chaine, ft, Brushes.Black, 0, 0)
 
        'com1
        chaine = MyEtiquette.TextCom1
        e.Graphics.ResetTransform()
        e.Graphics.ScaleTransform(myZoom, myZoom)
        e.Graphics.TranslateTransform(MyEtiquette.XCom1, MyEtiquette.YCom1)
        e.Graphics.RotateTransform(MyEtiquette.OrientCom1)
        e.Graphics.DrawString(chaine, ft, Brushes.Black, 0, 0)
 
        'CB
    End Sub
 
    Private Sub trkZoom_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles trkZoom.Scroll
        myZoom = trkZoom.Value / 100
        PicEtiquette.Invalidate()
    End Sub
 
End Class

Voila a quoi se resume la partie de mon projet qui nous interesse.... J'ai donc essayé en fonction de ton exemple en C# de l'adapter pour ma class "etiquette" mais je n'ai jamais reussi a obtenir cette satanée listbox avec le choix des angles de rotation. (comme tu as pu t'en douter il y aura une listbox pour chaque l'élément a afficher)

Il faut que je recré une class pour l'angle de rotation comme dans ton exemple, ou bien je peux l'integrer dans ma class "etiquette"?

merci de ton aide parce que la je patoge grave...

[tomlev]

Désolé de pas avoir répondu plus tôt, j'étais en vacances...
A première vue, tu n'as pas mis l'attribut Editor... c'est cet attribut qui sert à indiquer quel éditeur utiliser. Regarde dans mon code les attributs que j'ai mis sur la propriété Angle.

[wil4linux]

J'ai un autre pb, j'aimerai faire la mm chose, mais avec des strings.
J'ai lu dans la doc que cette classe UITypeEditor n'était que pour les Int32, Double and Single...

[tomlev]

J'ai un autre pb, j'aimerai faire la mm chose, mais avec des strings.
J'ai lu dans la doc que cette classe UITypeEditor n'était que pour les Int32, Double and Single...

Ah bon, tu as vu ça où ?
J'ai pas trouvé ça dans la MSDN

[wil4linux]

Ici http://msdn.microsoft.com/fr-fr/libr...or(VS.80).aspx

mais attends j'ai du mal comprendre

[tomlev]

L'exemple de code suivant montre que UITypeEditor peut être associé à une propriété entière, double ou flottante [...]

C'est pas super clair... ça dit que ça marche avec les nombres, mais ça ne dit pas explicitement que ça ne marche pas avec les strings...
Mais à mon avis ça marche avec n'importe quoi, tu peux le personnaliser comme tu veux

[olsimare]

Bonjour.

Mais à mon avis ça marche avec n'importe quoi, tu peux le personnaliser comme tu veux

C'est clair, d'autant plus que le value est de type objet.

Pour s'en persuader :

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
 
 
Public Class ControlTest
    Inherits Control
 
    Private strtestEditorString As String
    <System.ComponentModel.Browsable(True), _
    System.ComponentModel.Editor(GetType(testEditorStringEditor), GetType(System.Drawing.Design.UITypeEditor))> _
    Public Property testEditorString() As String
        Get
            Return strtestEditorString
        End Get
        Set(ByVal value As String)
            strtestEditorString = value
        End Set
    End Property
End Class
 
Public Class testEditorStringEditor
    Inherits System.ComponentModel.Design.ObjectSelectorEditor
 
    Public Overrides Function GetEditStyle(ByVal context As System.ComponentModel.ITypeDescriptorContext) As System.Drawing.Design.UITypeEditorEditStyle
        Return System.Drawing.Design.UITypeEditorEditStyle.DropDown
    End Function
 
    Protected Overrides Sub FillTreeWithData(ByVal selector As System.ComponentModel.Design.ObjectSelectorEditor.Selector, ByVal context As System.ComponentModel.ITypeDescriptorContext, ByVal provider As System.IServiceProvider)
        selector.Nodes.Clear()
        selector.AddNode("Test1", "ValeurTest1", Nothing)
        selector.AddNode("Test2", "ValeurTest2", Nothing)
        selector.AddNode("Test3", "ValeurTest3", Nothing)
        selector.AddNode("Test4", "ValeurTest4", Nothing)
        selector.AddNode("Test5", "ValeurTest5", Nothing)
    End Sub
End Class

Somme toute, pour une liste dans l'éditeur, passer par une enum est encore ce qu'il y a de plus propre je pense.

Cdt.

[wil4linux]

merci, mais je peux pas passer par une enum car je créé ma liste de valeurs dynamiquement

[olsimare]

Bonjour.

merci, mais je peux pas passer par une enum car je créé ma liste de valeurs dynamiquement

Donc effectivement, dans ce cas, ça me choque pas !

Cdt.