VB.NET====关于timer事件的文本滚动显示

Public Class Form1
    '加载窗体背景
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.BackgroundImage = Image.FromFile("21.jpg")
        '如果文件没有放在bin文件的debug文件夹下，就要根据..\来表示上一层文件路径
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Call mymove()
    End Sub
    '自动，定时器每隔200ms移动一次
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Interval = 200
        Timer1.Enabled = True
    End Sub
    '移动子事件
    Sub mymove()
        Label1.Top = Label1.Top + 5
        If Label1.Top > Me.Height Then '判断label1是否超出窗体
            Label1.Top = 0
        End If
    End Sub
    '手动，定时器无效
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Enabled = False
        Call mymove()
    End Sub
End Class
 

运行结果：

很长时间没有更新了，后续会持续更新