点击一个text控件让它弹出系统日期对话框,可以选择日期??????

Question

各位老大们:
              小弟再次求救: 如题目一样,有一个text控件(用于输入日期)的,我现在想点击一下,就弹出日期选项框,有哪位好心人知道,请告知小弟一下,小弟不慎感激!

Answer 1

Private Sub Text1_DblClick()
    Dim x
    x = Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl,,0")
End Sub

Answer 2

http://community.csdn.net/Expert/topic/3420/3420271.xml?temp=.7865412

Answer 3

先加载一个日历控件，让它隐藏，让text得到焦点或单击时触发事件，选择后返回日期数据，然后放入text中。