Question

在VB中如何让标签用时间控件在窗体的水平左右移动

Answer 1

Option Explicit

'添加一个标签label,一个计时timer

Dim X As Integer '定义全局变量

Private Sub Form_Load()

    X = 0 '初始化

    Label1.BackColor = &HFF0000 '

    Timer1.Enabled = True '

    Timer1.Interval = 50 '移动速度，根据需要调整

End Sub

Private Sub Timer1_Timer()

    If X = 0 Then

        Label1.Left = Label1.Left + 100 '每单位时间移动距离，根据需要调整

        If Label1.Left > 3000 Then X = 1 '如果标签坐标超出设定植，则改变X变量的值，标签向反方向移动，下同

    End If

    If X = 1 Then

        Label1.Left = Label1.Left - 100 '

        If Label1.Left < 300 Then X = 0 '

    End If

End Sub

Answer 2

需要一个标签和一个时钟，代码如下：

Dim flag As Boolean

Private Sub Form_Load()
flag = True
End Sub

Private Sub Timer1_Timer()
If flag = True Then
Label1.Left = Label1.Left + 50
If Label1.Left > Me.Width - Label1.Width Then flag = False
Else
Label1.Left = Label1.Left - 50
If Label1.Left < 0 Then flag = True
End If
End Sub