无操作判断执行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 无操作判断执行

共有2751人关注过本帖树形打印复制链接主题：无操作判断执行

文道古月

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：303 积分：2363 威望：0 精华：0 注册：2015/10/14 16:55:00

无操作判断执行 发帖心情

Post By：2016/1/5 21:37:00 [显示全部帖子]

请教两个问题：

1：30秒内无操作，自动关闭系统。目前是，鼠键无动作，自动关闭，如何改为，系统无操作自动关闭？

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

2：左下角信息栏，时间如何设置走动的？

此主题相关图片如下：截图20160105212414.png

此主题相关图片如下：截图20160105212415.png

文道古月

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：303 积分：2363 威望：0 精华：0 注册：2015/10/14 16:55:00

Post By：2016/1/5 22:05:00 [显示全部帖子]

以下是引用大红袍在2016/1/5 21:45:00的发言：

2、直接写代码

StatusBar.Message1 = Date.now

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

文道古月

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：303 积分：2363 威望：0 精华：0 注册：2015/10/14 16:55:00

Post By：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弹框，点确定还是叉叉关了又出来，关了又出，而且项目也没什么反应。。

文道古月

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：303 积分：2363 威望：0 精华：0 注册：2015/10/14 16:55:00

Post By：2016/1/6 9:44:00 [显示全部帖子]

以下是引用大红袍在2016/1/5 21:44:00的发言：

1、

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

加了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