|
分類:[VB.NET/VB2005 以降]
VisualStudio2017 VB言語で開発をしております。
Formロード時にシステム時刻が変更されたことを検知するためのイベントを置いて
時刻が変更されたらMessageBoxで表示するようにしているのですが、
MessageBoxが2つ表示されてしまいます。
動作的にシステム変更検知イベントが2回走っている状態です。
イベントが複数設定されていたり、
イベントが複数個所で呼び出されている可能性はあるのでしょうか。
Import Microsoft.Win32
Private Sub Form1_Load(ByVal sender As Object, e As System.EventArgs) Handles MyBase.Load
'AddHandler SystemEvents.UserPreferenceChanged, AddressOf SystemEvents_UserPreferencesChanged
AddHandler SystemEvents.TimeChanged, AddressOf SystemEvents_TimeChenged
End Sub
Private Sub SystemEvents_TimeChenged(ByVal sender As Object, ByVal e As EventArgs)
MessageBox.Show("現在時刻：" & DateTime.Now.ToString())
End Sub
Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
RemoveHandler SystemEvents.TimeChanged, New EventHandler(AddressOf SystemEvents_TimeChenged)
End Sub
よろしくお願いいたします。
|