vb中滚动字幕(比如歌词)怎么做呀?

来源:百度知道 编辑:UC知道 时间:2024/05/17 08:05:25
各位大哥哥,大姐姐们,教教我呀,急!谢谢。
我要的是有(比如说像歌词滚动)的效果,能灵活的滚动规定的文档。并不是用Label move ,谢谢
非常谢谢上面两位大侠的帮忙,但是这个效果并不太理想,还有没有更好的?!至于ScrollBar,以及ScrollWindow等函数.由于我的VB没装帮助,所以我也不太会用ScrollBar以及ScrollWindow等这些函数。懂的大侠能不能尽量写详细点,小弟在此再一下谢谢了。
我最想要的效果是像歌词那样滚动,有没有办法呀,谢谢了。解决问题追加5分,谢谢^_^

Private Sub Timer1_Timer()
Label1.Caption = str1
Dim i As Integer, j As String
If str1 = "" Then
Timer1.Enabled = False
Else

i = Val(Len(str1)) - 1
j = Right$(str1, (i - 1))
str1 = j
End If

End Sub
str1 = "军中绿花寒风飘飘落叶军队是一朵绿花亲爱的战友你不要想家不要想妈妈声声我日夜呼唤多少句心里话不要离别时两眼泪花"
Label1.Caption = str1
Label1.Left = 400

建议参考一下ScrollBar,以及ScrollWindow等函数.