欢迎光临:
　　
　　非常感谢您光临枕善居。本站是一个免费的基于VB，VB.NET源代码交流的平台，为大家提供优质的专业的源代码，如果您有需要，本站可以帮助在业余时间里给您寻找代码。当然，如果您有好的代码也可以在本站发布，共享给大家。
专业VB和.NET源码、编程开发教程、图标资源、USB电脑遥控器、智能家电控制开关....更多东东请进入我的淘宝小店--->
VB及.NET新源码2011(3DVD,控件+资源) 智能多路控制(串口编程开关) 带源码!

VB源码 订阅所有【VB源码】的日志
05-04
20

非常平滑的字幕滚动

作者:枕善居主 / 查看次数: 8817 / 评论: 8

以前有个网友要求字幕滚动代码，本来网站有一个，这次再发布一个，这个代码的特别之处是简单，而且非常平滑的，可以水平滚动，垂直滚动。使用API函数，不是使用timer控制哦。
界面：
图片来自：
网站：枕善居VB及.NET源码博客
网址http://www.mndsoft.com/blog/


图片来自：
网站：枕善居VB及.NET源码博客
网址http://www.mndsoft.com/blog/





相关日志:
无相关文章！
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
评论: 8 | 引用: 0 | 查看次数: 8817

回复回复泡·泡 [2008-09-11 11:06:14 |  | del]
没有必要搞这么复杂吧？

在窗体上加一个frame1,一个label1,一个timer1。timer1间隔100
frm_load事件中加入

label1.caption="字幕滚动"
Label1.Left = frame1.Width + 50           '文字的初始位置

Private Sub Timer1_Timer()      '字幕滚动控制

  Label1.Left = Label1.Left - 50           '文字向左移
  If Label1.Left <= -2 * Frame1.Width Then         '当文字走完时，又进入
     Label1.Left = Frame1.Width      
  End If

End Sub
回复回复bbooreal [2008-07-22 12:05:15 |  | del]
字符长度：
中文按2个字符计算,英文按一个字符计算
回复回复leayer [2007-06-15 20:23:57 |  | del]
后面下载的朋友,请注意,将代码中的LenB(txt)改为 LenB(StrConv(txt, vbFromUnicode)),就不会出现你们上面说的乱码了,我也是摸了很长时间才弄明白的.[smile]
回复回复szyss [2006-12-24 21:24:49 |  | del]
在测试中发现：
当要显示的字符超过6个(中、英文)如“枕善居 12:30 14:30”时，显示就出错，多了了一些乱码。
不知是什么原因?
回复回复zbv1688 [2006-07-14 23:31:45 |  | del]
CPU占用率太高了----始终是100%.
将DO  LOOP的循环改为TIMER的方式,CPU占用率会小得多,但字幕滚动速度做不到更快
回复回复cwz8394581 [2006-06-05 09:10:42 |  | del]
研究一下啦
回复回复dvhome [2005-05-23 12:14:31 |  | del]
测试发现一个问题

水平滚动方式中的文本不可以用中文，否则什么都没有显示……
回复回复nike999 [2005-04-21 14:44:52 |  | del]
学习中……测试发现一个问题,就是如果文本中有些空格啊什么的,就会出现乱码……
发表评论
您没有权限发表评论！