Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助升级到2016后]systemidie事件没有执行的问题！


  共有1963人关注过本帖树形打印复制链接

主题：[求助升级到2016后]systemidie事件没有执行的问题！
帅哥哟，离线，有人找我吗？
hsh2055
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：164 积分：1553 威望：0 精华：0 注册：2011/8/16 7:40:00 		[求助升级到2016后]systemidie事件没有执行的问题！  发帖心情 Post By：2016/1/8 11:13:00 [只看该作者]

升级到2016后，打开2014版本项目，项目属性systemidie事件代码没有执行（状态栏提示信息没有了），为什么？

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/1/8 11:15:00 [只看该作者]

打开项目的时候，不要按住ctrl。

 

肯定会执行事件代码。
 回到顶部
帅哥哟，离线，有人找我吗？
hsh2055
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：164 积分：1553 威望：0 精华：0 注册：2011/8/16 7:40:00 		  发帖心情 Post By：2016/1/8 11:21:00 [只看该作者]

没有按ctrl

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/1/8 11:22:00 [只看该作者]

 不可能的事，那你重写在那里写代码。

 回到顶部
帅哥哟，离线，有人找我吗？
hsh2055
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：164 积分：1553 威望：0 精华：0 注册：2011/8/16 7:40:00 		  发帖心情 Post By：2016/1/8 11:27:00 [只看该作者]

试了，不中，状态栏没还是空白。

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/1/8 11:30:00 [只看该作者]

那你加上msgbox。肯定会触发事件。

 

肯定是你代码写错。
 回到顶部
帅哥哟，离线，有人找我吗？
hsh2055
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：164 积分：1553 威望：0 精华：0 注册：2011/8/16 7:40:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/1/8 11:33:00 [只看该作者]

直接写

 

With CurrentTable
    Dim Str1 As String = "用户"
    StatusBar.Message1 = Str1
    StatusBar.Refresh
End With
 回到顶部
帅哥哟，离线，有人找我吗？
hsh2055
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：164 积分：1553 威望：0 精华：0 注册：2011/8/16 7:40:00 		  发帖心情 Post By：2016/1/8 11:36:00 [只看该作者]

2014版本一直用起来正常，升级后我一个代码也没改。

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/1/8 11:36:00 [只看该作者]

 看8楼

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06006 秒, 4 次数据查询