36 lines
991 B
VB.net
36 lines
991 B
VB.net
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
|