提示计时器触发错误什么解决

huang1314

盗梦

没代码,不好分析

tmtony

可能是计时器 事件 调用的函数丢失.

huang1314

代码如下
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 = "正在链接数据端……"

huang1314

这个计时器是不是要引用什么部件之类的？

tmtony

是的,是引用mscomctl.ocx控件,可能是控件版本 不兼容 或没注册导致

huang1314

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

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