vb文字滚动

来源：百度知道 编辑：UC知道 时间：2024/05/17 00:41:55
怎么设置使label上的文字滚过来，滚过去呢??
我是想把label放在中间,然后由于文字过长,就想用滚动的.
谁知道怎么弄? label的位置不要变化,只是label上面的字变化而已.

告诉你一种简单的方法：
首先加个timer控件，然后加入如下代码：
Private Sub Form_Load()
Label1.Caption = "要滚动的字的内容"
Timer1.Interval = 300
再双击timer控件输入下面代码：
Label1.Caption = Mid(Label1.Caption, 2, Len(Label1.Caption) - 1) + Left(Label1.Caption, 1)

首先,你想象的改变文字肯定可以实现

只是你想过没有,这样的滚动,就是1个字1个字的滚动..人看了就觉得移动的很难受

所以,理想的方法,是应该把label设置为autosize,然后把它放进一个picbox的框架中, 调整pic的大小,用来显示合适的文字数量,然后移动label实现文字滚动,当label的完全移出picbox范围时,回到原始位置,重新移动..这样的代码百度很多的,搜索一下吧.

最好的方法是让label位置变化,因为处理文字更花脑筋,而且效果一般
既然你已经舍弃了最好的方法....哎....你是想编音乐软件显示歌曲名吗?
只讲方法吧:
定义一个变量a保存指向字符串的字符数,定义一个变量b获取整个label所能显示的字符数,然后a=a+1,然后mid函数截取字符串,然后显示
如果a超过整个字符串的长度则返回到1.
如果你想再编的好看点就要自己动脑筋了,另外提醒你下,如果文字中有汉字和西文相交错,那些mid取字符的话可能会造成一下快一下慢的情况,你就要用半角处理.
好了,没分了,自己考虑考虑,其实很简单的...