Question

vb里timer事件中标签向上移动

vb里timer事件中标签向上移动

Answer 1

Private Sub Timer1_Timer()
Label1.Top = Label1.Top - 100
'下面一行是当标签走到最上端时返回窗体底部,重新上移:
If Label1.Top <= 0 Then Label1.Top = Me.ScaleHeight
End Sub