Bonjour,

J'ai un certains d'énumérations que je souhaiterais faire préfixer de enums.

Je les avais initialement mises dans un module enums.bas, mais ça ne passait pas quand je définissais une énumération, par exemple Dim pState As enums.state en ayant l'erreur user-type not defined. Du coup, je les ai "rangées" dans une classe statique enums.cls, c'est-à-dire avec Attribute VB_PredeclaredId = True, mais ça ne passe quand même pas. J'ignore un peu ce qu'il en est des autres attributs.

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
VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "enums"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable =  False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Attribute VB_Description = "This class module defines custom enumerations."
Option Explicit
 
'
Public Enum state
    NOT_DEFINED = -1
    IDLE
    RUNNING
    PENDING
    POSTPONED
    EXITING
    [_First] = IDLE
    [_Last] = EXITING
End Enum
Biensûr, si je pourrais sous-décliner les énumérations comme Dim pState As enums.external.current.state, ça serait encore mieux...

Prenneur d'idées et merci par avance !