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

上一页  [1] [2] [3] [4]  下一页