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’,无效的过程调用或参数",望高手赐教、支招。
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’,无效的过程调用或参数",望高手赐教、支招。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货