VBScript高级：VBScript类对象

类是用于定义唯一类型的构造。与面向对象编程一样，VbScript 5.0支持类的创建，它与使用VB编写COM对象非常相似。

类只是对象的模板，我们实例化一个对象以访问其属性和方法。类可以包含变量，属性，方法或事件。

语法

VBScript类包含在Class …中。End类

'Defining the Class
Class classname 'Declare the object name
...
End Class

' Instantiation of the Class
Set objectname = new classname

类变量

类可以包含变量，可以是私有的也可以是公共的。类中的变量应遵循VBScript命名约定。默认情况下，class中的变量是Public。这就是为什么可以在课外访问它们的原因。

Dim var1 , var2.
Private var1 , var2.
Public var1 , var2.

类属性

类属性，例如Property Let，它处理数据验证过程并将新值分配给私有变量。属性集，它将新的属性值分配给私有对象变量。

只读属性只有一个“属性获取”过程，而只读属性（很少有）只有一个“属性让”或“属性集”过程。

例

在下面的示例中，我们使用“属性”包装私有变量。

Class Comp
   
   Private modStrType
   Private OS
 
   Public Property Let ComputerType(strType)
      modStrType = strType
   End Property
 
   Public Property Get ComputerType()
      ComputerType = modStrType
   End Property
 
   Public Property Set OperatingSystem(oObj)
      Set OS = oObj
   End Property
 
   Public Property Get OperatingSystem()
      Set OperatingSystem = OS
   End Property
 
End Class

类方法

方法允许类执行开发人员想要的操作。方法不过是函数或子例程。

例

在下面的示例中，我们使用“属性”包装私有变量。

Class Car
   
   Private Model
   Private Year
 
   Public Start()
      Fuel = 2.45
    Pressure =  4.15
   End Function
 
End Class

课堂活动

默认情况下，有两个事件自动与每个类关联。Class_Initialize和Class_Terminate。

每当您基于类实例化对象时，都会触发Class_Initialize。当对象超出范围或将对象设置为Nothing时，将引发Class_Terminate事件。

例

在下面的示例中，我们将使您了解事件在VBScript中的工作方式。

'Instantation of the Object
Set objectname = New classname 
   
Private Sub Class_Initialize(  )
 Initalization code goes here
End Sub

'When Object is Set to Nothing
Private Sub Class_Terminate(  )
 Termination code goes here
End Sub