Property d'un OCX
cocacolas
Messages postés
1
Date d'inscription
vendredi 11 janvier 2002
Statut
Membre
Dernière intervention
19 février 2003
-
19 févr. 2003 à 18:03
ajdw Messages postés 17 Date d'inscription mardi 29 août 2006 Statut Membre Dernière intervention 16 septembre 2008 - 26 août 2008 à 19:01
ajdw Messages postés 17 Date d'inscription mardi 29 août 2006 Statut Membre Dernière intervention 16 septembre 2008 - 26 août 2008 à 19:01
1 réponse
ajdw
Messages postés
17
Date d'inscription
mardi 29 août 2006
Statut
Membre
Dernière intervention
16 septembre 2008
26 août 2008 à 19:01
26 août 2008 à 19:01
Salut,
Il est peut-être un peu tard pour répondre à ta question, mais il suffit de déclarer une variable puis d'en énumérer les conditions. Un exemple :
Private nSensDefilement As Defilement_Constants
Public Enum Defilement_Constants
[No defilement] = 0
[Ping-pong Left/Right] = 1
[Ping-pong Up/Down] = 2
[Right to left] = 3
[Left To Right] = 4
[Up To down] = 5
[Down To up] = 6
End Enum
Il ne te reste plus qu'à déclarer la variable SensDefilement comme tout autre propriété:
Public Property Get SensDefilement() As Defilement_Constants: SensDefilement = nSensDefilement: End Property
Public Property Let SensDefilement(SensDefilement As Defilement_Constants)
nSensDefilement = SensDefilement
PropertyChanged "SensDefilement"
End Property
Bonne chance à toi.
Un code et ça repart
Il est peut-être un peu tard pour répondre à ta question, mais il suffit de déclarer une variable puis d'en énumérer les conditions. Un exemple :
Private nSensDefilement As Defilement_Constants
Public Enum Defilement_Constants
[No defilement] = 0
[Ping-pong Left/Right] = 1
[Ping-pong Up/Down] = 2
[Right to left] = 3
[Left To Right] = 4
[Up To down] = 5
[Down To up] = 6
End Enum
Il ne te reste plus qu'à déclarer la variable SensDefilement comme tout autre propriété:
Public Property Get SensDefilement() As Defilement_Constants: SensDefilement = nSensDefilement: End Property
Public Property Let SensDefilement(SensDefilement As Defilement_Constants)
nSensDefilement = SensDefilement
PropertyChanged "SensDefilement"
End Property
Bonne chance à toi.
Un code et ça repart