VB 自定义控件如何添加下拉属性

[lbj985]

就像textbox的Alignment属性一样，可以选择属性值而不是输入

[fvflove]

Enum D1
  A1 = 1
  A2 = 2
End Enum
  
  
  

Public Property Get Dr() As D1
  
End Property

Public Property Let Dr(ByVal vNewValue As D1)

End Property




'Dr就要下拉属性了.

[bbhere]

fvlove最近很疯狂啊

[lbj985]

Option Explicit
Enum cColor
cvbRed = vbRed
cvbGreen = vbGreen
End Enum

Private m_BackColor As cColor


Public Property Get BackColor() As cColor
BackColor = m_BackColor
End Property

Public Property Let BackColor(ByVal New_BackColor As cColor)
m_BackColor = New_BackColor
UserControl.BackColor = m_BackColor
PropertyChanged "BackColor"
End Property


Private Sub UserControl_Initialize()
m_BackColor = cvbRed
UserControl.BackColor = m_BackColor
End Sub

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
m_BackColor = PropBag.ReadProperty("BackColor", vbRed)
UserControl.BackColor = m_BackColor
End Sub


Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Call PropBag.WriteProperty("BackColor", m_BackColor, vbRed)
End Sub



fvlove已解决本问题，非常感谢！分不多，希望有一天也能为CSDN作贡献！！