国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

ASP中類Class相關內容的整理資料

2024-05-04 11:01:43
字體:
來源:轉載
供稿:網友
Class 對象
使用 Class 語句創建的對象。提供了對類的各種事件的訪問。

說明

不允許顯式地將一個變量聲明為 Class 類型。在 VBScript 的上下文中,“類對象”一詞指的是用 VBScript Class 語句定義的任何對象。

在使用 Class 語句建立了類定義之后,可以用下面的形式創建類的一個實例:

Dim X
Set X = New classname
由于 VBScript 是一種后期約束型語言,下面的做法是不允許的:

Dim X as New classname
-或- 

Dim X
X = New classname
-或- 

Set X = New Scripting.FileSystemObject

Class 對象的事件
Class 對象提供對類的事件的訪問。

Initialize 事件
在創建類的實例時發生此事件。

Private Sub Class_Initialize()
 語句
End Sub
當類初始化時,statements部分由零個或多個將要運行的代碼語句組成。

說明
下面的例子演示了 Initialize 事件的用法。

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 ' 刪除實例。

Terminate 事件

在所關聯的類的實例終止時發生此事件。

Private Sub Class_Terminate()
 語句
End Sub
當類初始化時,statements 部分由零個或多個將要運行的代碼語句組成。

說明
下面的例子演示了 Terminate 事件的用法。

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 ' 刪除實例。

Class 語句
聲明一個類的名稱,以及組成該類的變量、屬性和方法的定義。
Class name
 statements
End Class 
參數
name  必選項。Class 的名稱;遵照標準的變量命名規則。 
statements  必選項。一個或多個語句,定義了 Class 的變量、屬性和方法。 
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 连州市| 西宁市| 任丘市| 南城县| 犍为县| 松潘县| 雷山县| 五原县| 鄂伦春自治旗| 汉川市| 蒙自县| 玉林市| 澄江县| 眉山市| 双城市| 新源县| 阳新县| 福鼎市| 本溪| 师宗县| 广灵县| 沾化县| 大荔县| 藁城市| 肥东县| 闽侯县| 赣州市| 托克托县| 梅河口市| 桃源县| 夏邑县| 枝江市| 长子县| 西林县| 砀山县| 沾化县| 阿坝| 堆龙德庆县| 偏关县| 同德县| 屏东县|