初始化与终结化的应用
Class User
Private Sub Class_Initialize
‘当这个类被创建时执行
End Sub
Private Sub Class_Terminate
‘当类被销毁时执行
End Sub
End Class
Get与Set的应用
Class User
‘************定义变量名*************
Private s_name
Private s_age
‘************定义Get方法************
Public Property Get name
name=s_name
End Property
Public Property Get age
age=s_age
End Property
‘************定义Set方法************
Public Property Let name(new_name)
s_name=new_name
End Property
Public Property Let age(new_age)
s_age=new_age
End Property
End Class
Set user1=New user
user1.age = ”100″
user1.name = ”zzxxbb112″
MsgBox “姓名:”+user1.name+” 年龄:”+user1.age
函数的应用
Class User
Sub msgNow
MsgBox now
End Sub
Function msgContent(content)
MsgBox content
End Function
End Class
Set user1=New user
user1.msgNow
user1.msgContent ”test”