Utilisation d'une structure Type dans une classe
Bonjour,
J'ai un petit souci que je comprend pas pour le moment.
J'ai une structure qui est déclarer dans un module.
Code:
1
2
3
4
5
6
| Type EqStatusType
NbAlarmNoneUrgent As Long
NbAlarmUrgent As Long
NbInformativeAlarm As Long
ValideStatus As Boolean
End Type |
Ensuite je cherche à utiliser dans une classe de ce type:
Code:
1
2
3
4
5
6
7
8
9
10
|
private m_Status as EqStatusType
Property Get Status() As EqStatusType
Set Status = m_Status
End Property
Property Let Status(ByVal valeur As EqStatusType)
Set m_Status = valeur
End Property |
Lors de l'excecution il me plante à la compilation sur Property Get Status() As EqStatusType.
Il me dit:
Only public user defined types defined in public object modules can be use as parameters or return types for public procedures of class modules or as fields of public user defined types.
Lorsque je code il me trouve bien EqStatusType, mais si je lui demande de me trouver la définition il ne la trouve pas.
merci de votre aide
