以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助升级到2016后]systemidie事件没有执行的问题! (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=79745) |
-- 作者:hsh2055 -- 发布时间:2016/1/8 11:13:00 -- [求助升级到2016后]systemidie事件没有执行的问题! 升级到2016后,打开2014版本项目,项目属性systemidie事件代码没有执行(状态栏提示信息没有了),为什么? |
-- 作者:大红袍 -- 发布时间:2016/1/8 11:15:00 -- 打开项目的时候,不要按住ctrl。
肯定会执行事件代码。 |
-- 作者:hsh2055 -- 发布时间:2016/1/8 11:21:00 -- 没有按ctrl |
-- 作者:大红袍 -- 发布时间:2016/1/8 11:22:00 -- 不可能的事,那你重写在那里写代码。 |
-- 作者:hsh2055 -- 发布时间:2016/1/8 11:27:00 -- 试了,不中,状态栏没还是空白。 |
-- 作者:大红袍 -- 发布时间:2016/1/8 11:30:00 -- 那你加上msgbox。肯定会触发事件。
肯定是你代码写错。 |
-- 作者:hsh2055 -- 发布时间:2016/1/8 11:31:00 -- 代码如下: \'如果用户30秒内没有进行任何操作,就自动关闭系统,可以在SystemIdle中加入下面的代码: If LastInputTickCount > 900000 Then \'\' Syscmd.Project.Exit() End If With CurrentTable Dim Str1 As String = "用户: 【" & User.Name & "】" Str1 = Str1 & " 当前表名: " & .Name & " 总行数: " Str1 = Str1 & .Rows.Count & " 当前行: " & (.Position + 1) Str1 = Str1 & " 提示:系统15分钟内无任何操作,将自动关闭,请注意随时保存..." StatusBar.Message1 = Str1 End With
|
-- 作者:大红袍 -- 发布时间:2016/1/8 11:33:00 -- 直接写
With CurrentTable |
-- 作者:hsh2055 -- 发布时间:2016/1/8 11:36:00 -- 2014版本一直用起来正常,升级后我一个代码也没改。 |
-- 作者:大红袍 -- 发布时间:2016/1/8 11:36:00 -- 看8楼 |