| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 4127 人关注过本帖, 3 人收藏
标题:一个表单中的控件关闭另一个表单
只看楼主 加入收藏
yttv8
Rank: 1
等 级:新手上路
帖 子:32
专家分:4
注 册:2011-11-25
收藏
得分:0 
谢谢  待我研究下
2012-02-18 16:43
xs591222
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:28
帖 子:682
专家分:1299
注 册:2009-3-1
收藏
得分:0 
以下是引用wzxc在2012-2-18 16:32:10的发言:


关于楼主的问题,我写了两个简单的表单文件,你可以下载来运行看看。注意他们的文件名,name属性,caption属性的运用。
我下载测试,关闭提示出错。是VFP8.0的。
2012-02-18 19:35
wzxc
Rank: 9Rank: 9Rank: 9
来 自:齐鲁大地
等 级:贵宾
威 望:39
帖 子:985
专家分:1296
注 册:2006-4-25
收藏
得分:0 
楼上。什么错误?
我是vfp9

认真看书学习,弄通Fox主义。
2012-02-18 20:19
qingfameng
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:35
帖 子:964
专家分:3019
注 册:2010-2-6
收藏
得分:0 
小演示:表单集中,各子表的关闭和打开。针对楼主的问题现写的。对于那些初学者应该有用的。
 do form ts 直接执行。楼主可参考。(子表单的关闭看起来是关闭,但不是真关闭,请看看就知道)
表单集.rar (32.04 KB)
2012-02-18 22:52
软件服务
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:3
帖 子:344
专家分:736
注 册:2011-12-23
收藏
得分:0 
这是隐藏,不叫关闭
改成Release吧。
只是关闭了你想打开就要重新打开表单集
2012-02-18 23:55
茵梦湖
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:31
帖 子:545
专家分:2180
注 册:2009-4-25
收藏
得分:0 

程序代码:
fm1 =createobject("form1")
fm1.show(1)
define class form1 as form
   width =500
   height = 480
   autocenter =.t.
   add object lb1  as label with top =200,height=50,width=500,alignment=2,fontsize=36,caption="表单1"
   add object cmd1 as commandButton with top =20,height=35,left=330,width=150,caption="打开表单2"
   add object cmd2 as commandButton with top =56,height=35,left=330,width=150,caption="关闭表单1(包括表单2)"
proc destroy
     if type("fm2")="O"
        release fm2
     endif
proc cmd1.click
     打开表单2()
proc cmd2.click
     if type("fm2")="O"
        release fm2
     endif
     thisform.release
enddefine
*
proc 打开表单2
fm2 =createobject("form2")
fm2.show
read events
define class form2 as form
   width =300
   height = 240
   add object lb1 as label with top =100,height=50,width=300,alignment=2,fontsize=36,caption="表单2"
proc destroy
     clea events
enddefine
2012-02-19 01:54
xs591222
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:28
帖 子:682
专家分:1299
注 册:2009-3-1
收藏
得分:0 
图片附件: 游客没有浏览图片的权限,请 登录注册
2012-02-19 10:36
xs591222
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:28
帖 子:682
专家分:1299
注 册:2009-3-1
收藏
得分:0 
从a1打开a2后再从a1关闭a2就出现上图的对话框
2012-02-19 10:38
wzxc
Rank: 9Rank: 9Rank: 9
来 自:齐鲁大地
等 级:贵宾
威 望:39
帖 子:985
专家分:1296
注 册:2006-4-25
收藏
得分:0 
以下是引用xs591222在2012-2-19 10:38:01的发言:

从a1打开a2后再从a1关闭a2就出现上图的对话框
运行两个表单后,打开调试器窗口,在“局部”窗口中,可以看到“a1”、“a2”两个对象变量。


我的不出错!

认真看书学习,弄通Fox主义。
2012-02-19 11:04
panpende
Rank: 8Rank: 8
等 级:蝙蝠侠
威 望:4
帖 子:528
专家分:963
注 册:2009-4-27
收藏
得分:2 
我经常使用PRG加.scx寫成的表单的混合型的小程序。在PRG中打开、运行.scx写成的表单,并且在表单中打开其它表单或者运行某些在PRG中的程序段。在编程和运行中得到一些需要注意的地方。
在.scx寫成的表单中,设置、运行表单内部的控件,使用类似 THIS....  或者 THISFORM....  语句。但是在PRG 中,必须使用类似 表单名.... 语句 。在 .scx写成的表单中,调用其它表单及其控件,也必须使用类似 其它表单名.... 语句 。特别要注意的是,必须在PRG中先把 表单名、其它表单名设置成全局变量,否则会出错。  
2012-02-19 12:31
快速回复:一个表单中的控件关闭另一个表单
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.035793 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved