VB初级编程，大虾请进

来源：百度知道 编辑：UC知道 时间：2024/06/27 17:55:48
就是LABEL的平移问题
要求是 不能让LABEL完全消失后再在另一侧出现
必须是当LABEL消失一点在另一侧就能及时显示出来
可能我说的不明白 可我也真不会表达了 - - !
我们学的是当LABEL完全消失时 也就是当LABEL的LEFT=-LEN(”字符串“)时 把LABEL的LEFT=FORM1.WIDTH
我不想这样
我想法是 当LABEL的文字刚消失时就在对侧显示出来
也可以理解为 消失了一个字 就在对侧显示出来
对了 是用TIMER控件控制LABEL的自动移动
能给出完整的程序么
汗死 我说不明白了 你们凑合着理解吧！~

Label1的Index属性改成0

Private Sub Form_Load()
Load Label1(1)
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
Label1(0).Left = Label1(0).Left + 100
l = Label1(0).Left + Label1(0).Width
If Label1(0).Left > Width Then
Label1(0).Left = 0
Label1(1).Visible = False
ElseIf Label1(0).Left + Label1(0).Width > Width Then
Label1(1).Left = Label1(0).Left - Width
Label1(1).Visible = True
End If
End Sub

在窗体上画两个相同的label控件，－个定时控件。定时控件的interval属性设为200，用如下代码可以做到你要的效果。
Private Sub Timer1_Timer()
If (Label1.Left + Label1.Width >= Form1.Width) Then
If Label2.Visible = False Then
Label2.Left = 0 - Label2.Width
label2.top=label1.top
End If
Label2.Visible = True
End If
If (Label1.Left >= Form1.Width) Then
Label1.Left = 0
Label2.Visible = False
End If
If Label2.Visible = True Then
Label2.Lef