|
創(chuàng)建對象
在VBScript中創(chuàng)建對象類型（類）時(shí)，你首先要知道，這真的很容易！我在一個(gè)下午自學(xué)，只是閱讀了Microsof VB Script 的參考書，但必須承認(rèn)，這書不是最容易閱讀的文檔。
初學(xué)者需要安裝VBScript 5.0引擎，可以在Microsoft's Scripting Site下載。
我們來看代碼。類的定義與函數(shù)和子過程非常類似。起始行為Class ，結(jié)尾是End Class，所有的對象定義寫在中間部門。現(xiàn)在我們可以用所學(xué)的來建立第一個(gè)類，不實(shí)現(xiàn)任何功能的類。
Class 4GuysTestObject
End Class
這看上去不是那么回事，但當(dāng)你寫入下面的代碼后，你將創(chuàng)建一個(gè)對象的實(shí)例：
Dim objTestObject
Set objTestObject = New 4GuysTestObject
Set objTestObject = Nothing
顯然，我們現(xiàn)在還不能用對象做任何事，現(xiàn)在我將解釋如何在對象中定義屬性和方法。
使用對象可以做的最基礎(chǔ)的，是建立一組數(shù)據(jù)。例如，假如要將時(shí)間、日期及視頻程序標(biāo)題建立在一起，你可以創(chuàng)建一個(gè)包含屬性“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的屬性。這樣，這些屬性就像其他變量一樣來處理，沒有設(shè)置值則不會(huì)執(zhí)行代碼。屬性名字前的Public字段有其真實(shí)含義，而且非常重要。如果你不特指一個(gè)方法或?qū)傩詾閜ublic或private，系統(tǒng)默認(rèn)值為public，但最好養(yǎng)成定義任何值的良好書寫習(xí)慣（也方便你之后自己的閱讀）。
上面程序的結(jié)果大致如下（決定于你的本地服務(wù)器配置）：
The Jerry Springer Show is on at 5:30pm on 17/09/99.
我在英國，所以日期現(xiàn)實(shí)如上。不論你跑什么工程，它的效果都不錯(cuò)，但只有你開始使用其他對象的功能，為你可能需要的所有信息和功能，創(chuàng)建一個(gè)完美的接口，以支持你所建對象包圍的實(shí)體，你才會(huì)體會(huì)到對象的真正實(shí)力。
現(xiàn)在，如果你不喜歡上面例子顯示日期的方法，而希望以同一種格式現(xiàn)實(shí)日期，也沒有不要在引用每個(gè)ProgramDate屬性時(shí)加FormatDateTime(),你只需要將此類代碼植入屬性本身。
這樣需要用另一種方法定義屬性。同樣，我們將使用ProgramDate為外部可見屬性，但因?yàn)镻rogramDate屬性將成為一個(gè)函數(shù)而不是靜態(tài)值，我們將實(shí)際日期保存在另一個(gè)屬性中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 & "."
程序的結(jié)果如下：
The Jerry Springer Show is on at 5:30pm on 17 September 1999.
|
