jj

EDMI_ClientSuite/frmMain.vb

@@ -1,35 +0,0 @@
-Public Class frmMain
-    Public Sub New()
-        Dim splash As New frmSplash()
-        Try
-            splash.ShowDialog()
-        Catch ex As Exception
-            'ClassLogger.Add($"Error in Splash: {ex.Message}")
-        End Try
-        Try
-            ' Dieser Aufruf ist für den Designer erforderlich.
-            InitializeComponent()
-
-            ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
-            Me.MenueUser.Ribbon = RibbonControl1
-
-
-
-
-        Catch ex As Exception
-
-        End Try
-
-
-    End Sub
-
-    Private Sub BarButtonItemBasicUser_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItemBasicUser.ItemClick
-        frmUserBasics.ShowDialog()
-    End Sub
-
-    Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
-        Dim frm As New frmFileTest
-        frm.MdiParent = Me
-        frm.Show()
-    End Sub
-End Class