简易日历课程建立报告(VB).docVIP

简易日历设计报告 学院 班级 学号 姓名 成绩 一、设计思路 1.要达到的目的 ①能够窗体加载自动提取并显示当前日期。 ②能够选择1960-2060之间的任一年份。 ③选择某一日期后,添加边框。 ④在窗体下方显示所选择的日期及其星期。 ⑤单击确定或“Enter”后显示所选日期。 ⑥单击“退出”或单击“Esc”键退出关闭窗。 ⑦根据所选年份和月份，确定显示天数的个数。 ⑧日期和星期对齐。 ⑨在日历提示一些固定节假日。 ⑩判断生肖，并用图片的形式显示出来。 2.关键问题的解决 ①利用数组向下拉列表框中填充项目，调整标签显示数据。 ②利用时间函数取得当前日期和星期，并显示在文本框中，根据日期调整列表框种显示的项目。 ③选择某一标签后，改变其边框，其他标签无边框。 ④单击项目时从下拉列表框中取得与月份和年份对应的值储存在变量中，单击标签取得日期数值，按下确定。按钮将其合并为日期，利用函数计算星期，调整格式显示在文本框中。 ⑤选择月份和年份后，于28，29，30，31组合并调整为日期格式，与日期型匹配，看是否存在。 ⑥根据某天是否存在更改标签隐藏属性。 ⑦根据星期数移动数组调整标签caption属性，使星期与日期对齐。 ⑧将节日与其提示信息存在文本中，当当前日期与文件中相同时，用消息提示框显示提示信息。 ⑨利用图片加载，实现生肖判断。 二、模块之间的调用关系，或程序流程图 三、部分程序关键源代码及注释 Dim day1 As Integer Private Sub Cbomonth_Click() Labeldate.Caption = Labeljr.Caption = Labelweek = 注释：仅有月份的变化不足以计算出星期，故使labelweek为空 Call setday Call lblnumber_Click(selectedate - 1) End Sub Private Sub Cboyear_Click() Labeldate.Caption = Labelweek.Caption = Labeljr.Caption = 注释：仅有年份的变化不足以计算出星期，故使labelweek为空 Call Cbomonth_Click End Sub Private Sub Command1_Click() Dim month1 As Integer, year1 As Integer, date1 As String month1 = cbomonth.ListIndex + 1 year1 = Cboyear.ListIndex + 1960 day1 = CInt(Format(Now, dd)) date1 = (Str(month1) + / + Str(day1) + / + Str(year1)) yanzheng = Str(year1) + 年 + Str$(month1) + 月 + Str(day1) + 日 If yanzheng Labeldate.Caption Then Labeldate.Caption = Labeljr.Caption = End If Dim r As Integer r = Weekday(date1) Call makesurecaption(r) 注释：makesurecaption是确定星期的用户定义函数（250行） Dim selected As Boolean Dim q As Integer 注释：selected表示是否选择具体日期，若没有则通过massagebox通知 selected = False Labeljr.Caption = For i = 0 To 30 If lblnumber(i).BorderStyle = 1 Then day1 = i + 1 selected = True End If Next i 注释：风格框 If Not (selected) Then MsgBox (请选择具体日期！) GoTo line1 注释：line1在本模块的末尾，即不继续执行本模块，令用户选择具体日期 End If month1 = cbomonth.ListIndex + 1 year1 = Cboyear.ListIndex + 1960 q = year1 M