vbscript中函数是否可以定义成为多态形式

[lcahuang]

vbscript中函数是否可以定义成为多态形式？
比如说：
funcA(a, b default 1)
参数b可以指定，也可以不指定。不指定时为1。

[lcahuang]

好像是不支持。谢谢！

[nevsong]

VB可以,VBS无试过,你可以试试

funcA(a , Optional b as Integer = 1)

[三仙半]

我也想过这个问题，但还没弄明白，有知道是否可以实现，能实现怎么实现的朋友帮忙解释一下

[BlueDestiny]

vbs语言本身不支持。功能只有封装...

[showlin]

vbs应该是不支持多态的

[三仙半]

BlueDestiny(这回真的准备要改名字了...) ：给个封装的例子如何？我可以单独开一个帖子给你100分。我的信誉一直是100。

[BlueDestiny]

<script language="vbs">
//<![CDATA[
class a
private m1
public m2
private sub class_initialize()
msgbox("构造函数")
m1="never-online"
end sub
private sub class_terminate()
msgbox("析构函数")
end sub
public function interface(val)
m2=val
msgbox("调用public接口")
end function
end class

set b=new a
b.interface("bb")
msgbox(b.m2)
'这里会出错，因为m1是private
'msgbox(b.m1)
set b=nothing

//]]>
</script>

[三仙半]

BlueDestiny(这回真的准备要改名字了...) :哥们，你这实现多态了吗？我没看明白呀！给点解释，行吗？

[aarony_net]

请参考http://blog.aarony.net上vbscript develop guide中关于函数与过程一节，讨论了如果构造一个缺省参数函数。

[BlueDestiny]

给个封装的例子如何？
--------------------------
嗯？？你不是要我给你封装的例子？

[三仙半]

BlueDestiny(这回真的准备要改名字了...) ：新帖子开了，去拿分吧。
不过最好把封装的原理和方法给解释一下。
赶兴趣的朋友都过去帮呐喊助威，不过没有分给大家，因为我只有100分信誉，都给BlueDestiny(这回真的准备要改名字了...) 了。

[超级大笨狼]

多态,用数组做参数来模拟吧，参数类型要自己在函数里用VarType 或者 TypeNam判断了。
function aaa(Arr)
dim length:length=ubound(Arr)
' if length=3
dim Type =VarType(Arr(2))
select case Type
end function

aaa(array(1,2))
aaa(array(1,2,3))
aaa(array(1,2,"字符串"))