Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Private mTZChangeFilter As WindowsMessageFilter
- mTZChangeFilter = New WindowsMessageFilter()
- AddHandler mTZChangeFilter.TimeChanged, AddressOf onTimeChanged
- Application.RemoveMessageFilter(mTZChangeFilter)
- Public Class WindowsMessageFilter
- Implements IMessageFilter
- <System.Diagnostics.DebuggerStepThrough()> _
- Public Function PreFilterMessage(ByRef m As System.Windows.Forms.Message) As Boolean Implements System.Windows.Forms.IMessageFilter.PreFilterMessage
- ' Debug.Print(m.Msg.ToString)
- If m.Msg = 30 Then
- ResetTimeZone()
- RaiseEvent TimeChanged(Me)
- End If
- End Function
- Private Sub ResetTimeZone()
- Dim tz As Type = GetType(System.TimeZone)
- Dim mth As System.Reflection.MethodInfo
- Try
- mth = tz.GetMethod("ResetTimeZone", BindingFlags.NonPublic Or BindingFlags.Static)
- mth.Invoke(mth, Nothing)
- Catch ex As Exception
- Debug.Print(ex.ToString)
- End Try
- End Sub
- end class
Add Comment
Please, Sign In to add comment