如何实现文字有左向右缓慢移动？

[zhoupq]

如何实现文字有左向右缓慢移动？有源码更好！

[mylzw]

使用timer(计时器)控件, 建立一个exe工程，在form1中放置label1,timer1两个控件。
输入以下代码

'声明中的代码
Dim 移动 As Integer, 标志 As Integer

'form_load事件中的代码
Private Sub Form_Load()
移动 = 10
标志 = 1
Timer1.Interval = 10
Label1.AutoSize = True
End Sub

'timer1.timer事件中的代码
Private Sub Timer1_Timer()
If Label1.Left >= Form1.ScaleLeft And Label1.Left + Label1.Width <= Form1.ScaleWidth Then
Label1.Move Label1.Left + (移动 * 标志), Label1.Top, Label1.Width, Label1.Height
ElseIf Label1.Left + Label1.Width >= Form1.ScaleWidth Then
标志 = 标志 * -1
Label1.Move Label1.Left + (移动 * 标志), Label1.Top, Label1.Width, Label1.Height
ElseIf Label1.Left + Label1.Width <= Form1.ScaleWidth Then
标志 = 标志 * -1
Label1.Move Label1.Left + (移动 * 标志), Label1.Top, Label1.Width, Label1.Height
End If
End Sub

[射天狼]

Private Sub Form_Load()
Label1.Caption = "滚动字幕..."
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
With Label1
.Move .Left + 30
If .Left > Me.Width Then .Left = 0
End With
End Sub

[itlive]

添加一个timer控件和一个 label 控件
lbbell.caption=移动的文字
timer1.interval=500
Private Sub Timer1_Timer()
label.left=label.left+30
End Sub

[pcwak]

用时钟控件

[yoki]

在PICTURE上写字，然后动态改变坐标