Question

VB中比如在label1上写上欢迎使用。。 怎么让这几个字左右飘动

Answer 1

Form1中，放入Label1控件，Timer1控件各一个，然后复制以下代码即可

Dim i As Integer
Private Sub Form_Load()
Label1.Left = 0
Timer1.Interval = 20
i = 1
End Sub
Private Sub Timer1_Timer()
If Label1.Left >= 0 And i = 1 Then
If Label1.Left <= Form1.Width - Label1.Width Then
Label1.Left = Label1.Left + 30
Else
i = 0
End If
End If
If Label1.Left > 0 And i = 0 Then
Label1.Left = Label1.Left - 30
ElseIf Label1.Left = 0 And i = 0 Then
i = 1
End If
End Sub
这是我以前的一个回答，复制来给你，希望对你有用

追问

谢了 如果是那种像一些公告那样的呢？就比如欢迎使用，你。。。。。从右到左飘动。。

追答

你说明白，是想要左右飘动的，还是只希望从右飘到左的？

追问

就是比如我输入一段很长的文字，我要让他从右到左一个字一个字的显示出来，就像那种公告一样

追答

打字效果？？还是下边这个效果？

Private Sub Form_Load()
Label1.Left = 0
Timer1.Interval = 20
End Sub
Private Sub Timer1_Timer()
If Label1.Left >= -Label1.Width Then
If Label1.Left < Form1.Width Then
Label1.Left = Label1.Left + 30
Else
Label1.Left = -Label1.Width
End If
End If
End Sub

追问

不能从右到左飘动吧 如果改成从右到左就好了

追答

这就是从右到左的跑马灯效果啊，需要一个Label1控件，Timer1控件
测试已经通过了

Answer 2

利用定时器,每隔一定时间调整label的位置

追问

有具体的源码或者代码或者教程吗

追答

自己百度搜索VB定时器动画.
程序这玩意儿关键在于自己的思考理解,而不是照搬别人代码

追问

喔。。。那也得看代码分析呀