- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 长时间不操作狐表就关闭报错 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=191077)
-- 发布时间：2024/3/26 8:52:00
-- 长时间不操作狐表就关闭报错
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 > 9 Then
Syscmd.Project.Exit(False)
End If
End If
If Windows.Forms.Form.ActiveForm IsNot Nothing Then
ts = Date.now
Else
Dim sp As TimeSpan = Date.now - ts
If sp.TotalSeconds > 9 Then
Syscmd.Project.Exit(False)
End If
End If
为何会报错？
-- 发布时间：2024/3/26 9:30:00
--
改为
If system.Windows.Forms.Form.ActiveForm IsNot Nothing Then