关闭表单

[nmhfs]

怎么实现通过点击主表单中的按钮关闭主表以外的已打开的表单

[taohua300]

这个有什么用处 ？ 随便来一个方法

If _screen.FormCount > 1
	For i =  _screen.FormCount To 1 Step -1
		If _screen.Forms(i).name != 'gps' &&这里‘gps’为主表单的name属性，要保证唯一性
			_screen.Forms(i).Release 
		Endif 
	Next
	Nodefault
Endif 

奇怪的是将 For i = _screen.FormCount To 1 Step -1 写成 For i = 1 To _screen.FormCount 关闭最后一个表单的时候就会出错

[taohua300]

如果当前程序中有除主表单意外的表单，则关闭除主表单意外的表单，否则关闭主表单 写到主表单的QueryUnload事件中

[十豆三]

假设想要被关闭的表单为 form2.scx，运行这个表单时这样运行： Public MyForm2 Do Form Form2.scx Name MyForm2 然后你想在 form2.scx 之外关闭 form2.scx 时这样关闭： MyForm2.Release

[nmhfs]

谢谢楼上 但我有个问题 如果将NAME 改为CAPTION 怎么就不行了呢？（CAPTION 也是唯一的） 3楼的用过了 也可以实现 但是还得要判断表单是否已打开

[十豆三]

关闭时：

IF TYPE('MyForm2')='O'	&&是字母O不是数字0
	MyForm2.Release
ENDIF

表单 Caption 不行的原因是，Caption 不是对象，而是对象的其中一个属性

[眼科医生]

搭车问个问题： 我在表单中放了一个web控件，请问各位老师：能不能将表单关闭的按钮放到网页中来关闭表单？这样就能让WEB占满表单了。

[taohua300]

引用 9 楼 zhsdoctor 的回复:

引用 8 楼 taohua300 的回复: 引用 6 楼 zhsdoctor 的回复: 搭车问个问题： 我在表单中放了一个web控件，请问各位老师：能不能将表单关闭的按钮放到网页中来关闭表单？这样就能让WEB占满表单了。 这样纯粹是多此一举 另外你完全可以不用关闭按钮的 关闭表单的时候点击表单右上角的叉号就可以了 表单的标题栏设成了不可见，是用触摸屏查询系统上的。希望能……

我实现不了

[taohua300]

引用 4 楼 nmhfs 的回复:

谢谢楼上 但我有个问题 如果将NAME 改为CAPTION 怎么就不行了呢？（CAPTION 也是唯一的） 3楼的用过了 也可以实现 但是还得要判断表单是否已打开

If _screen.Forms(i).name != 'gps' 改成 If _screen.Forms(i).caption != 'gps'

[taohua300]

引用 6 楼 zhsdoctor 的回复:

搭车问个问题： 我在表单中放了一个web控件，请问各位老师：能不能将表单关闭的按钮放到网页中来关闭表单？这样就能让WEB占满表单了。

这样纯粹是多此一举 另外你完全可以不用关闭按钮的 关闭表单的时候点击表单右上角的叉号就可以了

[眼科医生]

引用 8 楼 taohua300 的回复:

引用 6 楼 zhsdoctor 的回复: 搭车问个问题： 我在表单中放了一个web控件，请问各位老师：能不能将表单关闭的按钮放到网页中来关闭表单？这样就能让WEB占满表单了。 这样纯粹是多此一举 另外你完全可以不用关闭按钮的 关闭表单的时候点击表单右上角的叉号就可以了

表单的标题栏设成了不可见，是用触摸屏查询系统上的。希望能够全屏显示web控件。