VB日历-课程设计报告.

1.Caption = lblYear.CaptionР lblYear1.FontName = lblYear.FontNameР lblMonth1.Caption = lblMonth.CaptionР lblMonth1.FontName = lblMonth.FontNameР lblNow1.Caption = lblNow.CaptionР lblNow1.FontName = lblNow.FontNameР For j = 37 To 73Р lblDay(j).Caption = lblDay(73 - j).CaptionР NextР lblShowNote1.Caption = lblShowNote.CaptionР lblShowNote1.FontName = lblShowNote.FontNameР For j = 0 To 6Р lblWeek(13 - j).FontName = lblWeek(j).FontNameР NextРEnd SubРPrivate Sub ShowNowColor() '此过程显示当前日期的颜色Р Dim i As IntegerР If lblYear.Caption & lblMonth.Caption & lblDay(intNowDayIndex).Caption & "日" = strNow ThenР lblDay(intNowDayIndex).ForeColor = frmCalMain.lblNow.ForeColorР ElseР Select Case intNowDayIndexР Case 5, 12, 19, 2, 633Р lblDay(intNowDayIndex).ForeColor = CLng(strSatColor)Р Case 6, 13, 20, 27, 34