VB怎么让标签不断的向左移动

来源：百度知道 编辑：UC知道 时间：2024/05/30 13:45:21
VB怎么让标签不断的向左移动.用了timer 但只向左移动一遍就不见了,要重新运行.怎么让标签不断的向左移动
你给我代码吧 I am 菜鸟

if label1.left<0 then
label1.left=scalewidth
else
label1.left=label1.left-150
end if

在TIMER里添加一个判断就行了。一旦标签的边界大于窗体边界，就让他往回运动。

把这个代码放进去就可以了，记得加一个timer控件

Private Sub Timer1_Timer()
If Label10.Left + Label10.Width >= 0 Then
Label10.Left = Label10.Left - 20
Else: Label10.Left = Me.Width
End If
End Sub

Private Sub Form_Load()
Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
If Label1.Left < 100 Then Label1.Left = Form1.Width - Label1.Width + 100
Label1.Left = Label1.Left - 100
End Sub