94 lines
3.7 KiB
VB.net
94 lines
3.7 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
|
|
|
|
Public Class frmMain
|
|
Public Sub New()
|
|
InitializeComponent()
|
|
|
|
Dim oForm As New frmSplash()
|
|
oForm.ShowDialog()
|
|
End Sub
|
|
|
|
Private Sub FrmMain_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
LabelCurrentUser.Caption = Environment.UserName
|
|
LabelCurrentMachine.Caption = Environment.MachineName
|
|
LabelCurrentVersion.Caption = My.Application.Info.Version.ToString
|
|
|
|
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(Row As DataRowView)
|
|
MsgBox($"Clicked on Document {Row.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 frmUserBasics()
|
|
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(MyLogConfig)
|
|
frm.MdiParent = DocumentManager.MdiParent
|
|
frm.Show()
|
|
End Sub
|
|
|
|
Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
|
|
|
|
End Sub
|
|
End Class |