VBScript 类对象

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

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

语法

VBScript 类包含在 Class .... End Class 中

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

' Instantiation of the Class
Set objectname = new classname

类变量

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

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

类属性

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

只读属性只有一个 Property Get 过程，而只写属性（很少见）只有一个 Property Let 或 Property Set 过程。

示例

在下面的示例中，我们使用 Properties 来包装私有变量。

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

类方法

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

示例

在下面的示例中，我们使用 Properties 来包装私有变量。

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

vbscript_object_oriented.html