服务器之家

服务器之家 > 正文

VBS基础篇 - vbscript class类的定义与使用

时间：2020-08-18 10:27     来源/作者：VBS教程网

从网上看到一个vbs中使用class的例子, 转出来，共同学习！

Class 语句：声明一个类的名称，以及组成该类的变量、属性和方法的定义。

vbs类的使用方法

   类的结构:

   class 类名称
 
   end class

   调用方法 set myclass=new 类名称
   中间类里面的代码，
 
   类模块的事件过程。

?
1
2
3
4
5
6
7
Private Sub Class_Initialize()
这里写上类实例化的时候执行的代码。
end sub
 
Private Sub class_terminate()
这里是类注销的时候自动执行的代码，
end Sub

上面两个子程序的名称是规定的，如果改了名称，就会无效。
1、变量
2、函数(Function)
3、属性(Property)
4、方法 (SUB)

一、对象的访问限制，分为公有和私有，公有的（public）可以让外部访问，私有的（Private ）外部不能访问，上面几种角色都可以定义为公有或私有。

定义变量
public mystr,mystring
这样就定义了两个公有的变量，调用方法myclass.mystr
反之
Private mystr,mystring
则为私有的变量，外部不能访问的。

函数

?
1
2
3
4
5
6
7
8
Public Function Checkstr(Str)
If Isnull(Str) Then
  CheckStr = ""
  Exit Function
End If
CheckStr = Replace(Str,"'","''")
 
End Function

这是一个公有函数，外部可以访问的，调用方法 myclass.Checkstr(Str)
反之如果为私有的，则用Private 取代public

3、属性(Property)

属性分两种，一种是只写属性，一种是只读属性。

也可以为公有或私有，现在以公有为例子。
这是一个只写的属性

?
1
2
3
4
5
6
7
8
9
10
11
12
Public Property Let Value(ByVal vNewValue)
Dim tmpstr
tmpstr = vNewValue
tmpstr = split(tmpstr,"@@@")
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

如果要有读写的属性那么

?
1
2
3
4
5
6
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就具有读写的属性了，

方法，也以公有为例，

?
1
2
3
Public Sub TrueCheckUserLogin()
代码
end sub

以下为一个简单的类的的例子：

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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,"@@@")
  html = split(tmpstr(0),"|||")
  Strings = split(tmpstr(1),"|||")
  pic = split(tmpstr(2),"|||")
End Property
End Class

使用VBScript 中的类组织开发

当在一个机构内部创建Web应用程序时，有时候你会发现你自己从一个应用程序中复制和粘贴相同的代码到其它的应用程序中。如果你能够固化所有这些过程到一个好用的小包（package）中，其后你就可以在整个域中使用它了，这样会方便很多。

同 时，如果你有一个重复使用的过程，创建一个类包含你的过程可能会比较有用。使用类组织你的代码有一些优点：它使得你的代码容易阅读和调试；你可以将你的类 轻松的移值到一个Web服务中；你为其它开发人员提供一个抽象工具（从而节省了时间和资金）；同时在一个项目的开发阶段你还保留了灵活性。

当 把你的通用过程组织到一个类的时候，你创建一级抽象，允许你在几乎所有代码中实现这些过程。例如，假设在你创建的每个Web应用程序中，你者需要初始化用 户信息。这个初始化过程包括在用户登录到你的应用程序时根据用户凭证所做的一些数据库服务器连接。如果你在每个应用程序中都需要完成这个任务的话，那么将 你的代码固化到一个类中相当有意义。

下面是实现方法：

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Dim MyToolbox
Set MyToolbox = New CToolbox
Response.Write "UserName: " & MyToolbox.UserName & "<BR>" & vbCrLf
Response.Write "UserPhone: " &  MyToolbox.UserPhone & "<BR>" & vbCrLf
Set MyToolbox = Nothing
 
Class CToolbox
Private m_conn, m_rs
Private m_username, m_userphone
 
Public Property Get UserName()
   UserName = m_username
End Property
 
Public Property Get UserPhone()
   UserPhone = m_userphone
End Property
 
Private Sub Class_Initialize()
   Set m_conn = Server.CreateObject("ADODB.Connection")
   m_conn.ConnectionString = "Some connection string"
   m_conn.Open
   Set m_rs = Server.CreateObject("ADODB.Recordset")
   Set m_rs.ActiveConnection = m_conn
   m_rs.Open "SELECT * FROM Users WHERE userid = '" &
             Request.ServerVariables("LOGON_USER") & "'"
   If Not m_rs.EOF Then
     m_username = m_rs.Fields("username")
     m_userphone = m_rs.Fields("userphone")
   End If
End Sub
 
Private Sub Class_Terminate()
   On Error Resume Next
   m_rs.Close
   Set m_rs = Nothing
   m_conn.Close
   Set m_conn = Nothing
End Sub
 
End Class

从 例子中你可以看到，UserName 和 UserPhone 属性在类初始化之后就会有值。你可以将这个类的代码放到 ASP 代码的最后。然后在其余 的代码中其功能就可以在使用，不用实例化ADO对象，进行数据库调用和之后的清理。而且，如果你使用的是 Microsoft Visual InterDev，那么类中定义的属性和方法可以通过智能感知（IntelliSense）使用。

智能感知只对一级属性和方法有效，所以如果你创建一个类返回其它 ASP 类的对象，那么 InterDev 就不会提供可用的方法和属性。

下面的代码是一个类的骨架：

?
1
2
3
4
5
6
7
8
9
Class MyClass
 
Private Sub Class_Initialize()
End Sub
 
Private Sub Class_Terminate()
End Sub
 
End Class

使用这个基本信息，一个类被声明，并且可以使用它来创建对象。但是这个类的对象没有功能——它们是无用的东西。类的方法从 Public Sub 或者 Public Function 声明构建（Subs 没有返回值，而 Function 有返回值）。

有 两个方法可以暴露属性：既可以在类的全局上下文中使用 Public VarName，也可以使用 Public Property Get/Set/Let。如果你需要一个只读属性，那么只要简单地使用一个 Property Get 声明即可。所 有其它声明为 Private 的 Properties，Subs 或者 Functions 只有在实例化的对象才可用。在类的全局上下文中声明为 Private 的变量是成员变量。

创建类的另外一个好处是你可以轻易的将这个类声明移值到 Web 服务中。因为这是很多开发人员前 进的方向，你可以通过使用类创建面向对象的代码先行一步。当你移值这些类声明到一个 Web 服务时，你不需要重写所有的放置了那段代码的ASP代码。所 要做的唯一的改变就是你的对象的实例化。

我发现创建这个抽象的最大的优点是可以使用其它 Web 开发者的帮助。因为对于很多开发人员来 说在每个不同的实现中重复创建相同的代码效率相当低，所以这个方法为每个开发人员提供了一个抽象工具。这就允许每个开发人员将精力更多地集中在当前工作的 功能上面，而不是花费时间重写他们已经开发过的代码上面。

如果你奇怪为什么我不提供一个COM对象来处理这个功能，那是因为它会把你锁定 到细节设计中。通过在 ASP 中动态地创建类，你可以不用重新编译和发布就能够对类做出更改。在类固定之后，再将它移值到 COM、Windows 脚 本组件（WSC）或者一个 Web 服务中，但是在开发阶段还是灵活一些好。

以下是补充资料

?
1
2
3
Class name '参数name必选项，Class 的名称
  statements '一个或多个语句，定义了 Class 的变量、属性和方法
End Class

初始化与终结化的应用

使用Class语句可以创建一个对象，可以为它编写字段、属性及方法，它只有两个对象事件——Initialize与Terminate。

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Class TestClass
  Private Sub Class_Initialize  ' 设置 Initialize 事件，相当于构造函数
    MsgBox("TestClass started")
  End Sub
  Private Sub Class_Terminate  ' 设置 Terminate 事件，相当于析构函数
    MsgBox("TestClass terminated")
  End Sub
End Class
 
Set X = New TestClass  ' 创建一个 TestClass 实例
Set X = Nothing   ' 删除实例
 
a.类的事件方法格式是固定的，事件名是固定的，事件只能是Sub不能是Function，事件无参数；
b.类实例通过New来创建，通过Nothing来销毁；
c.记住所有的类实例都是对象，创建与销毁时记得用Set语句，没有Set是错的。

类可以有公有（Public）和私有（Private）字段：
（1）公有的字段可以外部访问，私有的不能：
（2）可以定义数组字段，且此数组字段可以是动态数组

类可以有公有或者私有的属性：
（1）公有的属性可以外部调用，私有的属性不能
（2）用Property Get定义读属性，用Property Set和Property Let来定义写属性
（3）当定义写属性时，如果此属性封装的是对象字段，则此写属性必须是Property Set
（4）属性不必是成对出现，这样就可以造成只读或只写属性，当然Private任意一方也可以造成这种情况

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Set MyUser = New User
MyUser.MyAge = "22" '设置对象的MyAge属性值
MyUser.Myname = "john" '设置对象的Myname属性值
MyUser.ToString '调用对象的ToString方法
 
Class User
  Private Str_Name '声明变量Str_Name
  Private Int_Age '声明变量Int_Age
 
  'Property Get语句，获取属性值或对象引用，Default只与Public一起使用，表示该属性为类的默认属性
  Public Property Get Myname
    Myname = Str_Name
  End Property
 
  Public Property Get MyAge
    MyAge = Int_Age
  End Property
 
  'Property Let语句，设置属性值
  Public Property Let Myname(New_Name)
    Str_Name = New_Name
  End Property
 
  Public Property Let MyAge(New_Age)
    Int_Age = new_age
  End Property
 
  '类方法
 
  Public Sub ToString()
    MsgBox "姓名："+Myname+" 年龄："+MyAge
  End Sub
 
End Class

这篇文章就介绍到这了，需要的朋友可以参考一下。

原文链接：http://www.cnblogs.com/wakey/p/5762872.html

标签：
vbs VBScript 类 Class 

相关文章

热门资讯

2020微信伤感网名听哭了 让对方看到心疼的伤感网名大全
2020微信伤感网名听哭了 让对方看到心疼的伤感网名大全 2019-12-26
歪歪漫画vip账号共享2020_yy漫画免费账号密码共享
歪歪漫画vip账号共享2020_yy漫画免费账号密码共享 2020-04-07
Intellij idea2020永久破解，亲测可用！！！
Intellij idea2020永久破解，亲测可用！！！ 2020-07-29
男生常说24816是什么意思？女生说13579是什么意思？
男生常说24816是什么意思？女生说13579是什么意思？ 2019-09-17
沙雕群名称大全2019精选 今年最火的微信群名沙雕有创意
沙雕群名称大全2019精选 今年最火的微信群名沙雕有创意 2019-07-07
返回顶部