Question

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