以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  无操作判断执行  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=79606)

--  作者:文道古月
--  发布时间:2016/1/5 21:37:00
--  无操作判断执行

请教两个问题:

 1:30秒内无操作,自动关闭系统。目前是,鼠键无动作,自动关闭,如何改为,系统无操作自动关闭?

If LastInputTickCount > 30000 Then
    Syscmd.Project.Exit()
End If

 

2:左下角信息栏,时间如何设置走动的? 

 


图片点击可在新窗口打开查看此主题相关图片如下:截图20160105212414.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:截图20160105212415.png
图片点击可在新窗口打开查看

--  作者:大红袍
--  发布时间:2016/1/5 21:44:00
--  

1、

 

static ts As Date = Date.Now
If Windows.Forms.Form.ActiveForm IsNot Nothing Then
    ts = Date.now
Else
    Dim sp As TimeSpan = Date.now - ts
    If sp.TotalSeconds > 3 Then
        msgbox("要关闭系统了")
        ts = Date.now
    End If
End If


--  作者:大红袍
--  发布时间:2016/1/5 21:45:00
--  

2、直接写代码

 


    StatusBar.Message1 = Date.now


--  作者:文道古月
--  发布时间:2016/1/5 22:05:00
--  
以下是引用大红袍在2016/1/5 21:45:00的发言:

2、直接写代码

 


    StatusBar.Message1 = Date.now

就是这样写的,但是时间不会走动,怎样时间会一直走动着的,只要打开着项目


--  作者:文道古月
--  发布时间:2016/1/5 22:07:00
--  
以下是引用大红袍在2016/1/5 21:44:00的发言:

1、

 

static ts As Date = Date.Now
If Windows.Forms.Form.ActiveForm IsNot Nothing Then
    ts = Date.now
Else
    Dim sp As TimeSpan = Date.now - ts
    If sp.TotalSeconds > 3 Then
        msgbox("要关闭系统了")
        ts = Date.now
    End If
End If

一直显示msg弹框,点确定还是叉叉关了又出来,关了又出,而且项目也没什么反应。。

 


--  作者:大红袍
--  发布时间:2016/1/5 22:30:00
--  

汗,你把msgbox的代码改成关闭项目的代码啊

 

Syscmd.Project.Exit()

 


--  作者:大红袍
--  发布时间:2016/1/5 22:31:00
--  

写到事件里,测试没问题

 

StatusBar.Message1 = Date.now

 

要不你就多加一句

 

StatusBar.Refresh

 


--  作者:文道古月
--  发布时间:2016/1/6 9:44:00
--  
以下是引用大红袍在2016/1/5 21:44:00的发言:

1、

 

static ts As Date = Date.Now
If Windows.Forms.Form.ActiveForm IsNot Nothing Then
    ts = Date.now
Else
    Dim sp As TimeSpan = Date.now - ts
    If sp.TotalSeconds > 3 Then
        msgbox("要关闭系统了")
        ts = Date.now
    End If
End If

 

你好,如果在关闭系统之后,留下窗口提示,该怎么加代码呢?

加了msgbox不行,不点确定,项目也不关闭

 

static ts As Date = Date.Now
If Windows.Forms.Form.ActiveForm IsNot Nothing Then
    ts = Date.now
Else
    Dim sp As TimeSpan = Date.now - ts
    If sp.TotalSeconds > 1 Then
        Syscmd.Project.Exit()
        ts = Date.now
    End If
MessageBox.show("长时间未操作系统,未免资源浪费,已强制性关闭系统!可选择重新登录!
End If


--  作者:大红袍
--  发布时间:2016/1/6 9:48:00
--  

关闭项目后不可能还有提示窗口。你可以先提示,然后再关闭

 

 

[此贴子已经被作者于2016/1/6 9:48:43编辑过]

--  作者:大红袍
--  发布时间:2016/1/6 9:50:00
--  
static ts As Date = Date.Now
static flag As Boolean = True
If flag Then
    If Windows.Forms.Form.ActiveForm IsNot Nothing Then
        ts = Date.now
    Else
        Dim sp As TimeSpan = Date.now - ts
        If sp.TotalSeconds > 1 Then
            flag = False
            MessageBox.show("长时间未操作系统,未免资源浪费,已强制性关闭系统!可选择重新登录!")
            Syscmd.Project.Exit()
        End If
    End If
End If