大家帮我写一个属性设置的程序,,,我现在不能理解,,就写个最简单的吧,

[honghuige]

大家就帮我写一个,,,
AAA属性,,,属性的取范围是,,,,1,2,3,4,5这五个数
大家帮一下,,并解释一下,,,先谢谢大家

[capricciososoft]

Public Enum 名字1
一 = 1
二 = 2
三 = 3
四 = 4
五 = 5
End Enum
Dim 名字2 As 名字1
Public Property Get AAA() As 名字1
AAA = 名字2
End Property
Public Property Let AAA(ByVal New名字2 As 名字1)
名字2 = New名字2
PropertyChanged "AAA"
UserControl_Resize
End Property

[capricciososoft]

'还有两个过程
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
名字2 = PropBag.ReadProperty("AAA", 1)'默认值1
End Sub
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Call PropBag.WriteProperty("AAA", 名字2, 1)
End Sub

[honghuige]

可是我看不明白呀,,可不可以从头到脚解释一下,,