Question

VB中label移动的问题！~

我想在VB中弄一个LABEL，这个LABEL可以在窗体里面不停从左到右移动，
记住是不停的移动
不是移动一次就完了！
希望VB高手告诉我代码
谢谢！~

Answer 1

要加一个计时器 timer1
Private Sub Form_Load()
Timer1.Interval = 100
Timer1.Enabled = True

'每100 毫秒检查一次
End Sub
Private Sub Timer1_Timer()
'利用if语句判断Label的位置
If Label1.Left < Val(Form1.Width) Then 'Label尚未完全左移出窗体时
Label1.Left = Label1.Left + 100
Else
Label1.Left = 0 - Val(Label1.Width) 'Label从窗体左侧出现
End If
End Sub

Answer 2

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 50
Label1.Left = -Label1.Width
End Sub

Private Sub Timer1_Timer()
Label1.Left = Label1.Left + 50
If Label1.Left > Me.Width Then Label1.Left = -Label1.Width
End Sub

'--label1里面的文字自己写

Answer 3

用一个TIMER控件 两个LABEL控件
让两个LABEL控件交替的移动就可以了.

Answer 4

把下面的代码放在时钟的事件里,时钟的设置我就不讲了

lable1.left=lable1.left+10
if lable1.left>me.with+lable1.with then lable1.left=0

Answer 5

楼上没看懂他意思。label移动可能达不到你要的效果，最好是把里面的字移动。这样效果好一点而且容易控制