AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

small fixes

Browse Source
This commit is contained in:
Jonathan Jenne
2019-02-27 11:52:44 +01:00
parent 3d64eb6eef
commit 667b8f1b2f
5 changed files with 18 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
EDMI_ClientSuite/ClassErrorHandler.vb
View File

@@ -15,13 +15,13 @@ Public Class ClassErrorHandler
oMessage &= $"Form: {oFormName}{vbNewLine}"
oMessage &= $"Method: {oMethodName}{vbNewLine}"
oMessage &= $"{Exception.Message}{vbNewLine}{Exception.StackTrace}{vbNewLine}{vbNewLine}"
oMessage &= $"{Exception.Message}{vbNewLine}"
oMessage &= $"{Exception.StackTrace}{vbNewLine}{vbNewLine}"
oMessage &= $"Please report this error to error@digitaldata.works"
Return oMessage
End Function
Public Sub ShowErrorMessage(Exception As Exception)
_Logger.Error(Exception)
MsgBox(GetMessage(Exception), MsgBoxStyle.Critical, "Unexpected Error")

1
EDMI_ClientSuite/ClassUIConfig.vb
View File

@@ -3,7 +3,6 @@
Public Class ClassUIConfig
Public Property SkinName As String = "Office 2016 Colorful"
'Public Property EditFormConfigs As New List(Of KeyValuePair(Of String, EditFormConfig))
Public Property EditFormConfigs As New List(Of EditFormConfig)
Public Class EditFormConfig

11
EDMI_ClientSuite/FormDefaults/BaseForm.vb
View File

@@ -18,11 +18,16 @@ Public Class BaseForm
Protected ReadOnly _ErrorHandler As ClassErrorHandler
Public Sub New()
Dim oClassName = [GetType]().Name
' Get the full name of the inheriting form
' so the log messages have the right classname
Dim oClassName = [GetType]().FullName
' My.LogConfig is undefined in the designer
' so we need to check with ?
' My.LogConfig is undefined in the designer
_Logger = My.LogConfig?.GetLogger(oClassName)
_ErrorHandler = New ClassErrorHandler(_Logger)
' When you add something, be careful if it
' depends on a global var like My.LogConfig
' you might need to check for its existence with ?
End Sub
End Class

11
EDMI_ClientSuite/FormDefaults/BaseRibbonForm.vb
View File

@@ -18,12 +18,17 @@ Public Class BaseRibbonForm
Protected ReadOnly _ErrorHandler As ClassErrorHandler
Public Sub New()
Dim oClassName = [GetType]().Name
' Get the full name of the inheriting form
' so the log messages have the right classname
Dim oClassName = [GetType]().FullName
' My.LogConfig is undefined in the designer
' so we need to check with ?
' My.LogConfig is undefined in the designer
_Logger = My.LogConfig?.GetLogger(oClassName)
_ErrorHandler = New ClassErrorHandler(_Logger)
' When you add something, be careful if it
' depends on a global var like My.LogConfig
' you might need to check for its existence with ?
End Sub
End Class