在VBScript中使用類（二）

建立對象

在VBScript中建立物件類型（類）時，你首先要知道，這真的很容易！我在一個下午自學，只是閱讀了Microsof VB Script 的參考書，但必須承認，這書不是最容易閱讀的文檔。

初學者需要安裝VBScript 5.0引擎，可以在Microsoft's Scripting Site下載。

我們來看代碼。類的定義與函數和子過程非常類似。起始行為Class <MyClassName>，結尾是End Class，所有的對象定義寫在中間部門。現在我們可以用所學的來建立第一個類，不實現任何功能的類。

Class 4GuysTestObject

End Class

這看上去不是那麼回事，但當你寫入下面的代碼後，你將建立一個對象的執行個體：

Dim objTestObject

Set objTestObject = New 4GuysTestObject

Set objTestObject = Nothing

顯然，我們現在還不能用對象做任何事，現在我將解釋如何在對象中定義屬性和方法。

使用對象可以做的最基礎的，是建立一組資料。例如，假如要將時間、日期及視頻程式標題建立在一起，你可以建立一個包含屬性“StartTime”， “ProgramDate”和“ProgramTitle”的對象。代碼如下：

Class TVProgram

Public StartTime

Public ProgramDate

Public ProgramTitle

End Class

Dim objTVShow

Set objTVShow = New TVProgram

objTVShow.StartTime = CDate("17:30")

objTVShow.ProgramDate = DateSerial(1999,9,17)

objTVShow.ProgramTitle = "The Jerry Springer Show"

Response.Write objTVShow.ProgramTitle & " is on at " & _

objTVShow.StartTime & " on " & objTVShow.ProgramDate