回 帖 发 新 帖 刷新版面

主题:请教:有没有状态栏内字体滚动的代码

我都快疯了,请各位大仙指教一下。我想在状态栏内添加文字,并让其滚动,想了好几天也没搞成。谢谢!!![em10]

回复列表 (共8个回复)

沙发

我是个初学者,请大家多多指教了!!

板凳

没有现成的代码,指教一下怎么做也行。再次谢谢!!!

3 楼

怎么回事呀?是没人会,还是认为问题太小儿科呀???

4 楼

看的不少,就是没人来指点一下

5 楼

工程拿来!~

6 楼

这个代码需要运用到 截取等函数。

7 楼

一种笨方法,用Timer
Private Sub Timer1_Timer()
Static i As Integer
StatusBar1.Panels(1).Text = String$(35 - i, " ") & "欢迎光临"
If i < 35 Then
    i = i + 1
Else
    i = 0
End If
End Sub

8 楼

谢谢!!!衷心表示感谢。这个问题总算解决了。没解决的这几天我的脑袋都快炸了。我的QQ号是:342022272。如果可以的话,能加我为好友吗?可以经常向你请教。我是才学VB的新手,学VB主要是想在工作上有所帮助。
    再次谢谢!!!

我来回复

您尚未登录,请登录后再回复。点此登录或注册