8,832
社区成员
发帖
与我相关
我的任务
分享
Imports System.ComponentModel
Public Class MyTextBox
Inherits TextBox
Public Enum MyEnmu
[Default] = 0
Warn = 1
[Error] = 2
UnKnown = 3
Other = 4
End Enum
Private _MyDefineProperty As MyEnmu = MyEnmu.Default
<CategoryAttribute("测试"), _
Browsable(True), _
DisplayName("自定义属性"), _
DescriptionAttribute("枚举属性,取值为Default(0),Warn(1),Error(2),UnKnown(3),Other(4).")> _
Public Property MyDefineProperty() As MyEnmu
Get
Return _MyDefineProperty
End Get
Set(ByVal value As MyEnmu)
_MyDefineProperty = value
End Set
End Property
End Class