vb如何调用计算机日历,跪求vb.net简易日历制作的源代码

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

我们要的计算机VB考试要求设计一个简易日历。还需要答辩 每一个步骤需要知道是怎么来的。下面是网上找的编写的简易日历的VB。请高手给出每个步骤的答辩：

一、设计思路

1.要达到的目的

①窗体加载自动提取并显示当前日期

②能选择1960-2060之间的任一年份

③单击确定后显示所选日期

④节日等在选定日期后以MsgBox形式提示

⑤单击退出关闭窗体

⑥根据所选年份和月份，确定显示天数的个数

⑦年月日及下方的显示只可读不可输入

⑧选择某一日期后凹陷显示并在窗体下方显示所选择的日期及其星期

2.关键问题的解决

①根据所选年份和月份，确定显示天数的个数

②显示节日——利用MsgBox等函数

③选择某一日期后凹陷显示并在窗体下方显示所选择的日期及其星期——修改Label的BorderStyle属性

④年月日及下方的显示只可读不可输入——修改ComboBox的BorderStyle属性和TextBox的Locked属性

二、模块之间的调用关系，或程序流程图

还有相对独立的bnyes,bnexit模块

三、部分程序关键源代码及注释

Private Sub checkdate(month%, year%)

Dim i%, value%, datebn$

For i% = 28 To 32

datebn$ = (Str$(month%) + "/" + Str$(i%) + "/" + Str$(year%))

If IsDate(datebn$) Then

value% = i%

Else

Call visualnumber(value%)

Exit Sub

End If

Next i%

End Sub

Private Sub visualnumber(number%)

Dim i%

For i% = 28 To 30

bndate(i%).Visible = False

Next i%

For i% = 28 To number% - 1

bndate(i%).Visible = True

Next i%

End Sub ’ 根据所选年份和月份，确定显示天数的个数