高校问答周星驰搞笑歌曲视频:VB的一个小问题 在线等
来源：百度文库 编辑：高校问答 时间：2024/04/29 17:07:27
用如下代码可实现：
Option Explicit
Private Sub Timer1_Timer()
Label1.Left = Label1.Left + 100
If Label1.Left + Label1.Width >= Form1.Width Then
Timer2.Enabled = True
Timer1.Enabled = False
End If
End Sub
Private Sub Timer2_Timer()
Label1.Left = Label1.Left - 100
If Label1.Left = 0 Then
Timer1.Enabled = True
Timer2.Enabled = False
End If
End Sub
用计时器
在Timer控件里写一段程序,使标签的Left属性值增加就可以了
实际上不需要象上楼那样,使用两个Timer,一个就可以
private sub timer1_timer ()
'the name of label : label1
static gLeft as boolean
if not gleft then
if label1. left<3000 then
label1. left=label1. left+10
else
gleft=not gleft
end if
else
if label1. left>0 then
label1. left=label1. left-10
else
gleft=not gleg
end if
end if
end sub
楼上两个的方法都很笨啊！
可以用循环。加上一个延时函数,先把label设成居中，向右移的时候在字前面加空格ss=" "&ss放在循环里。向左移就是在后面放空格呗。呵呵ss=ss&" "