★★★在VBScript中使用类(使用先锋海盗类的基础教程)

@")
html = split(tmpstr(0),"|||")
Strings = split(tmpstr(1),"|||")
pic = split(tmpstr(2),"|||")
End Property
这是一个只读的属性
Public Property Get TodayNum
TodayNum = Application(Forum_sn & "_Dv_setup")(9,0)
End Property

如果要有读写的属性那么
Public Property Get TodayNum
TodayNum = Application(Forum_sn & "_Dv_setup")(9,0)
End Property
Public Property Let TodayNum(ByVal vNewValue)
TodayNum = vNewValue
End Property

这样写TodayNum就具有读写的属性了，

方法，也以公有为例，
Public Sub TrueCheckUserLogin()
代码
end sub

以下为一个简单的类的的例子：
Class cls_templates
Public html,Strings,pic
Private Sub Class_Initialize()

end sub
Private Sub class_terminate()

end sub
Public Property Let Value(ByVal vNewValue)
Dim tmpstr
tmpstr = vNewValue
tmpstr = split(tmpstr,"

文章共3页: [1] [2] [3]

更多的★★★在VBScript中使用类(使用先锋海盗类的基础教程)请到论坛查看: http://BBS.TC711.COM

【双击滚屏】【评论】【收藏】【打印】【关闭】来源：互联网日期：2006-8-12