form1.vb

来自「Visual Basic .NET程序设计教程源代码」· VB 代码 · 共 28 行

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    step1 = 1
    Timer1.Interval = 0
End Sub
Public Sub mymove()
    label1.move(label1.left, lable1.top + 50 * step1)
    If label1.top + 1.5 * label1.height > form1.height Then
        step1 = -1
    ElseIf label1.top < 0 Then
        step1 = 1
    End If
End Sub
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
    Timer1.Interval = 0
    Call mymove()
End Sub

Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
    Timer1.Interval = 200
End Sub

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    Call mymove()
End Sub
End Class
Dim step1 As Integer