主题：系统空闲时

我想在系统空闲在达到一段时间时，锁住系统，只有通过输入解锁密码才能登录系统，于是使用以下代码：

If LastInputTickCount > 6000 Then
    If CurrentTable.Grid.Findform.Visible = True  '判断显示时
        CurrentTable.Grid.Findform.Visible = False '隐藏
        Forms("系统_锁定屏幕").Open()
    End If
End If

上述代码会报以下错误

此主题相关图片如下：tu.jpg

经过反复测试，到目前为止还是没找到出错的原因，请求各位大家给予指点。

错误提示很清晰：你应该检查 “系统_锁定屏幕”这个窗口的“btnjs”按钮的“Click”事件代码。

我就是在SystemIdle事件中设定了

If LastInputTickCount > 6000 Then
    If CurrentTable.Grid.Findform.Visible = True  '判断显示时
        CurrentTable.Grid.Findform.Visible = False '隐藏
        Forms("系统_锁定屏幕").Open()
    End If
End If

以上这段代码，

最先报出的错误是

此主题相关图片如下：1.jpg

“系统_锁定屏幕”这个窗口代码如下

Dim pwd As String = e.Form.Controls("tpwd").Value
If pwd = Nothing Then
    MessageBox.Show("解锁密码不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
    Return
End If
If EncryptText(pwd,"l_wgdeh","13qaz2w$x3eda9dc") <> Vars("Userpwd") Then
    MessageBox.Show("解锁密码不正确,请重新输入!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
    Return
End If
CurrentTable.Grid.Findform.Visible = True '隐藏
e.Form.Close()

出的错误

此主题相关图片如下：tu.jpg