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

6,989次阅读
没有评论

共计 837 个字符,预计需要花费 3 分钟才能阅读完成。

    刚刚冲完凉,突然听音乐的时候,看到标题一直滚动。所以就打开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


正文完
 0
admin
版权声明:本站原创文章,由 admin 于2014-11-24发表,共计837字。
转载说明:除特殊说明外本站文章皆由CC-4.0协议发布,转载请注明出处。
评论(没有评论)
验证码