Discussion :

[BouB]

Bonjour, voila je suis assez newb en VB.NET 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 :

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

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

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

Merci d'avance

[BouB]

En fait en faisant

Code :

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

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

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

Comment puis je faire ?

[BouB]

J'ai oublié le Shared

[neguib]

Juste pour résumer tu pouvais faire

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

ou

Code :

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

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