Private Sub Timer1_Timer()
a = Len(StatusBar1.Panels(4).Text)
b = Right(StatusBar1.Panels(4).Text, a - 1)
C = b + Mid(StatusBar1.Panels(4).Text, 1, 1)
StatusBar1.Panels(4).Text = C
End Sub
程序打包后在其它电脑上行运,以上代码报"错误'5’,无效的过程调用或参数",望高手赐教、支招。

解决方案 »

  1.   

    没有注册控件库,使用regsvr32 在其它电脑上注册Microsoft Windows Common Controls 5.0/6.0。
      

  2.   

    没有注册控件库,使用regsvr32 在其它电脑上注册Microsoft Windows Common Controls 5.0/6.0。
      

  3.   

    程序编译成exe后,用setup facotry 7打包后,在其它机子上安装使用。
      

  4.   

    谢谢,已解决了,把'+' 改成'&'就OK