Recherche:

Avec un attribut (cela simplifie encore)

<Personnage(TypePersonnage.Humain)>
Class Humain
Inherits Personnage
End Class

Effectivement (je devais être dans le brouillard :zzz:)
Je peux donc écrire mes classes ainsi.

Class Humain
Inherits Personnage
Public Sub New()
...

J'aurais voulu écrire ceci

Class Personnage
Private mType As TypePersonnage
Public Property Type() As TypePersonnage
'...
Public Sub New()
End Sub
Public Sub New(ByVal...

Les 2 ^^

Mais en ne mettant que

Public Sub New()
MyBase.New(TypePersonnage.Monstre)
End Subsuffit non ?
j'obtient à l'execution
valeur de ex.message

1ère étape de recherche

L'enum

Public Enum TypePersonnage
Humain = 0
Monstre = 1
End Enum
Les classes de base

@Pol63 Merci pour l'info

bonjour,


Public ActorInfos As Object
Public Function InitActorInfos(ByVal Type As Integer) As Object
Select Case Type
Case 0 'Personnage
Return...