VB设置滚动标题(仿音乐播放器)

    刚刚冲完凉，突然听音乐的时候，看到标题一直滚动。所以就打开VB试试看，这个确实很简单，但是想把这个代码记录一下，如果以后用VB写播放器之类的可以用到。

运行效果:

下面就是代码:

Dim Str_cp As String   '获取程序当前标题
Dim i As Integer       '循环计次
Dim Str_len As Integer '获取标题长度
Dim Title As String     '字符串中截取出的字符

Private Sub Command1_Click()  '点击按钮
Timer1.Enabled = True       '开启定时器
Timer1.Interval = 500       '设置定时器的时间周期
End Sub

Private Sub Form_Load()         '加载窗体
Me.Caption = "王杰-不浪漫罪名"  '设置一个固定的标题
Str_cp = Me.Caption             '保存标题到变量
Str_len = Len(Str_cp)           '获取标题的长度保存在变量中
i = 1                           '给i赋初始值
End Sub

Private Sub Timer1_Timer()      '定时器事件
Title = Mid(Str_cp, i, Str_len) '截取标题的字符串，从i开始
Me.Caption = Title              '截取到的字符 设置成标题
If i > Str_len Then             '如果i > 标题的字符
Me.Caption = Str_cp             '那么还原标题
i = 1                           '还原i
End If
i = i + 1                       '每次循环i都加1
End Sub