Label滚动问题

Question

If Label2.Left <> 0 Then
    Label2.Left = Label2.Left - 100
If Label2.Left < 0 Then
    Label20.Left = Label20.Left - 100
endif
endif
这是自己搞的，用了2个label。 请问怎么让他循环起来？

Answer 1

一个Label放在Frame中间，另一个放在Frame的最右端

Answer 2

我跟不上你的逻辑阿，你的代码是放在timer里面的么？滚之前记录一个初始的left
dim lngOrigLeft2 as long，lngOrigLeft20 as long
lngOrigLeft2=label2.left
lngOrigLeft20=label20.left'----开始滚
If Label2.Left <> 0 Then
  Label2.Left = Label2.Left - 100
If Label2.Left < 0 Then   '---你的label2不可见以后label20开始动？
  Label20.Left = Label20.Left - 100
endif
endif
你可以判断如果两个label都不可见就复员
if label2.left<0 and label20.left<0 then
   label2.left=lngOrigLeft2
   lable20.left=lngOrigLeft20
end if反正思路就是差不多

Answer 3

对，在Timer里 你们可以试一下效果。。突然发现语言表达能力不行了，。
Private Sub Timer1_Timer()
If Label2.Left <> 0 Then
    Label2.Left = Label2.Left - 100
If Label2.Left < 0 Then
    Label20.Left = Label20.Left - 100
    End If
    End If
End Sub
初始一个Frame  2个label 然后frame的width属性为6000
一个label居中另一个label的left属性也设为6000.。
就这样。。12点就断网了。