怎么样做一个文字跑马灯效果

Question

我的方法较笨，就是用Timer控件控制一个Label做移动，移动到一定位置再跳回去。可是这样会造成文字的闪烁。

Answer 1

又timer和move呀,,你先构造一个时间函数,然后又move函数,^_^,你该会用timer和move吧,

Answer 2

我在下面帖子有个回复，并且已经有了几个解答了。
http://www.csdn.net/expert/topic/665/665275.xml?temp=.4005701

Answer 3

Dim aa As IntegerPrivate Sub Form_Load()
aa = 1
Timer1.Enabled = True
Timer1.Interval = 1000
Shape1.Shape = 3
Shape2.Shape = 3
Shape3.Shape = 3
Shape1.FillStyle = 0
Shape2.FillStyle = 0
Shape3.FillStyle = 0
Shape1.FillColor = vbRed
Shape1.BorderColor = vbRed
Shape2.FillColor = vbYellow
Shape2.BorderColor = vbYellow
Shape3.FillColor = vbGreen
Shape3.BorderColor = vbGreen
Shape1.Width = 1000
Shape2.Width = 1000
Shape3.Width = 1000
Shape1.Height = 1000
Shape2.Height = 1000
Shape3.Height = 1000
Shape1.Top = 1500
Shape2.Top = 1500
Shape3.Top = 1500
Shape1.Left = 1000
Shape2.Left = 2000
Shape3.Left = 3000
Shape1.Visible = False
Shape2.Visible = False
Shape3.Visible = FalseEnd Sub
Private Sub Timer1_Timer()
Select Case aa
Case 1
Shape1.Visible = True
Shape2.Visible = False
Shape3.Visible = False
Case 2
Shape1.Visible = False
Shape2.Visible = True
Shape3.Visible = False
Case 3
Shape1.Visible = False
Shape2.Visible = False
Shape3.Visible = True
End Select
aa = aa + 1
If aa >= 4 Then
aa = 1
End If
End Sub