vbs类及用VB制作的DLL类,在ASP,vbs,vb里如何调用

概述Class Yongfa365Test        '＝＝＝＝＝＝＝＝＝＝声明变量＝＝＝＝＝＝＝＝＝＝        Private p1        Private p2, p3, p4, mySex        Public MyName 'Public型变量相当于属性，引用类后可以直接调用或设置值               '＝＝＝＝＝＝＝＝＝＝声明属性＝＝＝＝＝＝＝＝＝＝     

ClassYongfa365Test

'＝＝＝＝＝＝＝＝＝＝声明变量＝＝＝＝＝＝＝＝＝＝

Privatep1

Privatep2,p3,p4,mySex

PublicMyname'Public型变量相当于属性，引用类后可以直接调用或设置值

'＝＝＝＝＝＝＝＝＝＝声明属性＝＝＝＝＝＝＝＝＝＝

PublicPropertyGetAuthor()

Author="http://www.yongfa365.com/"

EndProperty

PublicPropertySetSex(Val)

mySex=Val

EndProperty

PublicPropertyGetSex()

Sex=mySex

EndProperty

'＝＝＝＝＝＝＝＝＝＝声明方法＝＝＝＝＝＝＝＝＝＝

PublicFunctionWriteSex()

WriteSex="我的性别是："&mySex

EndFunction

'＝＝＝＝＝＝＝＝＝＝初始化＝＝＝＝＝＝＝＝＝＝

PrivateSubClass_Initialize '在创建类的实例时发生此事件。

'初始化数据：变量，定义一些对象，如

Setstrm=Server.CreateObject("ADODB.Stream")

mySex="女"

EndSub

'＝＝＝＝＝＝＝＝＝＝销毁对象＝＝＝＝＝＝＝＝＝＝

PrivateSubClass_Terminate

'在所关联的类的实例终止时发生此事件。

'把一些对象给注销掉，如：

Setstrm=

Sub

EndClass

'创建类的实例。

SetX=NewYongfa365Test

Str=X.Author

'测试初始化数据

Str=Str+vbCrLf+X.Sex

Str=Str+vbCrLf+X.WriteSex

'测试对属性附值

X.Sex="男"

Str=Str+vbCrLf+X.Sex

Str=Str+vbCrLf+X.WriteSex

'测试Public变量可以当属性来使

Str=Str+vbCrLf+X.Myname

X.Myname="我是柳永法"

Str=Str+vbCrLf+X.Myname

MsgBoxStr

'销毁类的实例。

SetX=nothing

调用方法：

ASP: set fso=server.createobject("adodb.recordset")

VBS: set fso=createobject("adodb.recordset")

总结

以上是内存溢出为你收集整理的vbs类及用VB制作的DLL类,在ASP,vbs,vb里如何调用全部内容，希望文章能够帮你解决vbs类及用VB制作的DLL类,在ASP,vbs,vb里如何调用所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。