在Visual Foxpro编程中通过日历控件实现日期输入
一、首先建立一个表单，并在表单上选择文本框控件text1
二、在表单上插入表单控件:ActiveX 控件(oleControl)---插入控件---日历控件8.0---确定,即可调出日历控件.
三、双击表单空白处写各过程运行代码
Init属性代码中填写其日历控件隐藏代码： thisform.olecontrol1.visible=.f.
Click属性设置,表示单击表单时任一地方隐藏VF日历控件代码
thisform.olecontrol1.visible=.f.
四、双击VF日历控件，填写其各运行代码
设置vf日历控件olecontrol1的 After Update过程代码，表示将选择某一日期的日期值赋予文本框thisfomr.text1
thisform.text1.value=ttod(this._value)
设置日历控件单击Click过程代码，表示选择日期后隐藏控件
thisform.olecontrol1.visible=.f.
设置VF日期控件Init过程代码：表示打开VF日历控件后取当前年份
this.year=year(date())
this.month=month(date())
五、双击VF文本框控件，设置文本框空间单击Click过程代码，表示单击文本框控件时显现日历控件。
thisform.olecontrol1.visible=.t..
因篇幅问题不能全部显示，请点此查看更多更全内容