Discussion :

[vibimi]

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

Code :

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

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

et

Code :

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

1
2
3
4
	Public Enum Parameters As Parameter
		x = 0
		y
	End Enum

car VB dit que

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 :

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

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

[BenoitM]

qu'est ce que tu veux faire?

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

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

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

1
2
if (variable = x.a) then
endif

soit comme çà

Code :

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

textbox.text = x.b

ou les deux

Code :

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

1
2
3
if (variable = x.a) then
  textbox.text = x.b
endif

[tomlev]

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 :

"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

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

[BenoitM]

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?

[tomlev]

Pour illustrer ce que je disais avant :

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

[vibimi]

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

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