[VB.NET] Comment créer des invariants de classe ?

Version imprimable

Bonjour, voila je suis assez newb en VB.NET :mrgreen: et je cherche à savoir si c'est possible de créer des objets invariants depuis la classe de cet objet.

J'arrive très bien à faire des invariants de type Integer ou String, mais de ma classe non.

Je sais qu'en C# c'est possible mais en VB.NET je n'y arrive pas.

Voici l'exemple de mon code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Public NotInheritable Class Level Public Const WARNING As Level = New Level(1, "WARNING") Dim _level As Integer Dim _levelName As String Sub New(ByVal level As Integer, ByVal levelName As String) _level = level _levelName = levelName End Sub End Class
Premièrement je ne sais pas si je doit mettre NotInheritable dans la définition de ma classe.
Et ensuite pour ma constante WARNING j'ai les erreurs suivantes: "Les constantes doivent être de type intrinsèque ou énuméré, pas de type classe, structure ou tableau" et "Une expression de constante est requise"

Je sais qu'en C#c'est possible en faisant comme cela

Code:

public readonly static Level WARNING = new Level(1, "WARNING");

Merci d'avance

26/04/2006, 15h51
BouB

En fait en faisant

Code:

Public ReadOnly WARNING As Level = New Level(1, "WARNING")

Ca marche ... mais je n'arrive pas à appeler Level.WARNING dans mes autres classes. (Contrairement à C# :cry: )

Il faudrait que je puisse faire une constante (const) d'un objet Level ..

Comment puis je faire ?
26/04/2006, 16h04
BouB

J'ai oublié le Shared :aie:

Juste pour résumer tu pouvais faire

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Public NotInheritable Class Level
    Private _level As Integer
    Private _levelName As String
 
    Public Sub New(ByVal level As Integer, ByVal levelName As String)
        _level = level
        _levelName = levelName
    End Sub
 
    Public Shared Readonly Property  Warning() As Level
       Get
         Return New Level(1, "WARNING")
       End Get
    End Property
End Class

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Public NotInheritable Class Level
     Public Shared Readonly Warning() As New Level(1, "WARNING")
 
    Public Sub New(ByVal level As Integer, ByVal levelName As String)
        _level = level
        _levelName = levelName
    End Sub
 
    Private _level As Integer
    Private _levelName As String
 
End Class