控件屬性編寫的疑點

Question

  寫一個控件時怎樣使它的某一個屬性有多個值, 比如就好象textbox的appearance屬性有"1-3D"與"0-Flat"兩個值，並且在屬性窗口中選定appearance後在屬性窗口的右邊combox列表框中有這兩個值供選擇，請大俠給一示例或e_mail:[email protected]

Answer 1

新建一个标准exe工程，然后加入用户控件，在usercontrol的代码粘贴下面的代码，然后关闭usercontrol的设计器，在form1上放上一个usercontrol，就可以看到你要的效果了
Enum newValue
    a
    b
End EnumPrivate mvalue As newValue
Public Property Let nvalue(value As newValue)
    mvalue = value
End PropertyPublic Property Get nvalue() As newValue
    nvalue = mvalue
End Property