如何通过visual basic的简单动画演示让字幕左右移动？

首先，在表单中创建一个label1 timer。

私有子窗体_Load()

Dim MinLeft为整数，MaxLeft为整数

MinLeft = 0 '左边界

MaxLeft = 1000 '右边界

定时器1。interval = 100 ' 100/1000秒执行一次Timer1_Timer()函数。

定时器2。间隔= 100

定时器1。Enabled = True '运行时间1。

定时器2。enabled = False’关闭定时器2。

末端接头

私有子定时器1_Timer()'时钟向左移动

Label1。左=标签1。“左-20”缩短标签1和表单左边缘之间的距离，并向左移动。

如果Label1。Left & lt如果你移动到最小边界，那么

定时器1。Enabled = False '关闭定时器1。

定时器2。Enabled = True '运行定时器2。

如果…就会结束

末端接头

私有子定时器2_Timer()'时钟向右移动，请参考定时器1进行注释。

Label1。左= Label1。向左+ 20度

如果Label1。Left & gt那就最左边

定时器1。启用=真

定时器2。启用=假

如果…就会结束

末端接头