VFP 愛用者社區

[ioulh]

我按照以下方法設置的控件 為何點擊文本框時不彈出日曆控件呢？

一、首先建立一个表单，并在表单上选择文本框控件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())