表单与表单之间的调用

我做了一个表单1用作文本编辑,表单1要调用表单2完成一些功能;在vf9中运行正常,打包以后,调用表单2成功,但表单2操作表单1中的文本控件时,提示找不到表单1,请问怎么解决?
---------------------------------------------------------------

请参考:

用父窗口(表单)的文件名.

如你的父窗口(表单)文件名为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

Published At
Categories with 数据库类
Tagged with
comments powered by Disqus