关于自定义类的属性默认值

[SadEmprie]

对于自定义的类，如何设置其中一个属性的默认值？

[lxcc]

最好用类设计器设计类，在外接程序里面

[BadCatw]

在类的初始化中设置不可以吗?

[bu_wen]

在类初始事件中设置
比如你有这样一个属性P
Private mvarP As Long
Public Property Let P(ByVal vData As Long)
mvarP = vData
End Property
Public Property Get P() As Long
P = mvarP
End Property
Private Sub Class_Initialize()
mvarP = 5 '默认初始值为 5
End Sub