je travaille sous VB6.
J'ai cr=E9=E9 un controle ActiveX avec une=20
propri=E9t=E9 "ScrollBars".
Je voudrais (comme dans la propri=E9t=E9 ScrollBars de base,=20
dans les zones de texte par exemple) avoir, en mode=20
cr=E9ation, une liste pour me permettre de choisir le type=20
de Barre de d=E9filement que je voudrais, =E0 savoir :
0 - Aucune
1 - Horizontale
2 - Verticale
3 - Les deux
Comment puis-je faire pour faire apparaitre une liste=20
dans les propri=E9t=E9s de mon controle ActiveX
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
François Picalausa
Bonjour/soir,
Il suffit que ta propriété ait pour type un enum: Option Explicit
Public Enum MyEnum A B C D E End Enum
Private m_Scroll As ScrollBarConstants Private m_ABCDE As MyEnum
Public Property Get ScrollBars() As ScrollBarConstants ScrollBars = m_Scroll End Property
Public Property Let ScrollBars(NewValue As ScrollBarConstants) If NewValue >= 0 And NewValue <= 3 Then m_Scroll = NewValue Else 'err.raise ... End If End Property
Public Property Get MyProp() As MyEnum MyProp = m_ABCDE End Property
Public Property Let MyProp(NewValue As MyEnum) If NewValue >= MyEnum.A And NewValue <= MyEnum.E Then m_ABCDE = NewValue Else 'err.raise ... End If End Property
-- François Picalausa (MVP VB) http://faq.vb.free.fr --- http://msdn.microsoft.com
"Christian" a écrit dans le message de news:08ef01c48ea2$c66d8950$
Comment puis-je faire pour faire apparaitre une liste dans les propriétés de mon controle ActiveX
Bonjour/soir,
Il suffit que ta propriété ait pour type un enum:
Option Explicit
Public Enum MyEnum
A
B
C
D
E
End Enum
Private m_Scroll As ScrollBarConstants
Private m_ABCDE As MyEnum
Public Property Get ScrollBars() As ScrollBarConstants
ScrollBars = m_Scroll
End Property
Public Property Let ScrollBars(NewValue As ScrollBarConstants)
If NewValue >= 0 And NewValue <= 3 Then
m_Scroll = NewValue
Else
'err.raise ...
End If
End Property
Public Property Get MyProp() As MyEnum
MyProp = m_ABCDE
End Property
Public Property Let MyProp(NewValue As MyEnum)
If NewValue >= MyEnum.A And NewValue <= MyEnum.E Then
m_ABCDE = NewValue
Else
'err.raise ...
End If
End Property
--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com
"Christian" <anonymous@discussions.microsoft.com> a écrit dans le
message de news:08ef01c48ea2$c66d8950$a401280a@phx.gbl
Comment puis-je faire pour faire apparaitre une liste
dans les propriétés de mon controle ActiveX
Il suffit que ta propriété ait pour type un enum: Option Explicit
Public Enum MyEnum A B C D E End Enum
Private m_Scroll As ScrollBarConstants Private m_ABCDE As MyEnum
Public Property Get ScrollBars() As ScrollBarConstants ScrollBars = m_Scroll End Property
Public Property Let ScrollBars(NewValue As ScrollBarConstants) If NewValue >= 0 And NewValue <= 3 Then m_Scroll = NewValue Else 'err.raise ... End If End Property
Public Property Get MyProp() As MyEnum MyProp = m_ABCDE End Property
Public Property Let MyProp(NewValue As MyEnum) If NewValue >= MyEnum.A And NewValue <= MyEnum.E Then m_ABCDE = NewValue Else 'err.raise ... End If End Property
-- François Picalausa (MVP VB) http://faq.vb.free.fr --- http://msdn.microsoft.com
"Christian" a écrit dans le message de news:08ef01c48ea2$c66d8950$
Comment puis-je faire pour faire apparaitre une liste dans les propriétés de mon controle ActiveX
