Enumération de structures

Version imprimable

Bonjour
Est-il possible d'énumérer des structures?
L'exemple suivant ne fonctionne pas
Code:

1 2 3 4 Public Structure Parameter Dim a As Integer Dim b As String End Structure
et
Code:

1 2 3 4 Public Enum Parameters As Parameter x = 0 y End Enum
car VB dit que

Citation:

les enum doivent être déclarés en type intégral

Il me semblait avoir vu quelque part qu'il était possible de définir une variable par défaut dans une structure. Je me trompe?

J'ai essayé çà, mais c'est pas mieux :?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Public Structure Parameter Private _a As Integer Default Public Property a(ByVal ValA As Integer) As Integer Get Return _a End Get Set(ByVal value As Integer) _a = value End Set End Property Dim b As String End Structure
Tout conseil sera apprécié!
Merci ;)

29/11/2011, 11h35
BenoitM

qu'est ce que tu veux faire? :koi:
29/11/2011, 11h44
Bluedeep

Pas bien clair ce que tu veux faire; merci de préciser un peu plus.

Comme tu l'as dit un Enum ne peut avoir comme type sous-jacent qu'un type ordinal.
29/11/2011, 12h14
vibimi
Je veux pouvoir créer de petits objets comprenant un numéro d'ordre unique et une étiquette sous forme de string de manière à les utiliser soit comme constantes comme çà
Code:

1 2 if (variable = x.a) then endif
soit comme çà

Code:

textbox.text = x.b

ou les deux :mrgreen:
Code:

1 2 3 if (variable = x.a) then textbox.text = x.b endif
29/11/2011, 12h34
tomlev

Citation:

Envoyé par vibimi

Est-il possible d'énumérer des structures?

"énumérer" signifie autre chose que ce que tu cherches à faire... on parle d'énumérer une collection, par exemple.

Toi tu cherches à définir type enum basé sur une structure, et ce n'est pas possible, car :

Citation:

Envoyé par vibimi

"les enum doivent être déclarés en type intégral"

Donc en gros les seuls types de base autorisés pour les enums sont Byte, SByte, Int16, UInt16, Int32, UInt32, Int64, et UInt64

Citation:

Envoyé par vibimi

Je veux pouvoir créer de petits objets comprenant un numéro d'ordre unique et une étiquette sous forme de string de manière à les utiliser soit comme constantes comme çà

Crée une classe (ou structure si tu préfères) avec des champs Shared ReadOnly
29/11/2011, 12h44
BenoitM

Citation:

Envoyé par vibimi

Je veux pouvoir créer de petits objets comprenant un numéro d'ordre unique et une étiquette sous forme de string de manière à les utiliser soit comme constantes comme çà

Un dictrionay?

Pour illustrer ce que je disais avant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Public Structure Parameter
 
    Private _value As Integer
 
    Public Sub New(ByVal value As Integer)
        _value = value
    End Sub
 
    Public ReadOnly Property Value As Integer
        Get
            Return _value
        End Get
    End Property
 
    Public Shared ReadOnly A As New Parameter(42)
    Public Shared ReadOnly B As New Parameter(999)
 
End Structure
 
...
 
Dim x = Parameter.A
Dim y = Parameter.B

C'est le même principe que Int32.MaxValue, IntPtr.Zero ou DateTime.MinValue par exemple

01/12/2011, 00h02
vibimi

Citation:

Envoyé par tomlev

C'est le même principe que Int32.MaxValue, IntPtr.Zero ou DateTime.MinValue par exemple

I got it right! OK, j'ai pigé :ccool: Merci pour le tuyau