简易日历课程设计报告(vb)

《简易日历课程设计报告(vb)》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、简易日历课程设计报告（VB）编号：13简易日历设计报告学院班级学号姓名成绩一、设计思路1.要达到的目的①能够窗体加载自动提取并显示当前日期。②能够选择1960-2060之间的任一年份。③选择某一日期后,添加边框。④在窗体下方显示所选择的日期及其星期。⑤单击确定或“Enter”后显示所选日期。⑥单击“退出”或单击“Esc”键退出关闭窗。⑦根据所选年份和月份，确定显示天数的个数。⑧日期和星期对齐。⑨在日历提示一些固定节假日。⑩判断生肖，并用图片的形式显示出来。2.关键问题的解决①利用数组向下拉列表框中填充项目，调整标签显示数据。②利用时间函数取得当前日期和星期，并显示在文本框中

2、，根据日期调整列表框种显示的项目。③选择某一标签后，改变其边框，其他标签无边框。④单击项目时从下拉列表框中取得与月份和年份对应的值储存在变量中，单击标签取得日期数值，按下确定。按钮将其合并为日期，利用函数计算星期，调整格式显示在文本框中。⑤选择月份和年份后，于28，29，30，31组合并调整为日期格式，与日期型匹配，看是否存在。⑥根据某天是否存在更改标签隐藏属性。⑦根据星期数移动数组调整标签caption属性，使星期与日期对齐。⑧将节日与其提示信息存在文本中，当当前日期与文件中相同时，用消息提示框显示提示信息。⑨利用图片加载，实现生肖判断。Fillcbomonthfillc

3、boyearcbomonthlblnumbercboyearCommand1Command2FormloadLabeljrLabelweekLabeldateImage1二、模块之间的调用关系，或程序流程图otherstaffoftheCentre.Duringthewar,ZhuwastransferredbacktoJiangxi,andDirectorofthenewOfficeinJingdezhen,JiangxiCommitteeSecretary.Startingin1939servedasrecorderoftheWestNorthOrganization,

4、SecretaryoftheSpecialCommitteeAfterthevictoryofthelongMarch,hehasbeentheNorthwestOfficeoftheFederationofStateenterprisesMinister,ShenmufuguSARmissions,DirectorofNingxiaCountypartyCommitteeSecretaryandrecorderoftheCountypartyCommitteeSecretary,Ministersand简易日历课程设计报告（VB）编号：13三、部分程序关键源代码及注释Di

5、mday1AsIntegerPrivateSubCbomonth_Click()Labeldate.Caption=""Labeljr.Caption=""Labelweek=""注释：仅有月份的变化不足以计算出星期，故使labelweek为空CallsetdayCalllblnumber_Click(selectedate-1)EndSubPrivateSubCboyear_Click()Labeldate.Caption=""Labelweek.Caption=""Labeljr.Caption=""注释：仅有年份的变化不足以计算出星期，故使labelweek为空Cal

6、lCbomonth_ClickEndSubPrivateSubCommand1_Click()Dimmonth1AsInteger,year1AsInteger,date1AsStringmonth1=cbomonth.ListIndex+1year1=Cboyear.ListIndex+1960day1=CInt(Format(Now,"dd"))date1=(Str(month1)+"/"+Str(day1)+"/"+Str(year1))yanzheng=Str(year1)+"年"+Str$(month1)+"月"+Str(day1)+"日"Ifyanzheng<>

7、Labeldate.CaptionThenLabeldate.Caption=""Labeljr.Caption=""EndIfDimrAsIntegerr=Weekday(date1)Callmakesurecaption(r)注释：makesurecaption是确定星期的用户定义函数（250行）DimselectedAsBooleanDimqAsInteger注释：selected表示是否选择具体日期，若没有则通过massagebox通知selected=FalseLabeljr.Caption=""Fori