VB可使用Timer控件實現將Label控件在窗體上下來回移動。
Timer 控件,通過引發 Timer 事件,Timer 控件可以有規律地隔壹段時間執行壹次代碼。
Top 屬性,返回或設置對象的內頂部和它的容器的頂邊之間的距離。
實例代碼:
Private Sub Form_Load()
Timer2.Enabled = False
Timer1.Enabled = True
Timer1.Interval = 500
Timer2.Interval = 500
End Sub
Private Sub Timer1_Timer()
Label1.Top = Label1.Top + 100
If Label1.Top + Label1.Height > Me.Height Then
Timer1.Enabled = False
Timer2.Enabled = True
End If
End Sub
Private Sub Timer2_Timer()
Label1.Top = Label1.Top - 100
If Label1.Top <= 0 Then
Timer2.Enabled = False
Timer1.Enabled = True
End If
End Sub
實例代碼2:
Dim bl As Boolean
Private Sub Form_Load()
bl = 0
Me.Timer1.Interval = 500
End Sub
Private Sub Timer1_Timer()
If bl = 0 Then '向下
Label1.Top = Label1.Top + 500
If Label1.Top >= Form1.ScaleHeight Then
bl = 1 '向上
End If
Else '向上
Label1.Top = Label1.Top - 500
If Label1.Top <= 0 Then
bl = 0 '向下
End If
End If
End Sub