新安全生产法内容:ASP类的定义

来源:百度文库 编辑:查人人中国名人网 时间:2024/05/03 15:19:34
<%

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

%>

每一行帮我解释一下Public Property Let ProgramDate(ByVal varDateIn)特写是哪个let get property是干什么用的

属性设置使用Property Let
获取属性的值:get Property

这些东西是经常在 自定义类里面见到的东西!