有没有即可以自己输入日期又可以根据日期向导进行选择的日期控件?

Question

请问有没有即可以自己输入日期又可以根据日期向导进行选择的控件啊？（要求输入日期的文本框在没输入和选择的情况下是个空白的,就和Combo1那样那样既能输入又能选择.不过DTPicker1达不到所需要的要求哟.） 

Answer 1

DTPicker可以吧，将它的checkbox属性设为true试试

Answer 2

我自己写了个控件,有需要的话到我主页上去下载吧
bbs.ruichen.net

Answer 3

我的目的是要根据里面的值是否为空来保存数据,而DTPicker的值不可能为空.所以判断就无意义了.

Answer 4

不能为空吗？将checkbox的属性设为True，然后去掉它前面的勾看看

Answer 5

用TextBox和MonthView
MonthView的Visible设为FalsePrivate Sub MonthView1_DateClick(ByVal DateClicked As Date)
    Text1.Text = MonthView1.Value
    MonthView1.Visible = False
End SubPrivate Sub Text1_Click()
   MonthView1.Visible = True
End Sub

Answer 6

dtpicker and textbox :Private Sub Command1_Click()
Dim d As String
d = InputBox("please enter a date", , "2004-1-1")
If d = "" Then
Text1.Visible = True
Else
Text1.Visible = False
DTPicker1.Value = CDate(d)
End If
End SubPrivate Sub Form_Load()
Text1.Move DTPicker1.Left, DTPicker1.Top, DTPicker1.Width - 250, DTPicker1.Height
Text1.Visible = False
Text1.Text = ""
DTPicker1.UpDown = True
End Sub