UC知道vb左右移动的问题
来源：百度知道 编辑：UC知道 时间：2024/05/16 18:33:54
请问在vb中如何做到文字从左往右移动，在最后一个字移出屏幕后，回到初始位置，再重新开始，请给出详细的算法~~~
(注：在平移过程中文字是类似于这样移动的：Label2(1).Left = Label2(1).Left + 1，Label2(2).Left = Label2(2).Left + 2这样移动的）
可能问题不太明确，我在声明一下
就是如果最后的一个字位置是 Label2(2).Left=150，那么我要当这个 Label2(2)跳出屏幕后，在回到它的起始位置，再重新开始一次移动~~
(注：在平移过程中文字是类似于这样移动的：Label2(1).Left = Label2(1).Left + 1，Label2(2).Left = Label2(2).Left + 2这样移动的）
可能问题不太明确，我在声明一下
就是如果最后的一个字位置是 Label2(2).Left=150，那么我要当这个 Label2(2)跳出屏幕后，在回到它的起始位置，再重新开始一次移动~~
Private Sub Timer1_Timer()
Label2(1).Left = Label2(1).Left + 1
If Label2(1).Left > Me.Width Then
Label2(1).Left = -Label2(1).Width
End If
Label2(2).Left = Label2(2).Left + 2
If Label2(2).Left > Me.Width Then
Label2(2).Left = -Label2(2).Width '这里赋给Label2(2).Left的位置，你可以改成你想要的，我这里写的是Label2(2)在窗体左边外边
End If
End Sub
'注意，一个像素在VB里为15