以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]焦点移开后,如何使独立窗口自动关闭  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=86522)
--  作者：hzcaqjf
--  发布时间：2016/6/19 21:54:00
--  [求助]焦点移开后,如何使独立窗口自动关闭
下列代码,虽然移开焦点后,独立窗口("窗口2")自动关闭.
但是,单击"窗口2"中的下拉按钮,显然焦点没有移开"窗口2",然而,"窗口2"也突然关闭.
计时器中代码:
If Forms.ActiveForm Is Nothing OrElse Forms.ActiveForm.Name <> e.Form.Name Then
   e.Form.Close
End If
为了省得去点击关闭按钮,有什么解决办法么?
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目11.foxdb

[此贴子已经被作者于2016/6/19 21:55:16编辑过]
--  作者：狐狸爸爸
--  发布时间：2016/6/19 22:09:00
--  
If Forms.ActiveForm IsNot Nothing AndAlso  Forms.ActiveForm.Name <> e.Form.Name  AndAlso  Forms.ActiveForm.Name <> "" Then
   e.Form.Close
End If
--  作者：hzcaqjf
--  发布时间：2016/6/19 22:21:00
--  
狐爸:问题已解决.
只是焦点移到主表后窗口不能关闭,如果移到别的窗口上,原独立窗口关闭还是较快的.
[此贴子已经被作者于2016/6/19 22:40:40编辑过]