vb编程里，如何实现点击窗体中一个文本框出现日历控件,然后可以选择相应的日期,填入文本框,日历控件消失?

Question

如题所述

Answer 1

这个解答完全符合你的要求：

首先在默认form1窗体上画一个文本框text1、再画一个日历控件MonthView1，记得是MonthView1控件，你自己排列好它们两个的位置即可，一切都按默认（不用改属性）。然后复制以下代码到form1的代码窗口里运行即可看到结果啦（如图）：

Private Sub Form_Load()

    MonthView1.Visible = False

End Sub

Private Sub Text1_Click()

    MonthView1.Visible = True

End Sub

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)

    Text1.Text = MonthView1.Year & "-" & MonthView1.Month & "-" & MonthView1.Day

    MonthView1.Visible = False

End Sub

Answer 2

设置文本框获取焦点后日历控件的可视为真，失去焦点后可视为假。
单击事件中对日历控件的可视进行判断，如果可视那么隐藏，如果不可视那么设置为可视。
在日历的选择事件中设置自身隐藏

以上几步就可以实现你的目的

Answer 3

Private Sub DTPicker1_CloseUp()
Text1.Text = DTPicker1.Value
DTPicker1.Visible = False
End Sub

Private Sub Form_Load()
DTPicker1.Visible = False
End Sub

Private Sub Text1_Click()
DTPicker1.Visible = True
DTPicker1.Left = Text1.Left
DTPicker1.Top = Text1.Top
End Sub