Question

如何用VB制作字幕在窗体中左右移动

Answer 1

dafeng1230
你
B
C
啊
改一下不就行了吗
给个思路
你还挑刺
有本事你写上来啊
Private
Sub
Form_Load()
Timer2.Enabled
=
False
Timer1.Interval
=
500
Timer2.Interval
=
500
End
Sub
Private
Sub
Timer1_Timer()
If
Label1.Left
-
200
>
0
Then
Label1.Left
=
Label1.Left
-
200
Else
Label1.Left
=
0
Timer1.Enabled
=
False
Timer2.Enabled
=
True
End
If
End
Sub
Private
Sub
Timer2_Timer()
If
Label1.Left
+
Label1.Width
<
Form1.Width
Then
Label1.Left
=
Label1.Left
+
200
Else
Timer2.Enabled
=
False
Timer1.Enabled
=
True
End
If
End
Sub