Office中国论坛/Access中国论坛

标题: 提示计时器触发错误什么解决 [打印本页]

作者: huang1314 时间: 2013-6-4 08:53
标题: 提示计时器触发错误什么解决

作者: 盗梦 时间: 2013-6-4 09:06
没代码,不好分析

作者: tmtony 时间: 2013-6-4 09:10
可能是计时器事件调用的函数丢失.

作者: huang1314 时间: 2013-6-4 09:19
本帖最后由 huang1314 于 2013-6-4 09:21 编辑

[attach]51898[/attach]

代码如下
Private Sub Form_Timer()
If i <= 200 Then
ProgressBar5.Value = (i / 200) * 100 '给进度条赋值
Me.Label7.Caption = Int(i / 2) & "%" '获得进度百分比
Dim A As Long
Dim B As Long
B = GetSetting("初始设置", "setcj2003", "timescj03", 51345)
A = B Xor 51345  '判断本系统在本电脑中使用的次数

Select Case i
      Case 5
         Me.Label2.Caption = "启动初始设置……"                         （到这里就不走了）
         Case 20
         Me.Label2.Caption = "正在链接数据端……"
[attach]51899[/attach]

作者: huang1314 时间: 2013-6-4 09:23
这个计时器是不是要引用什么部件之类的？

作者: tmtony 时间: 2013-6-4 12:03
是的,是引用mscomctl.ocx控件,可能是控件版本不兼容或没注册导致

作者: huang1314 时间: 2013-6-4 12:21

tmtony 发表于 2013-6-4 12:03
是的,是引用mscomctl.ocx控件,可能是控件版本不兼容或没注册导致

应该是这个问题了，我记得改过这部分，谢谢

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)