7,763
社区成员
发帖
与我相关
我的任务
分享请给个思路（方法）：如何实现文本的平滑滚动？
大家都见过大屏幕吧？文字从屏幕下方平滑滚动到上方。当文字出现在最下方的时候，不是一行一行的蹦出来，而是一点一点显示出来。上移到顶部的时候也是同样的效果。
现在要在程序里边实现同样的功能，要求可以控制文字的字体、大小，可以控制文字的颜色和背景色，可以控制文字的滚动速度。
现在要在程序里边实现同样的功能，要求可以控制文字的字体、大小，可以控制文字的颜色和背景色，可以控制文字的滚动速度。
...全文
请发表友善的回复…
发表回复
northwolves 2003-12-20
- 打赏
- 举报
这就可以了，闪的话TIMER的INTERVAL 长些：
PICTUREBOX + LABEL（AUTOSIZE=TRUE）+TIMER
PICTUREBOX + LABEL（AUTOSIZE=TRUE）+TIMER
apple_001 2003-12-19
- 打赏
- 举报
对label这样用应该差不多把，我经常这样做跑马灯。
wangxuejun 2003-12-19
- 打赏
- 举报
《在图片上平滑移动文字》
http://www.vb60.com/wenzhang/data/wenzhang.asp?listID=2003-04-19 10:25:02
看看上面这篇文件是否可以满足你
http://www.vb60.com/wenzhang/data/wenzhang.asp?listID=2003-04-19 10:25:02
看看上面这篇文件是否可以满足你
a11s 2003-12-19
- 打赏
- 举报
真要想实现平滑移动只有画出来
由于VB的图像处理能力出奇的差，只能借助API
比如bitblt,这样您再C1.0GHz下200x200的范围内CPU 100%时可以实现平滑移动
如果您想全屏幕实现平滑移动，那么...
只有DirectDraw了，可以在1024x768下轻松超过60fps，(这个是我移动图片的结果)
实现电影级效果，当然，您也可以使用窗口模式
缺点，接口比较麻烦，当年看不懂愣是把微软的例子背下来了（虽然DDraw是DX中最简单的一个）
由于VB的图像处理能力出奇的差，只能借助API
比如bitblt,这样您再C1.0GHz下200x200的范围内CPU 100%时可以实现平滑移动
如果您想全屏幕实现平滑移动，那么...
只有DirectDraw了，可以在1024x768下轻松超过60fps，(这个是我移动图片的结果)
实现电影级效果，当然，您也可以使用窗口模式
缺点，接口比较麻烦，当年看不懂愣是把微软的例子背下来了（虽然DDraw是DX中最简单的一个）
LemonRain 2003-12-19
- 打赏
- 举报
加一个Label控件。
Option Explicit
Dim iStep As Integer
Private Sub Form_Load()
Label1.Top = Me.ScaleHeight
iStep = Me.ScaleHeight \ 200
Me.Show
Timer1.Enabled = True
End Sub
Private Sub timer1_Timer()
Label1.Top = Label1.Top - iStep
If Label1.Top < -Label1.Height Then
Timer1.Enabled = False
Unload Me
End
End If
End Sub
看看这个是不是你想要的。
Option Explicit
Dim iStep As Integer
Private Sub Form_Load()
Label1.Top = Me.ScaleHeight
iStep = Me.ScaleHeight \ 200
Me.Show
Timer1.Enabled = True
End Sub
Private Sub timer1_Timer()
Label1.Top = Label1.Top - iStep
If Label1.Top < -Label1.Height Then
Timer1.Enabled = False
Unload Me
End
End If
End Sub
看看这个是不是你想要的。
飘零风 2003-12-19
- 打赏
- 举报
To 楼上：不是我不相信你的方法，只是还不能完全解决我的问题。
一首歌的歌词毕竟是有限长度的。你可以在显示完毕一首歌以后，将文字清空，再显示下一首。因此这个文字的长度，包括控件的height，都是在可以控制的范围以内。
但是对于我的应用来说，如果不能解决height无限增长的问题，就没有意义了。
我的email：eports at 21cn.com。
一首歌的歌词毕竟是有限长度的。你可以在显示完毕一首歌以后，将文字清空，再显示下一首。因此这个文字的长度，包括控件的height，都是在可以控制的范围以内。
但是对于我的应用来说，如果不能解决height无限增长的问题，就没有意义了。
我的email：eports at 21cn.com。
liyan010 2003-12-19
- 打赏
- 举报
就用我的吧，实在不信，告我你的mail，把我做过的例子发给你！
SoHo_Andy 2003-12-19
- 打赏
- 举报
这个是窗体标题右向左循环滚动的例子
看看有什么启发没有
Dim num As Long
Const X = "滚动的标题"
Dim i As Long
Private Sub Form_Load()
Timer1.Interval = 100
num = (Me.Width - Me.TextWidth(X)) / Me.TextWidth(" ")
i = num
End Sub
Private Sub Timer1_Timer()
i = i - 1
Me.Caption = String(i, " ") & X
If i = 0 Then i = num
End Sub
看看有什么启发没有
Dim num As Long
Const X = "滚动的标题"
Dim i As Long
Private Sub Form_Load()
Timer1.Interval = 100
num = (Me.Width - Me.TextWidth(X)) / Me.TextWidth(" ")
i = num
End Sub
Private Sub Timer1_Timer()
i = i - 1
Me.Caption = String(i, " ") & X
If i = 0 Then i = num
End Sub
wangzhe200 2003-12-19
- 打赏
- 举报
UP
飘零风 2003-12-19
- 打赏
- 举报
闪也罢，耗费资源也罢，我得先有一个能解决问题的办法才行啊。
liyan010 2003-12-19
- 打赏
- 举报
To eports(飘零风):
哥们,你搞没搞错啊?这还是个好主意啊~ 很占系统资源的,知道不?
To huluobowangmeng(胡萝卜):
世界上没有绝对的事,我们的目的只要你的肉眼看起来感觉还不错就可以了~
想要真正的不闪,那还要麻烦您用flash给我们做一个~
嘿嘿
哥们,你搞没搞错啊?这还是个好主意啊~ 很占系统资源的,知道不?
To huluobowangmeng(胡萝卜):
世界上没有绝对的事,我们的目的只要你的肉眼看起来感觉还不错就可以了~
想要真正的不闪,那还要麻烦您用flash给我们做一个~
嘿嘿
huluobowangmeng 2003-12-19
- 打赏
- 举报
一般来讲，以上方法都不是绝对的平滑，都是一闪一闪的。我上学的时候老师就出了到题了。
难道了一片兄弟。各种控件试了一遍，还是闪。电视上常说：“不闪的才是好的，因为它不伤眼睛！”
难道了一片兄弟。各种控件试了一遍，还是闪。电视上常说：“不闪的才是好的，因为它不伤眼睛！”
飘零风 2003-12-19
- 打赏
- 举报
多个label倒是个好主意，但是这样又如何控制字体大小呢？因为字体大小变化，每行显示的文字数量就会发生变化。
To SnHnBn(大可达)：DirectDraw 我想是个好主意。可惜我从来没有研究过，现在开始学的话，恐怕是来不及了 :( 不过还是要谢谢你
To SnHnBn(大可达)：DirectDraw 我想是个好主意。可惜我从来没有研究过，现在开始学的话，恐怕是来不及了 :( 不过还是要谢谢你
maskzha 2003-12-19
- 打赏
- 举报
用多个LABLE，每个显示一行文字。同时滚动
最上方和最下方可用个东西档住。超过遮挡物体就移到底端，更新文字。
就可循环使用LABLE了。
最上方和最下方可用个东西档住。超过遮挡物体就移到底端，更新文字。
就可循环使用LABLE了。
SnHnBn 2003-12-19
- 打赏
- 举报
DirectDraw
飘零风 2003-12-19
- 打赏
- 举报
我是比较担心“richtextbox的height跟着不停的变”最后会出问题。因为这个系统一直在运行，最后一定会造成height的数值非常非常大，以至于最后造成溢出。
这样的话，必须要有一个合适的方法减少height的值。也就是说，对于已经显示过的文字（已经滚动出屏幕），要把它们从顶部去掉，同时不能影响正在显示的文字。这个又应该如何做？
这样的话，必须要有一个合适的方法减少height的值。也就是说，对于已经显示过的文字（已经滚动出屏幕），要把它们从顶部去掉，同时不能影响正在显示的文字。这个又应该如何做？
liyan010 2003-12-19
- 打赏
- 举报
To 楼主eports(飘零风):
"我要显示的文本是不断增加的。一开始的时候，并不能确定文本的全部内容。"
这个好办啊,richtextbox的height跟着不停的变不就行了。
我以前就做过（以前是在做mp3播放器的歌词秀插件的时候就是这样的），记得好象显示1行的时候，richtextbox的height值应该是120左右，然后你就每加一行，richtextbox1.height再加120就可以了。
"我要显示的文本是不断增加的。一开始的时候，并不能确定文本的全部内容。"
这个好办啊,richtextbox的height跟着不停的变不就行了。
我以前就做过（以前是在做mp3播放器的歌词秀插件的时候就是这样的），记得好象显示1行的时候，richtextbox的height值应该是120左右，然后你就每加一行，richtextbox1.height再加120就可以了。
脆皮大雪糕 2003-12-19
- 打赏
- 举报
创建一个窗体，窗体上放置一个picture1，然后在picture1里面放上一个picture2,picture2里面爱放什么放什么了，比如lable text buttom shape之类的，看你喜欢什么东西拿来滚动了。然后在窗体上访一个timer1
年贴下面的代码：
Option Explicit
Private Sub Form_Load()
Picture2.Width = Picture2.Width
Picture2.BorderStyle = 0
Timer1.Enabled = True
Timer1.Interval = 10
End Sub
Private Sub Timer1_Timer()
Picture2.Top = Picture2.Top - 10
If Picture2.Top < -Picture2.Height Then Picture2.Top = Picture1.Height
End Sub
现在picture2里面的东西开始平滑循环滚动了，程序里面可以对picture2所容纳的东西进行随意控制，可以作出非常眩的效果
年贴下面的代码：
Option Explicit
Private Sub Form_Load()
Picture2.Width = Picture2.Width
Picture2.BorderStyle = 0
Timer1.Enabled = True
Timer1.Interval = 10
End Sub
Private Sub Timer1_Timer()
Picture2.Top = Picture2.Top - 10
If Picture2.Top < -Picture2.Height Then Picture2.Top = Picture1.Height
End Sub
现在picture2里面的东西开始平滑循环滚动了，程序里面可以对picture2所容纳的东西进行随意控制，可以作出非常眩的效果
飘零风 2003-12-19
- 打赏
- 举报
对于我的应用来说，以上这几种方法都面临同一个问题，那就是：我要显示的文字是不停变化（不断增加）的。我并不能在程序初始化的时候确定文本的内容。这个比较麻烦。
飘零风 2003-12-18
- 打赏
- 举报
我要显示的文本是不断增加的。一开始的时候，并不能确定文本的全部内容。
加载更多回复（2）
