女主攻略 穿书 txt:用VB编制左右自动循环移动在窗体的标签?

来源:百度文库 编辑:高校问答 时间:2024/05/10 09:09:05
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