输入raygun(currentCharge as int,maxDamage as int,minDamage as int)
我找不到任何演示如何在初始化时将类型的属性设置为默认值的示例。例如,在这种情况下将currentCharge默认为100是有意义的。我理解当前不支持常量,但我想知道是否有办法做到这一点,我可能没有考虑过。
答案 0 :(得分:0)
没有自动的方法。 但是,您可以创建一个子类来创建类型并根据需要对其进行初始化:
Dim rg As Raygun
rg = InitRaygun
Sub InitRaygun As Raygun
Dim r As Raygun
r.Initialize
r.currentCharge = 100
Return r
End Sub