@@ -618,18 +618,6 @@ Public Class WinNUT
618
618
HasFocus = False
619
619
End Sub
620
620
621
- Public Shared Sub Event_ChangeStatus() Handles Me .On_Battery, Me .On_Line,
622
- UPS_Device.Lost_Connect, UPS_Device.Connected, UPS_Device.Disconnected
623
-
624
- WinNUT.NotifyIcon.BalloonTipText = WinNUT.NotifyIcon.Text
625
- If WinNUT.AllowToast And WinNUT.NotifyIcon.BalloonTipText <> "" Then
626
- Dim Toastparts As String () = WinNUT.NotifyIcon.BalloonTipText.Split( New String () {Environment.NewLine}, StringSplitOptions.None)
627
- WinNUT.ToastPopup.SendToast(Toastparts)
628
- ElseIf WinNUT.NotifyIcon.Visible = True And WinNUT.NotifyIcon.BalloonTipText <> "" Then
629
- WinNUT.NotifyIcon.ShowBalloonTip( 10000 )
630
- End If
631
- End Sub
632
-
633
621
Private Sub Update_UPS_Data() Handles UPS_Device.DataUpdated
634
622
LogFile.LogTracing( "Updating UPS data for Form." , LogLvl.LOG_DEBUG, Me )
635
623
@@ -875,6 +863,18 @@ Public Class WinNUT
875
863
End If
876
864
End Sub
877
865
866
+ Public Shared Sub Event_ChangeStatus() Handles Me .On_Battery, Me .On_Line,
867
+ UPS_Device.Lost_Connect, UPS_Device.Connected, UPS_Device.Disconnected
868
+
869
+ WinNUT.NotifyIcon.BalloonTipText = WinNUT.NotifyIcon.Text
870
+ If WinNUT.AllowToast And WinNUT.NotifyIcon.BalloonTipText <> "" Then
871
+ Dim Toastparts As String () = WinNUT.NotifyIcon.BalloonTipText.Split( New String () {Environment.NewLine}, StringSplitOptions.None)
872
+ WinNUT.ToastPopup.SendToast(Toastparts)
873
+ ElseIf WinNUT.NotifyIcon.Visible = True And WinNUT.NotifyIcon.BalloonTipText <> "" Then
874
+ WinNUT.NotifyIcon.ShowBalloonTip( 10000 )
875
+ End If
876
+ End Sub
877
+
878
878
Private Function GetIcon(IconIdx As Integer ) As Icon
879
879
Select Case IconIdx
880
880
Case 1025
0 commit comments