[VB.NET] Constante d'un objet créé [Résolu]

Signaler
Messages postés
30
Date d'inscription
samedi 16 août 2003
Statut
Membre
Dernière intervention
8 juin 2006
-
Messages postés
30
Date d'inscription
samedi 16 août 2003
Statut
Membre
Dernière intervention
8 juin 2006
-
Bonjour, ma question est simple

J'ai une constante comme celle-ci en C#
public readonly static Level WARNING = new Level(1, "WARNING");

Je souhaite avoir la même chose en VB.NET
Je n'arrive qu'à fiare des public const d'Integer ou de String. Pas d'objets que j'ai créé.

Merci d'avance

4 réponses

Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
30
Salut

C'est pourtant la même chose, y'a que la syntaxe qui change
Public ReadOnly WARNING As Level = New Level(1, "WARNING")





Kenji

<hr width="100%" size="2">



Merci de cliquer sur "Réponse acceptée" si une réponse vous convient.
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 123 internautes nous ont dit merci ce mois-ci

Messages postés
30
Date d'inscription
samedi 16 août 2003
Statut
Membre
Dernière intervention
8 juin 2006

J'ai oublié le shared
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 123 internautes nous ont dit merci ce mois-ci

Messages postés
30
Date d'inscription
samedi 16 août 2003
Statut
Membre
Dernière intervention
8 juin 2006

Merci, je suis un balochard en fait :)

Et n'hesisterai pas en VB.NET un mot clef jouant le même rôle que final en Java ou sealed en C#

Afin que je suis puisse utilisé mon Level.WARNING partout :)
Messages postés
30
Date d'inscription
samedi 16 août 2003
Statut
Membre
Dernière intervention
8 juin 2006

J'essaie avec Notheritable mais ca ne fonctionne pas ...
:(

En gros ma classe est comme cela

 Public NotInheritable Class Level

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

        Public ReadOnly DANGER As Level = New Level(5, "DANGER")

        Public ReadOnly CRITICAL As Level = New Level(10, "CRITICAL")

        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

Je souhaite utiliser Level.WARNING par exemple dans mes autres classes