109 lines
4.4 KiB
VB.net
109 lines
4.4 KiB
VB.net
Imports DevExpress.XtraBars.Docking2010.Views
|
|
Imports DevExpress.XtraBars.Docking2010
|
|
Imports DevExpress.XtraBars.Docking2010.Views.Widget
|
|
Imports System.ComponentModel
|
|
Imports EDMI_ClientSuite.ClassLayout
|
|
Imports System.IO
|
|
Imports DigitalData.Modules.Logging
|
|
Imports DigitalData.Modules.Logging.LogConfig
|
|
|
|
Public Class frmMain
|
|
Private _Logger As Logger
|
|
|
|
Public Sub New()
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
|
|
' Show splashscreen
|
|
frmSplash.ShowDialog()
|
|
End Sub
|
|
|
|
Private Sub FrmMain_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
LabelCurrentUser.Caption = My.Application.User.UserName
|
|
LabelCurrentMachine.Caption = My.Application.User.MachineName
|
|
LabelCurrentVersion.Caption = My.Application.Info.Version.ToString
|
|
LabelCurrentLanguage.Caption = My.Application.User.Language
|
|
|
|
Dim oDashboard = New frmDashboard()
|
|
oDashboard.MdiParent = DocumentManager.MdiParent
|
|
oDashboard.Show()
|
|
|
|
' --- Process Manager Panel ---
|
|
Dim oDataTable = New DataTable("PMDocuments")
|
|
Dim oDocNameColumn = New DataColumn("DocName", GetType(String))
|
|
oDataTable.Columns.Add(oDocNameColumn)
|
|
|
|
Dim oRow = oDataTable.NewRow()
|
|
oRow.Item("DocName") = "test1.xlsx"
|
|
|
|
oDataTable.Rows.Add(oRow)
|
|
|
|
ProcessManagerOverview.DataSource = oDataTable
|
|
AddHandler ProcessManagerOverview.RowDoubleClicked, Sub(RowView As DataRowView)
|
|
MsgBox($"Clicked on Document {RowView.Row.Item("DocName")}")
|
|
End Sub
|
|
|
|
|
|
LoadLayout()
|
|
End Sub
|
|
|
|
Private Sub FrmMain_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
|
|
SaveLayout()
|
|
End Sub
|
|
|
|
Private Sub LoadLayout()
|
|
Dim oLayoutPathForDockManager As String = GetLayoutPath(LayoutName.LayoutMain, LayoutComponent.DockManager)
|
|
Dim oLayoutPathForDocumentManager As String = GetLayoutPath(LayoutName.LayoutMain, LayoutComponent.DocumentManager)
|
|
|
|
If IO.File.Exists(oLayoutPathForDockManager) Then
|
|
DockManager.RestoreLayoutFromXml(oLayoutPathForDockManager)
|
|
End If
|
|
|
|
If IO.File.Exists(oLayoutPathForDocumentManager) Then
|
|
DocumentManager.View.RestoreLayoutFromXml(oLayoutPathForDocumentManager)
|
|
End If
|
|
End Sub
|
|
Private Sub SaveLayout()
|
|
Dim oLayoutPathForDockManager As String = GetLayoutPath(LayoutName.LayoutMain, LayoutComponent.DockManager)
|
|
Dim oLayoutPathForDocumentManager As String = GetLayoutPath(LayoutName.LayoutMain, LayoutComponent.DocumentManager)
|
|
Dim oDirectory As String = Path.GetDirectoryName(oLayoutPathForDockManager)
|
|
|
|
If Not Directory.Exists(oDirectory) Then
|
|
Directory.CreateDirectory(oDirectory)
|
|
End If
|
|
|
|
DockManager.SaveLayoutToXml(oLayoutPathForDockManager)
|
|
DocumentManager.View.SaveLayoutToXml(oLayoutPathForDocumentManager)
|
|
End Sub
|
|
|
|
Private Sub BarButtonUserSettings_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonUserSettings.ItemClick
|
|
Dim frm As New frmConfigUser()
|
|
frm.MdiParent = DocumentManager.MdiParent
|
|
frm.Show()
|
|
End Sub
|
|
|
|
Private Sub BarButtonDashboard_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonDashboard.ItemClick
|
|
Dim frm As New frmDashboard()
|
|
frm.MdiParent = DocumentManager.MdiParent
|
|
frm.Show()
|
|
End Sub
|
|
|
|
Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
|
|
Dim frm As New frmFileTest(My.LogConfig)
|
|
frm.MdiParent = DocumentManager.MdiParent
|
|
frm.Show()
|
|
End Sub
|
|
|
|
Private Sub BarButtonEntityDesigner_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonEntityDesigner.ItemClick
|
|
Dim frm As New frmEntityDesigner()
|
|
frm.MdiParent = DocumentManager.MdiParent
|
|
frm.Show()
|
|
RibbonPageCategoryEntityDesigner.Visible = True
|
|
End Sub
|
|
|
|
Private Sub BarButtonConnectionSettings_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonConnectionSettings.ItemClick
|
|
Dim frm As New frmConfigService()
|
|
frm.MdiParent = DocumentManager.MdiParent
|
|
frm.Show()
|
|
End Sub
|
|
End Class |