51Testing软件测试论坛

标题: 如何用类实现可选参数 [打印本页]

---

作者: onlonely    时间: 2009-6-13 11:22
标题: 如何用类实现可选参数
下面的代码是我理解的类

Class FF
dim  jynumber
dim  lvnumber
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   Let  lv(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
原创...支持原创

---

作者: intothestorm    时间: 2009-6-15 10:29
标题: VBS不支持可选参数，即Optional 关键字
如果你一定要用，看看这两个：
分别是利用传入array和dictionary的方式实现
http://www.4guysfromrolla.com/webtech/071801-1.shtml
http://www.softwareinquisition.c ... guments-in-vbscript

---

作者: onlonely    时间: 2009-6-15 21:25
标题: 回复 3# 的帖子
看来我还是放弃使用可选参数好了.
没有一个方法比较完美.

---

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)

Powered by Discuz! X3.2