如何将自己制作的控件中的一些属性做成下拉框形式的，只能在几个选项中选一个

[leoxue]

如何将自己制作的控件中的一些属性做成下拉框形式的，只能在几个选项中选一个

[lilaclone]

用结构体可以实现如：
Private mvarlblAlignment As uLblAlignment '标签的对齐方式

'Label对齐方式
Public Enum uLblAlignment
[Left Justify] = 0
[Right Justify] = 1
[Center] = 2
End Enum

'标签的对齐方式
Public Property Let LabelAlignment(varAlignment As uLblAlignment)
mvarlblAlignment = varAlignment
UserControl_Resize
End Property
Public Property Get LabelAlignment() As uLblAlignment
LabelAlignment = mvarlblAlignment
End Property