在VB中如何实现PowerPoint那样的两段文字动态替换？

Question

当文字太多而标签不够长的时候，会有一部分文字显示不出来。呵呵，可以利用这一点，一点点把你的标签的width变小，看看有什么效果？

Answer 1

这个问题就好象浏览器的“跑马灯”效果了
匆促之间给你一个简单的例子
Dim str As String
Private Sub Form_Load()
str = "123456789987654321asdfghjklpoiuuytrrewwqzxcvbvbnm,."
End SubPrivate Sub Timer1_Timer()
Static h As Integer
h = h + 1
Label1.Caption = Mid(str, h)
End Sub