表单调用问题。

来源:百度文库 编辑:神马文学网 时间:2024/04/27 13:27:45
vfp程序界面中,在父窗口点击一个按钮到子窗口,子窗口可输入关键字,
如何使主窗口某按钮触发事件时,引用父窗口里的控件,直接用父窗口控件名称好象不可以的,请高手指点
*-------------------------------------------------------------------------------------
用父窗口(表单)的文件名.
如你的父窗口(表单)文件名为FormF.scx,Name为Form1,
那么在子窗口(表单)调用:FormF.Text1.value='123',而不用父窗口(表单)的NAME值。
举个例子:
表单1的文件名为   FORM_1.SCX
表单1的NAME值为   FORM1
表单2的文件名为   FORM_2.SCX
表单2的NAME值为   FORM2
当表单1和表单2都在运行时,在表单1修改表单2的属性的最简单方法:
如:
FORM_2.CAPTION='修改成功!'
而不是
FORM2.CAPTION='修改成功!'
同理:
当表单1和表单2都在运行时,在表单2修改表单1的属性的最简单方法:
如:
FORM_1.CAPTION='修改成功!'
而不是
FORM1.CAPTION='修改成功!'
--------------------------------------------
可以在父窗口初始化(Init)时定义一个全局变量:
Public   goParent
goParent   =   THIS
这样不管在什么地方,都可以用类似这样的代码来引用该窗口里的控件:goParent.Command1.Caption   =   ""   。
也可以把父窗口作为一个参数传递给子窗口,然后在子窗口中引用。
父窗口这样调用子窗口:DO   FORM   FORM1   WITH   THIS
然后在子窗口的Init事件中可以这样:
LPARAMETERS   toParent
toParent.Command1.Caption   =   ""
如果要在子窗口的Init事件以外引用父窗口,则可以给子窗口新建一个属性,比如oParent,然后Init事件:
LPARAMETERS   toParent
THIS.oParent   =   toParent
这样在子窗口的其他地方就可以这样用了:
THISFORM.oParent.Command1.Caption   =   ""
---------------------------------------------
如何实现两个表单之间的相互控制?
现在有两个表单   form1   和   form2   (不是表单集)       他们在同时运行之后
如何相互控制呢,比如说   点击form1   的command1   按钮   使form2   的   text1   文本框内容清空   如何实现呢?
答:方法很多
1、表单是容器对象,它可以像变量一样来赋值
a、在运行这两个表单前可以定义两个全局变量   public   m.loForm1,   m.loForm2
b、在表单Form1的Init   事件中写入   m.loForm1   =   ThisForm
c、在表单Form2的Init   事件中写入   m.loForm2   =   ThisForm
那么要点击form1   的command1   按钮   使form2   的   text1   文本框内容清空
在Form1的command1   按钮的Click   事件中写如下代码即可
m.loForm2.text1.value   =   ''
m.loForm2.Refresh
2、可以使用_VFP   系统变量   的Forms   属性来操作这两个表单
首先   在Form1的command1按钮的Click事件中   通过For   循环语句   通过   _VFP.Forms(I).Caption='Form2'或   _VFP.Forms(I).Name='Form2'     来找到Form2这个表单
就可以通过   _VFP.Forms(I).Text1.value   =   ''   来实现了
For   lnFor=1   to   _VFP.Forms.Count
if   (   _VFP.Forms(lnFor).Caption='Form2')   then
_VFP.Forms(lnFor).Text1.value   =   ''
endif
EndFor