Private Sub MonthView1_Click() '传给Text1.Text Text1.Text = Format(MonthView1.Value, "mm/dd/yyyy") MonthView1.Visible = False End Sub 注:MonthView 控件使用户能够通过日历一样的界面轻松地查看和设置日期信息。可以选择一个单独的日期或一个日期范围。 可以通过键盘或鼠标浏览控件。控件顶部的按钮是用来将月份在查看范围内外进行滚动的。控件一次可以显示多达12个月