关于实现跑马灯的功能

[jdhsd]

我现在想实现跑马灯的功能
但我不想通过在label的xy值来实现
请问可以用什么其他方法啊。
谢谢

[吾非大神]

帮顶
学习

[mustudent]

看过一个不停换图片实现跑马灯的例子，不过没有仔细研究。嘎嘎
你可以考虑下

[WM_JAWIN]

建议不要.因为这样会浪费大量的CPU资源.
用Picture吧,把文字用print方法打上去.然后控制Picture的坐标吧

[yumanqing]

除了坐标好象没有简便的方法

[of123]

当然有：

'放一个通栏的 Label。
Dim strInfo As String
Dim i As Integer, n As Integer

Private Sub Form_Load()
n = Label1.Width / Label1.FontSize / 5
strInfo = Space(n) & "这是一个跑马灯的演示例子"
i = 1
Timer1.Interval = 10
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Label1 = MidB(strInfo, i, n)
i = i + 2
If i > LenB(strInfo) Then
i = 1
End If
Label1.Refresh
End Sub

[清晨曦月]

呵呵，无语了，还能让我说什么啊

[mustudent]

学习.

[jdhsd]

谢谢各位的支持！