示例如下：
Class User
Private Sub Class_Initialize
'当这个类被创建时执行
End Sub
Private Sub Class_Terminate
'当这个类被销毁时执行
End Sub
'*****************定义变量名**************************
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
Sub Test
Set user1 = new user
user1.age = "100"
user1.name = "test"
MsgBox "姓名：" + user1.name + " 年龄：" +user1.age
Set user1 = Nothing
End Sub
将上述脚本复制到文本文件，并另存为vbs文件格式，将该vbs文件加载到qtp的资源中，调用时直接书写“call test”，使用上述方法可以封装数据库操作，如将数据库连接代码加入Class_Initialize过程中，将释放连接加入到Class_Terminate过程中。
除非注明，本站文章均为原创或编译，转载请注明： 文章来自测试窝
