如何用类实现可选参数

onlonely 发表于 2009-6-13 11:22:18

下面的代码是我理解的类
Class FF
dimjynumber
dimlvnumber
Dim gwbs
Private Sub Class_Initialize() '申明的时候赋初始值
jynumber=1
lvnumber=1
gwbs=1
end sub
Function dg(dgnumber,Optional gwbs as Integer=1)'这里还是不能使用可选参数的申明
jynumber=jynumber+dgnumber*gwbs
If jynumber>10 Then
      lvnumber=lvnumber+1
End If
End Function
Public Property Letlv(newID) 'lv属性的赋值
   lvnumber =lvnumber+ newID
End Property
Public Property Get lv() 'lv属性的取值
   lv = lvnumber
End Property
End Class
'使用上面的类FF
Set ss=new FF
call ss.dg(9)
print ss.lv
print ss.jy

[ 本帖最后由 onlonely 于 2009-6-13 11:31 编辑 ]

fei.ge 发表于 2009-6-14 20:35:02

原创...支持原创

intothestorm 发表于 2009-6-15 10:29:29

VBS不支持可选参数，即Optional 关键字

如果你一定要用，看看这两个：
分别是利用传入array和dictionary的方式实现
http://www.4guysfromrolla.com/webtech/071801-1.shtml
http://www.softwareinquisition.com/2006/03/named-optional-arguments-in-vbscript

onlonely 发表于 2009-6-15 21:25:22

回复 3# 的帖子

看来我还是放弃使用可选参数好了.
没有一个方法比较完美.

页: [1]

51Testing软件测试论坛 's Archiver