封闭表单

关闭表单
怎么实现通过点击主表单中的按钮关闭主表以外的已打开的表单
[解决办法]
这个有什么用处 ？
随便来一个方法

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

关闭最后一个表单的时候就会出错
[解决办法]
如果当前程序中有除主表单意外的表单，则关闭除主表单意外的表单，否则关闭主表单

写到主表单的QueryUnload事件中
[解决办法]
假设想要被关闭的表单为 form2.scx，运行这个表单时这样运行：
Public MyForm2
Do Form Form2.scx Name MyForm2

然后你想在 form2.scx 之外关闭 form2.scx 时这样关闭：
MyForm2.Release
[解决办法]
关闭时：

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

表单 Caption 不行的原因是，Caption 不是对象，而是对象的其中一个属性
[解决办法]
搭车问个问题：
   我在表单中放了一个web控件，请问各位老师：能不能将表单关闭的按钮放到网页中来关闭表单？这样就能让WEB占满表单了。
[解决办法]

引用:

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

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

查看更多 下一篇