在VBScript中使用類（三）

我們來分析一下（2）中的程式：

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 & "."

當調用對象的屬性ProgramDate時，實際上執行了函數ProgramDate，即如上定義的函數，而很快你也將習慣這種在聲明部分使用Public或Private關鍵字的方式。關鍵字“Property”，告知了編譯器如同調用屬性一樣在外部調用函數。接著的“Get”，表明該函數是輸出還是獲得一個值。

Get的意思是“允許外部代碼去‘擷取’一個值”，與其類似的關鍵字還有“Let”和“Set”，但這兩個比較複雜，因而我們以後再討論。