VBS类构造函数与Default关键字使用介绍

作者佚名来源 ASP编程浏览发布时间 2013-07-09

其实 MSDN 的 VBScript 文档中关于 Function 和 Sub 语句的部分提到过 Default 关键字：

复制代码代码如下:

 
Default 
Used only with the Public keyword in a Class block to indicate that the Function procedure is the default method for the class. An error occurs if more than one Default procedure is specified in a class. 

Default 只能在 Class 语句块中与 Public 关键字一起使用来表明函数过程是类的默认方法。如果类中一个以上的过程被定义为 Default，那么会出现错误。
一个简单的例子：

复制代码代码如下:

 
Class MyClass 
Public Default Function SayHello(name) 
SayHello = "Hello, " & name 
End Function 
End Class 
Set o = New MyClass 
MsgBox o("demon") 

很多面向对象的语言都能使用构造函数来初始化类的对象，但是 VBS 却没有构造函数的概念，只是提供了一个类初始化事件来初始化对象：

复制代码代码如下:

 
Class TestClass 
'' Setup Initialize event. 
Private Sub Class_Initialize 
MsgBox("TestClass started") 
End Sub 
'' Setup Terminate event. 
Private Sub Class_Terminate 
MsgBox("TestClass terminated") 
End Sub 
End Class 
'' Create an instance of TestClass. 
Set X = New TestClass 
'' Destroy the instance. 
Set X = Nothing 

虽然看起来很像构造函数，但是却不能带参数，没有办法像其他语言那样用特定的参数来初始化对象。
有了 Default 关键字之后，我们可以模拟实现构造函数的功能：

复制代码代码如下:

 
''Author: Demon 
''Date: 2011/09/29 
''Website: http://demon.tw 
Class Rectangle 
Private height, width 
Public Default Function Construtor(h, w) 
height = h : width = w 
Set Construtor = Me 
End Function 
Public Property Get Area 
Area = height * width 
End Property 
End Class 
''看起来是不是很像构造函数呢 
Set r = (New Rectangle)(6, 8) 
MsgBox r.Area 

参考链接：VBScript''s default keyword
原文:http://demon.tw/programming/vbs-default-keyword.html

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!

分享到：更多

你可能对下面的文章感兴趣

上一篇: 支持断点下载的VBS代码下一篇: 用vbs产生的若干个随机数并写入到一个.txt中的代码

关于VBS类构造函数与Default关键字使用介绍的所有评论

随机推荐