在VBScript中使用类（三）

在VBScript中使用类（三）2010-01-29我们来分析一下（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”，但这两个比较复杂，因而我们以后再讨论。