Imports DevExpress.XtraBars.Ribbon
Imports DigitalData.Modules.Logging

Partial Public MustInherit Class BaseForm
    Inherits RibbonForm

    Friend Logger As Logger

    Public Sub New()
        Logger = My.LogConfig?.GetLogger
    End Sub

    Public Sub ShowInfo(Message As String)
        MessageBox.Show(Message, Text, MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub

    Public Sub ShowError(Message As String)
        MessageBox.Show(Message, Text, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    End Sub

    Public Sub ShowError(Exception As Exception)
        Dim oCallingClass = LogConfig.GetClassFullName(IncludeMethodNames:=True, 2)
        Logger.Error(Exception)
        ShowError($"Error in {oCallingClass}:{vbNewLine}{Exception.Message}")
    End Sub
End Class

Partial Public Class frmAdmin_Base
    Inherits BaseForm
End Class