主题：无操作判断执行

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

2、直接写代码

 

    StatusBar.Message1 = Date.now

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

 

Syscmd.Project.Exit()

 

写到事件里，测试没问题

 

StatusBar.Message1 = Date.now

 

要不你就多加一句

 

StatusBar.Refresh

 

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

 

 

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

看10楼。

如果你想关闭后有提示，就多做一个项目，直接打开另一个项目提示一下。

两层判断

 

static ts As Date = Date.Now
static flag As Boolean = True
If flag Then
    If LastInputTickCount  > 3000 Then
        flag = False
        MessageBox.show("长时间未操作系统,未免资源浪费,已强制性关闭系统!可选择重新登录!")
        Syscmd.Project.Exit()
    End If
    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