最简单的,就是在上面放一个label,用Timer定时器控件控件这个label的移动
创新互联公司长期为上1000家客户提供的网站建设服务,团队从业经验10年,关注不同地域、不同群体,并针对不同对象提供差异化的产品和服务;打造开放共赢平台,与合作伙伴共同营造健康的互联网生态环境。为曲水企业提供专业的成都网站制作、做网站,曲水网站改版等技术服务。拥有十余年丰富建站经验和众多成功案例,为您定制开发。
字符拼凑法:
dim Title as string="播放歌曲播放歌曲"
dim S as string=""
for I as integer=0 to Title.length-1
S=Title.Substring(i,iif(Title.length-i0,title.length-i,1)
next
RichTextBox1.Focus() RichTextBox1.SelectionLength = 0 RichTextBox1.SelectionStart = RichTextBox1.Text.Length RichTextBox1.ScrollToCaret()这样将保持RichTextBox中的文字焦点始终出现在最新的一行
文字写在label的caption属性中,调用timer()函数
附上我写的左右往复运动代码,实现image1在picture1中左右往复运动
Private
Sub
Timer1_Timer()
If
Image1.Left
=
Picture1.ScaleWidth
-
Image1.Width
Then
k
=
1
If
k
=
1
Then
Image1.Left
=
Image1.Left
-
50
Else
Image1.Left
=
Image1.Left
+
50
End
If
If
Image1.Left
=
Then
k
=
End
Sub
文章题目:vb点虐
文字滚动 vb滚动字幕教程
标题来源:https://www.cdcxhl.com/article12/ddgohdc.html
成都网站建设公司_创新互联,为您提供网站营销、全网营销推广、关键词优化、网站策划、搜索引擎优化、动态网站
声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联