Discussion :

[Domi2]

Bonjour,

Je suis en train de créer un module de classe Erreurs, dont l'une des propriétés est la gravité de celle-ci. J'en suis pour l'instant à utiliser un boleean pour la propriété ErreurCritique.

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
Private mblnErreurCritique As Boolean
 
'Lecture de la propriété ErreurCritique
Public Property Get ErreurCritique() As Boolean
 
    ErreurCritique = mblnErreurCritique
 
End Property
 
'Ecriture de la propriété ErreurCritique
Public Property Let ErreurCritique(ByVal blnErreurCritique As Boolean)
 
    mblnErreurCritique = blnErreurCritique
 
End Property

Ma question : est-il possible de personnaliser la propriété (type String), de façon à ce qu'après avoir tapé le signe "=" dans l'éditeur, Intellisence propose une liste de choix (idem que True/False pour le type Boleean), comme suit :

Erreur critique
Erreur grave
Erreur...

Par avance, merci de votre aide.

Domi2

[Invité]

Bonjour

Va voir du coté Enum dans l'aide.

Starec

[Domi2]

Bonjour Starec... et merci,

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
24
25
26
Option Compare Database
Option Explicit
 
Public Enum TypeErreur
 
    Critique = 1
    Grave = 2
 
End Enum
 
.....
 
 
'Lecture de la propriété ErreurType
Public Property Get ErreurType() As TypeErreur
 
    ErreurType = mstrErreurType
 
End Property
 
'Ecriture de la propriété ErreurType
Public Property Let ErreurType(ByVal strErreurType As TypeErreur)
 
    mstrErreurType = strErreurType
 
End Property

Ca fonctionne nickel...

Domi2