在VBScript中使用類（二）

在VBScript中使用類（2）

建立對象

在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

代碼工作的方式是，我們定義

StartTime

，

ProgramDate

和

ProgramTitle為類TVProgram的屬性。這樣，這些屬性就像其他變量一樣來處理，沒有設定值則不會執行代碼。屬性名字前的Public字段有其真實含義，而且非常重要。如果你不特指一個方法或屬性為public或private，系統預設值為public，但最好養成定義任何值的良好書寫習慣（也友善你之後自己的閱讀）。

    上面程式的結果大緻如下（決定于你的本地伺服器配置）：

The Jerry Springer Show is on at

5:30pm

on

17/09/99

.

    我在英國，是以日期現實如上。不論你跑什麼工程，它的效果都不錯，但隻有你開始使用其他對象的功能，為你可能需要的所有資訊和功能，建立一個完美的接口，以支援你所建對象包圍的實體，你才會體會到對象的真正實力。

    現在，如果你不喜歡上面例子顯示日期的方法，而希望以同一種格式現實日期，也沒有不要在引用每個

ProgramDate屬性時加

FormatDateTime(),你隻需要将此類代碼植入屬性本身。

    這樣需要用另一種方法定義屬性。同樣，我們将使用ProgramDate為外部可見屬性，但因為ProgramDate屬性将成為一個函數而不是靜态值，我們将實際日期儲存在另一個屬性中internal_ProgramDate。

Class TVProgram      

               Public StartTime      

               Public internal_ProgramDate      

               Public Property Get ProgramDate      

                       ProgramDate = Day(internal_ProgramDate) & _      

                       " " & MonthName(Month(internal_ProgramDate)) & _      

                               " " & Year(internal_ProgramDate)      

               End Property      

               Public ProgramTitle      

        End Class      

        Dim objTVShow      

        Set objTVShow = New TVProgram      

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

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

        objTVShow.ProgramTitle = "The Jerry Springer Show"      

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

              objTVShow.StartTime & " on " & objTVShow.ProgramDate & "."      

程式的結果如下：

The Jerry Springer Show is on at

5:30pm

on

17 September 1999

.

感謝Sophie的翻譯

如果有問題歡迎在http://www.showc.com中提出