📄 frmtimer.vb
字号:
Imports Microsoft.VisualBasic
Imports System
Imports System.Windows.Forms
Imports System.Threading
Namespace CodeForChapter11cs
Public Partial Class frmTimer
Inherits Form
Public Sub New()
InitializeComponent()
End Sub
Private tmr As System.Threading.Timer
Private Sub menuItem1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles menuItem1.Click
Dim someState As Object = New Object()
Dim tmrClbck As TimerCallback = New TimerCallback(AddressOf Me.AtSetInterval)
tmr = New System.Threading.Timer(tmrClbck, someState, 5 * 1000, -1)
End Sub
Private Sub AtSetInterval(ByVal state As Object)
' do something
MessageBox.Show("Test")
End Sub
End Class
End Namespace
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -