vbs 类模板

在 VBScript 中，我们可以使用类模板来定义一个类，然后使用该类来创建对象并执行其方法。以下是一个简单的 VBScript 类模板示例：

Class Car
    Private make
    Private model
    Private year

    Public Sub SetMake(value)
        make = value
    End Sub

    Public Function GetMake()
        GetMake = make
    End Function

    Public Sub SetModel(value)
        model = value
    End Sub

    Public Function GetModel()
        GetModel = model
    End Function

    Public Sub SetYear(value)
        year = value
    End Sub

    Public Function GetYear()
        GetYear = year
    End Function
End Class

' 创建 Car 对象
Dim myCar
Set myCar = New Car

' 设置属性
myCar.SetMake("Toyota")
myCar.SetModel("Camry")
myCar.SetYear(2020)

' 获取属性
WScript.Echo "Make: " & myCar.GetMake()
WScript.Echo "Model: " & myCar.GetModel()
WScript.Echo "Year: " & myCar.GetYear()

在上面的示例中，我们定义了一个名为 Car 的类，它具有 make、model 和 year 三个私有属性，以及 SetMake、GetMake、SetModel、GetModel、SetYear 和 GetYear 六个公共方法。然后我们创建了一个 Car 对象，并使用其公共方法设置和获取属性值。