高铁可以送站吗老人:用VB编制左右自动循环移动在窗体的标签?

来源:百度文库 编辑:查人人中国名人网 时间:2024/07/06 15:00:23
Private Sub Timer1_Timer()
Static i
Do While (i + 1)
Move Label1.Left - 500
If Label1.Left < 0 Then
Label1.Left = Form1.ScaleWidth
End If
i = i + 1
Loop

End Sub
错误太多了啊,这是我来做的一个但是不太好使呢,请多多指教啊.最好可以有源代码?
谢谢了啊!!!

i=0
Private Sub Timer1_Timer()

Static i
Do While (i + 1)

Label1.Left - 500
If Label1.Left < 0 Then
Label1.Left = Form1.ScaleWidth
End If
i = i + 1
Loop

End Sub