以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  請問30秒不動窗口自動關閉該窗口??  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=60021)
--  作者：tennis
--  发布时间：2014/11/16 22:11:00
--  請問30秒不動窗口自動關閉該窗口??
如題
--  作者：有点甜
--  发布时间：2014/11/16 22:14:00
--  

在timertick事件判断当前窗口，如果当前窗口=e.Form，变量设置为0，否则每次+1，加到30就关闭。
--  作者：有点甜
--  发布时间：2014/11/16 22:20:00
--  
static count As Integer = 0
If Forms.ActiveForm Is Nothing OrElse Forms.ActiveForm.Name <> e.Form.Name Then
    count += 1
    If count > 3 Then
        e.Form.Close
    End If
Else
    count = 0
End If
--  作者：tennis
--  发布时间：2014/11/16 22:30:00
--  
好像不行耶！！
--  作者：有点甜
--  发布时间：2014/11/16 22:31:00
--  

 测试可以 http://www.foxtable.com/help/topics/1301.htm

 
--  作者：tennis
--  发布时间：2014/11/16 22:46:00
--  
依指示不動還是不動！！！！
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目9.foxdb
--  作者：有点甜
--  发布时间：2014/11/16 22:55:00
--  
static count As Integer = 0
If LastInputTickCount > 3 * 1000 Then
    e.Form.Close
End If
If Forms.ActiveForm Is Nothing OrElse Forms.ActiveForm.Name <> e.Form.Name Then
    count += 1
    If count > 3 Then
        e.Form.Close
    End If
Else
    count = 0
End If
--  作者：tennis
--  发布时间：2014/11/17 10:37:00
--  
3Q!! OK了!!