|
Visual Studio の新規プロジェクト作成で「Windowsフォームアプリ」ではなく「クラスライブラリ」を選択してdllファイルを作成する際、System.Windows.Forms.Timer クラスと同等の機能が欲しいと思ったため、こういう質問をさせていただきました。
記載していただいたサイト等を参考にした結果、以下のコードで解決しました。初歩的な質問にヒントを与えていただき、ありがとうございました。
Shared Sub Timer_Start(ByRef aTimer As Timer, ByVal Time_Interval As Double)
'タイマー開始 Set_Timer(aTimer, Time_Interval)
End Sub
Shared Sub Timer_Close(ByVal aTimer As Timers.Timer)
'タイマー停止 aTimer.Stop() aTimer.Dispose()
End Sub
Private Shared Sub Set_Timer(ByRef aTimer As Timer, ByVal Time_Interval As Double)
aTimer = New Timer(Time_Interval)
AddHandler aTimer.Elapsed, AddressOf OnTimed_Event
aTimer.AutoReset = True aTimer.Enabled = True
End Sub
Private Shared Sub OnTimed_Event(source As Object, e As ElapsedEventArgs)
'ここに一定間隔で実行するコードを記述
End Sub
|