在VBScript中使用類（三） - 中國WEB開發者網絡 (http://www.webasp.net) -- 技術教程 (http://www.webasp.net/article/) --- 在VBScript中使用類（三） (http://www.webasp.net/article/8/7944.htm)

-- 作者：未知 -- 發佈日期： 2003-12-07

我們來分析一下（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」，但這兩個比較複雜，因而我們以後再討論。 接下去的代碼看來有點難度的，給objectname.internal_ProgramDate賦值並通過objectname.ProgramDate來調用它。如果可以使用相同關鍵字同時為其賦值並獲得它的值不是更好嗎？當然，那也可以。 如果定義Get和Let屬性的名稱相同，可以將它們當作對像相同的屬性，但這只限於它們定義了相同數量的成員。（以下代碼看來不太相同，僅作為實例參考） 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 Property Let ProgramDate(ByVal varDateIn) internal_ProgramDate = CDate(varDateIn) End Property Public ProgramTitle End Class Dim objTVShow Set objTVShow = New TVProgram objTVShow.StartTime = CDate("17:30") objTVShow.ProgramDate = "17 Sept 99" objTVShow.ProgramTitle = "The Jerry Springer Show" Response.Write objTVShow.ProgramTitle & " is on at " & _ objTVShow.StartTime & " on " & objTVShow.ProgramDate & "." 以上代碼中Let的聲明部分看來似乎是一個多餘的元素，當我第一次看到時研究了很長時間。每次我使用「0」作為變量用在每個屬性上，我總是得到這個錯誤信息，「元素數量必須相等」。「它們確實相等！」抓狂之後，我回過頭去看程序才覺得自己的愚蠢！：） 原因是，當你試圖為ProgramDate賦值時，你會使用這樣一行程序： objTVShow.ProgramDate = dtmMyDate 為了方便，等號右邊的值（這裡指dtmMyDate）作為了一個程元賦給了函數。因此編譯器可能會認為在Get ProgramDate行有0程元，而Let ProgramDate卻多一個！分配的值總是被略過而作為屬性的最後一個程元，所以即使你使用其他程元，所賦的值總是作為最後一個程元。 現在看程序。無論通過ProgramDate設置日期為文本形式，還是用internal_ProgramDate譯成日期變量，程序都沒有問題。但能不能只使用一個入口呢？ 如果internal_ProgramDate只能在內部有效，而使用Let ProgramDate檢查傳輸的數據類型，我們就可以作出選擇。例如： Class TVProgram Public StartTime Private internal_ProgramDate Public Property Get ProgramDate ProgramDate = Day(internal_ProgramDate) & " " & _ MonthName(Month(internal_ProgramDate)) & _ " " & Year(internal_ProgramDate) End Property Public Property Let ProgramDate(ByVal varDateIn) If IsDate(varDateIn) Then internal_ProgramDate = varDateIn Else 'Place some error handling code in here. End If End Property Public ProgramTitle End Class 並同樣聲明StartTime屬性： Class TVProgram Private internal_StartTime Public Property Get StartTime StartTime = Hour(internal_StartTime) & ":" _ & Minute(internal_StartTime) End Property Public Property Let StartTime(ByVal varTimeIn) If IsDate(varTimeIn) Then internal_StartTime = varTimeIn End If End Property Private internal_ProgramDate Public Property Get ProgramDate ProgramDate = Day(internal_ProgramDate) & " " _ & MonthName(Month(internal_ProgramDate)) & _ " " & Year(internal_ProgramDate) End Property Public Property Let ProgramDate(ByVal varDateIn) If IsDate(varDateIn) Then internal_ProgramDate = varDateIn End If End Property Public ProgramTitle End Class ... 現在的代碼離我們想要的還是有些不太實用，我們將在其他頁使用類TVProgram，因此最好將其獨立定義，以便所有也面都可以調用。我們將在第四部分討論這點。

webasp.net