VB的一个小问题 在线等
来源:百度知道 编辑:UC知道 时间:2024/05/17 00:35:49
用如下代码可实现:
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设成居中,向右移的时候在字前面