英西峰林有什么好玩的:表单调用问题。
来源:百度文库 编辑:偶看新闻 时间:2024/05/09 19:51:34
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
如何使主窗口某按钮触发事件时,引用父窗口里的控件,直接用父窗口控件名称好象不可以的,请高手指点
*-------------------------------------------------------------------------------------
用父窗口(表单)的文件名.
如你的父窗口(表单)文件名为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