vbs的类模板

最新推荐文章于 2023-02-18 22:53:32 发布

原创最新推荐文章于 2023-02-18 22:53:32 发布 · 1k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#class #function

asp 专栏收录该内容

11 篇文章

订阅专栏

博客展示了一段代码，创建了名为nic的类，包含内部私有变量、类的初始化和清空事件，还定义了类的let和get属性以及一个类的方法，体现了class和function在代码中的具体运用。

Class nic                                                        '创建一个名为nic的类
private WawaValue                                              '创建一个内部私有变量

Private Sub Class_Initialize()                                 '定义类的初始化事件
  Response.Write("nic类被创建了<br>")
  WawaValue=1
End Sub
Private Sub Class_Terminate   ' 设置 Terminate 事件。           '定义类的清空事件
  Response.Write("<br>nic类被清空了")
    End Sub

Public Property Let propertynic(ByVal nic_arg)               '定义类的一个let属性
  WawaValue=nic_arg
End Property
Public Property Get propertynic()                             '定义一个类的get属性
  propertynic=nicValue
End Property

Public Function functionnic(ByVal nic_arg)                   '定义个一个类的方法
  Dim name,value
  name="nn"
  functionnic=nic_arg+name
End Function
End Class