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

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

非常平滑的关于滚动字幕

作者:枕善居主 / 查看次数: 11267 / 评论: 14

一个非常平滑的关于滚动字幕。
稍微修改一下，就可以支持中文了。

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




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

回复回复YiDie [2007-05-16 15:19:52 |  | del]
支持中文只要在LoadText函数中更改一句代码就行了。
将
sTemp = Input(LOF(1), 1)
改为
sTemp = StrConv(InputB$(LOF(1), #1), vbUnicode)
回复回复thisok [2006-08-02 11:50:04 |  | del]
这个占用CPU资源很少,很不错的,哪位高人修改一下,让它能从左边移动出来?
回复回复zbv1688 [2006-07-12 22:43:20 |  | del]
将文件读取代码改成这样就支持中文了~~
    Open FromFile For Input As #1   'Open the file to read
        Do
            Line Input #1, tmp
            sTemp = sTemp & vbCrLf & tmp
        Loop Until EOF(1) = True
    Close #1                        'Closing the file
回复回复cwz8394581 [2006-04-02 08:00:37 |  | del]
楼主:
     帮忙解决一下让它支持中文，谢谢了

回复回复cwz8394581 [2006-03-28 09:51:33 |  | del]
我刚学vb不久，所以很多不懂，还请指教
回复回复cwz8394581 [2006-03-28 09:49:40 |  | del]
搂住：
     怎么我改成中文后，sTemp = Input(LOF(1), 1) 这行中sTemp为空，这是怎么回事？？？还请说详细一点，不胜感谢！！！[9][9]
回复回复Mndsoft [2006-03-27 18:54:38 |  | del]
修改里面的读取文字代码即可.
回复回复cwz8394581 [2006-03-27 15:11:33 |  | del]
搂主：
     怎样才能让它支持中文呢?谢谢了.
[2][2]
回复回复ruler [2005-12-22 13:37:19 |  | del]
[confused][cool]不能下吗?
回复回复Mndsoft [2005-09-18 22:12:08 |  | del]
我抽空解决一下吧[9]
发表评论
您没有权限发表评论！