TryCatch NavigationPane

This commit is contained in:
Digital Data - Marlon Schreiber
2019-02-21 21:52:27 +01:00
parent 72788c84bd
commit 39ae902929
9 changed files with 126 additions and 117 deletions

View File

@@ -41,8 +41,12 @@ Public Class frmMain
_Timer = New ClassTimer(My.LogConfig, Me, My.SysConfig.HeartbeatInterval)
AddHandler _Timer.OnlineChanged, AddressOf HandleOnlineChanged
SetOnlineLabel()
Try
UserLookAndFeel.Default.SetSkinStyle(My.UIConfig.SkinName)
Catch ex As Exception
End Try
UserLookAndFeel.Default.SetSkinStyle(My.UIConfig.SkinName)
LabelCurrentUser.Caption = My.Application.User.UserName
LabelCurrentMachine.Caption = My.Application.User.MachineName