vb.net - Timer.tick 在 1 分钟内来回

Question

我有 2 个表格，我希望它在 1 分钟内来回播放幻灯片。

请写下代码谢谢！

我的代码：

表格 1

Private Sub BunifuCheckbox1_OnChange(sender As Object, e As EventArgs) Handles BunifuCheckbox1.OnChange
    If BunifuCheckbox1.Checked Then
        tmrSLIDE.Enabled = True
        tmrSLIDE.Start()
    Else
        tmrSLIDE.Stop()
    End If
End Sub
Private Sub tmrSLIDE_Tick(sender As Object, e As EventArgs) Handles tmrSLIDE.Tick
    trs1.ShowSync(Form2)
    Me.Hide()
End Sub

表格 2：

Private Sub BunifuCheckbox1_OnChange(sender As Object, e As EventArgs) Handles BunifuCheckbox1.OnChange
    If BunifuCheckbox1.Checked Then
        tmrSLIDE2.Enabled = True
        tmrSLIDE2.Start()
    Else
        tmrSLIDE2.Stop()
    End If
End Sub
Private Sub tmrSLIDE_Tick(sender As Object, e As EventArgs) Handles tmrSLIDE2.Tick
    trs2.ShowSync(Form1)
    Me.Hide()
End Sub

Property tmrSLIDE interval = 60000
property tmrSLIDE2 interval = 120000

我只想拥有 1 个带有简化代码的复选框，谢谢！

标签： vb.netvisual-studio-2019