《机房收费之日历》

前言：机房收费之内蕴深厚，初次相识，此乃吾之浅见，愿与之分享

概要：借鉴学生信息系统日历控件的添加，应用于第一次机房收费系统

学生信息系统：以添加学籍信息为例

首先逻辑思考：

其次操作分解：

（1）添加：工程-部件-勾选Microsoft Windows Common Controls-2 6.0 (SP6)

（2）窗体加载不可见：

Private Sub Form_Load()  '加载之初日历控件不可见
    
    MonthView1.Visible = False
    MonthView2.Visible = False
End Sub
 

（3）单击text控件显示：

Private Sub txtBorndate_Click()
    MonthView1.Visible = True
End Sub

Private Sub txtRudate_Click()
    MonthView2.Visible = True
End Sub   

（4）选择日期，内容传输，控件消失

Private Sub MonthView1_DateClick(ByVal DateClicked As Date) '加入日历，设置时间，年、月、日
txtBorndate.Text = MonthView1.Year & "-" & MonthView1.Month & "-" & MonthView1.Day
MonthView1.Visible = False
End Sub

Private Sub MonthView2_DateClick(ByVal DateClicked As Date)
txtRudate.Text = MonthView2.Year & "-" & MonthView2.Month & "-" &MonthView2.Day
MonthView2.Visible = False
End Sub

第一次机房收费系统：以收取金额查询为例

首先逻辑思考：

其次操作分解：

（1）添加：与学生雷同

（2）运行之初不可见：与学生雷同

（3）控件显示：

Private Sub comboStartDate_GotFocus() '当起始日期下拉框获得焦点时，日历控件显示
   MonthView1.Visible = True
End Sub

Private Sub comboStopDate_GotFocus() '当终止日期下拉框获得焦点时，日历控件显示
   MonthView2.Visible = True
End Sub

（4）选择日期，内容传输，控件消失：与学生雷同

尾语：心思缜密，敏锐观察，以锋利的眼神究其中之不同，学己不懂之处