| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助升级到2016后]systemidie事件没有执行的问题！ (http://foxtable.com/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楼 |