Question

VB label滚动问题,

Private Sub Timer1_Timer()
Label9.Left = Label9.Left + 100
If Label9.Top > Form1.Width Then Label9.Top = Label9.Width
End Sub

运行的时候他从窗体右边出,从左边进,可是我设置的label的宽度没用?

麻烦高手给我设置下,修改下.然后麻烦告诉下,如何更换着显示滚动上显示的字.

Answer 1

Private Sub Form_Load()
Label1.AutoSize = True
End Sub

Private Sub Timer1_Timer()
Label1.Left = Label1.Left + 15
If Label1.Left > Me.ScaleWidth Then Label1.Left = -Label1.Width
End Sub

更换字，label1="中华人民共和国万岁吗？"

追问

如何用此访问网络上的字

追答

label1=你从网络上提取下来的字

追问

不是,不想多次更新程序,弄个连接以后都容易改

追答

弄一个变量 s
s=想滚动的字的内容 '改这里即可
label1=s

追问

可是你给我代码我那些字还是从form窗体右边边框出去,从左边进来,貌似我设置的label的位置一点用都没,我是想让滚动字符在label范围内动

追答

哦，这个意思啊~~
label的字不能在它本身内进行滚动。必须放在一个容器里，比如图片框，让它在容器里滚动即可

追问

我弄个图片宽在边上可以吗

追答

按你的要求大小位置放一个图片框，然后在图片框里放一个标签（label）控件，让它在图片框里来回滚动:
Private Sub Form_Load()
Label1.AutoSize = True
End Sub

Private Sub Timer1_Timer()
Label1.Left = Label1.Left + 15
If Label1.Left > picture1.ScaleWidth Then Label1.Left = -Label1.Width
End Sub

追问

我做了,成功了,可是我输入了很多的字,他竟然被带到了下一行,如何解决

追答

没有好好看我的回复！
下面这行加上：
Private Sub Form_Load()
Label1.AutoSize = True
End Sub

追问

怎么让字体从右边往左边滚,代码:
Private Sub Form_Load()
Label9.AutoSize = True
Label9 = "本软件。"
Timer1.Interval = 80 '速度,越小越快
End Sub

Private Sub Timer1_Timer()
Label9.Left = Label9.Left + 100
If Label9.Left > Picture1.Width Then Label9.Left = (-1) * Label9.Width
End Sub

追答

Private Sub Timer1_Timer()
Label9.Left = Label9.Left -90
If Label9.Left < - label9.Width Then Label9.Left = picture1.scalewidth
End Sub

追问

能不能字一开始隐藏在里面呢,是多打点空格还是怎样

追答

visible 属性

Answer 2

if (label9.left+lable9.width)=form1.width then
label9.left=0
end if

Answer 3

Private Sub Timer1_Timer()
Label9.Left = Label9.Left + 100
If Label9.Left > Form1.Width Then Label9.Left = (-1) * Label9.Width
End Sub