Add Search & Home Form + Attached Panels
This commit is contained in:
Jonathan Jenne
parent
4a7f0cd85d
commit
3ee971fd14
@ -140,6 +140,12 @@
|
||||
<Compile Include="ClassUtils.vb" />
|
||||
<Compile Include="ControlDefaults\GridControlDefaults.vb" />
|
||||
<Compile Include="ControlDefaults\TreeListDefaults.vb" />
|
||||
<Compile Include="frmSearch.Designer.vb">
|
||||
<DependentUpon>frmSearch.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="frmSearch.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="_TEST\DockManagerTest.Designer.vb">
|
||||
<DependentUpon>DockManagerTest.vb</DependentUpon>
|
||||
</Compile>
|
||||
@ -186,22 +192,16 @@
|
||||
<Compile Include="FormDefaults\BaseRibbonForm.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="frmDashboard.Designer.vb">
|
||||
<DependentUpon>frmDashboard.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="frmDashboard.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="_TEST\frmFileTest.Designer.vb">
|
||||
<DependentUpon>frmFileTest.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="_TEST\frmFileTest.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="frmInbox.Designer.vb">
|
||||
<DependentUpon>frmInbox.vb</DependentUpon>
|
||||
<Compile Include="frmHome.Designer.vb">
|
||||
<DependentUpon>frmHome.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="frmInbox.vb">
|
||||
<Compile Include="frmHome.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="frmMain.Designer.vb">
|
||||
@ -288,6 +288,9 @@
|
||||
</Compile>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<EmbeddedResource Include="frmSearch.resx">
|
||||
<DependentUpon>frmSearch.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="_TEST\DockManagerTest.resx">
|
||||
<DependentUpon>DockManagerTest.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
@ -303,14 +306,11 @@
|
||||
<EmbeddedResource Include="FormEntityDesigner\frmEntityDesigner.resx">
|
||||
<DependentUpon>frmEntityDesigner.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="frmDashboard.resx">
|
||||
<DependentUpon>frmDashboard.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="_TEST\frmFileTest.resx">
|
||||
<DependentUpon>frmFileTest.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="frmInbox.resx">
|
||||
<DependentUpon>frmInbox.vb</DependentUpon>
|
||||
<EmbeddedResource Include="frmHome.resx">
|
||||
<DependentUpon>frmHome.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="frmMain.resx">
|
||||
<DependentUpon>frmMain.vb</DependentUpon>
|
||||
|
||||
37
EDMI_ClientSuite/frmDashboard.Designer.vb
generated
37
EDMI_ClientSuite/frmDashboard.Designer.vb
generated
@ -1,37 +0,0 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmDashboard
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Wird vom Windows Form-Designer benötigt.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'frmDashboard
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(800, 450)
|
||||
Me.Name = "frmDashboard"
|
||||
Me.Text = "Dashboard"
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
@ -1,4 +0,0 @@
|
||||
Imports System.ComponentModel
|
||||
|
||||
Public Class frmDashboard
|
||||
End Class
|
||||
@ -1,5 +1,5 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmInbox
|
||||
Partial Class frmHome
|
||||
Inherits BaseRibbonForm
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
@ -30,6 +30,7 @@ Partial Class frmInbox
|
||||
Me.TreeListColumn1 = New DevExpress.XtraTreeList.Columns.TreeListColumn()
|
||||
Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
|
||||
Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
|
||||
Me.NavBarGroup2 = New DevExpress.XtraNavBar.NavBarGroup()
|
||||
CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.NavBarControl1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.NavBarControl1.SuspendLayout()
|
||||
@ -73,7 +74,7 @@ Partial Class frmInbox
|
||||
Me.NavBarControl1.ActiveGroup = Me.NavBarGroup1
|
||||
Me.NavBarControl1.Controls.Add(Me.NavBarGroupControlContainer1)
|
||||
Me.NavBarControl1.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Me.NavBarControl1.Groups.AddRange(New DevExpress.XtraNavBar.NavBarGroup() {Me.NavBarGroup1})
|
||||
Me.NavBarControl1.Groups.AddRange(New DevExpress.XtraNavBar.NavBarGroup() {Me.NavBarGroup1, Me.NavBarGroup2})
|
||||
Me.NavBarControl1.Location = New System.Drawing.Point(0, 146)
|
||||
Me.NavBarControl1.Name = "NavBarControl1"
|
||||
Me.NavBarControl1.OptionsNavPane.ExpandedWidth = 250
|
||||
@ -99,7 +100,7 @@ Partial Class frmInbox
|
||||
Me.NavBarGroupControlContainer1.Appearance.Options.UseBackColor = True
|
||||
Me.NavBarGroupControlContainer1.Controls.Add(Me.TreeList1)
|
||||
Me.NavBarGroupControlContainer1.Name = "NavBarGroupControlContainer1"
|
||||
Me.NavBarGroupControlContainer1.Size = New System.Drawing.Size(250, 403)
|
||||
Me.NavBarGroupControlContainer1.Size = New System.Drawing.Size(250, 367)
|
||||
Me.NavBarGroupControlContainer1.TabIndex = 0
|
||||
'
|
||||
'TreeList1
|
||||
@ -124,7 +125,7 @@ Partial Class frmInbox
|
||||
Me.TreeList1.OptionsSelection.EnableAppearanceFocusedCell = False
|
||||
Me.TreeList1.OptionsView.FocusRectStyle = DevExpress.XtraTreeList.DrawFocusRectStyle.None
|
||||
Me.TreeList1.OptionsView.ShowIndentAsRowStyle = True
|
||||
Me.TreeList1.Size = New System.Drawing.Size(250, 403)
|
||||
Me.TreeList1.Size = New System.Drawing.Size(250, 367)
|
||||
Me.TreeList1.TabIndex = 0
|
||||
Me.TreeList1.ViewStyle = DevExpress.XtraTreeList.TreeListViewStyle.TreeView
|
||||
'
|
||||
@ -152,7 +153,12 @@ Partial Class frmInbox
|
||||
Me.GridView1.GridControl = Me.GridControl1
|
||||
Me.GridView1.Name = "GridView1"
|
||||
'
|
||||
'frmInbox
|
||||
'NavBarGroup2
|
||||
'
|
||||
Me.NavBarGroup2.Caption = "Analysis"
|
||||
Me.NavBarGroup2.Name = "NavBarGroup2"
|
||||
'
|
||||
'frmHome
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
@ -161,10 +167,10 @@ Partial Class frmInbox
|
||||
Me.Controls.Add(Me.NavBarControl1)
|
||||
Me.Controls.Add(Me.RibbonStatusBar)
|
||||
Me.Controls.Add(Me.RibbonControl)
|
||||
Me.Name = "frmInbox"
|
||||
Me.Name = "frmHome"
|
||||
Me.Ribbon = Me.RibbonControl
|
||||
Me.StatusBar = Me.RibbonStatusBar
|
||||
Me.Text = "frmInbox"
|
||||
Me.Text = "Home"
|
||||
CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.NavBarControl1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.NavBarControl1.ResumeLayout(False)
|
||||
@ -188,4 +194,5 @@ Partial Class frmInbox
|
||||
Friend WithEvents NavBarGroupControlContainer1 As DevExpress.XtraNavBar.NavBarGroupControlContainer
|
||||
Friend WithEvents TreeList1 As DevExpress.XtraTreeList.TreeList
|
||||
Friend WithEvents TreeListColumn1 As DevExpress.XtraTreeList.Columns.TreeListColumn
|
||||
Friend WithEvents NavBarGroup2 As DevExpress.XtraNavBar.NavBarGroup
|
||||
End Class
|
||||
24
EDMI_ClientSuite/frmHome.vb
Normal file
24
EDMI_ClientSuite/frmHome.vb
Normal file
@ -0,0 +1,24 @@
|
||||
Imports DevExpress.XtraGrid
|
||||
Imports DevExpress.XtraTreeList
|
||||
|
||||
Public Class frmHome
|
||||
Private Sub frmInbox_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
Dim oCommonCommands As New ClassCommonCommands(My.LogConfig)
|
||||
|
||||
Dim oGridPatcher As New ClassControlPatcher(Of GridControl)(Me)
|
||||
oGridPatcher.
|
||||
ProcessContainer(AddressOf GridControlDefaults.DefaultGridSettings).
|
||||
ProcessContainer(AddressOf GridControlDefaults.ReadOnlyGridSettings)
|
||||
|
||||
Dim oTreeListPatcher As New ClassControlPatcher(Of TreeList)(Me)
|
||||
oTreeListPatcher.
|
||||
ProcessContainer(AddressOf TreeListDefaults.DefaultTreeListSettings)
|
||||
|
||||
Dim oSQL As String = "SELECT * FROM VWICM_DOC_METADATA_DE;"
|
||||
My.Channel.CreateDatabaseRequest("Doc Metadata", True)
|
||||
Dim oTable = My.Channel.ReturnDatatable(oSQL)
|
||||
My.Channel.CloseDatabaseRequest()
|
||||
|
||||
GridControl1.DataSource = oTable.Table
|
||||
End Sub
|
||||
End Class
|
||||
@ -1,19 +0,0 @@
|
||||
Imports DevExpress.XtraTreeList
|
||||
|
||||
Public Class frmInbox
|
||||
|
||||
|
||||
Private Sub frmInbox_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
Dim oCommonCommands As New ClassCommonCommands(My.LogConfig)
|
||||
Dim oControlPatcher As New ClassControlPatcher(Of TreeList)(Me)
|
||||
oControlPatcher.ProcessContainer(AddressOf TreeListDefaults.DefaultTreeListSettings)
|
||||
|
||||
|
||||
Dim oSQL As String = "SELECT * FROM VWICM_DOC_METADATA_DE;"
|
||||
My.Channel.CreateDatabaseRequest("Doc Metadata", True)
|
||||
Dim oTable = My.Channel.ReturnDatatable(oSQL)
|
||||
My.Channel.CloseDatabaseRequest()
|
||||
|
||||
GridControl1.DataSource = oTable.Table
|
||||
End Sub
|
||||
End Class
|
||||
219
EDMI_ClientSuite/frmMain.Designer.vb
generated
219
EDMI_ClientSuite/frmMain.Designer.vb
generated
@ -19,11 +19,10 @@ Partial Class frmMain
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain))
|
||||
Dim PushTransition1 As DevExpress.Utils.Animation.PushTransition = New DevExpress.Utils.Animation.PushTransition()
|
||||
Me.RibbonControl = New DevExpress.XtraBars.Ribbon.RibbonControl()
|
||||
Me.MainMenu = New DevExpress.XtraBars.Ribbon.ApplicationMenu(Me.components)
|
||||
Me.MainMenu = New DevExpress.XtraBars.Ribbon.ApplicationMenu()
|
||||
Me.BarButtonExit = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.BarButtonUserSettings = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.BarButtonConnectionSettings = New DevExpress.XtraBars.BarButtonItem()
|
||||
@ -31,9 +30,7 @@ Partial Class frmMain
|
||||
Me.LabelCurrentMachine = New DevExpress.XtraBars.BarStaticItem()
|
||||
Me.LabelCurrentVersion = New DevExpress.XtraBars.BarStaticItem()
|
||||
Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.BarButtonDock1 = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.SkinDropDownButtonItem1 = New DevExpress.XtraBars.SkinDropDownButtonItem()
|
||||
Me.BarButtonDashboard = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.BarButtonEntityDesigner = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.BarButtonDeleteControl = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.LabelCurrentLanguage = New DevExpress.XtraBars.BarStaticItem()
|
||||
@ -45,50 +42,38 @@ Partial Class frmMain
|
||||
Me.LabelServiceOffline = New DevExpress.XtraBars.BarStaticItem()
|
||||
Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.RibbonPageStart = New DevExpress.XtraBars.Ribbon.RibbonPage()
|
||||
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
|
||||
Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
|
||||
Me.RibbonPageView = New DevExpress.XtraBars.Ribbon.RibbonPage()
|
||||
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
|
||||
Me.RibbonPageWorkflow = New DevExpress.XtraBars.Ribbon.RibbonPage()
|
||||
Me.RibbonPageGroup4 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
|
||||
Me.RibbonPageAdmin = New DevExpress.XtraBars.Ribbon.RibbonPage()
|
||||
Me.RibbonPageGroup6 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
|
||||
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
|
||||
Me.RibbonStatusBar = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
|
||||
Me.DocumentManager = New DevExpress.XtraBars.Docking2010.DocumentManager(Me.components)
|
||||
Me.TabbedView1 = New DevExpress.XtraBars.Docking2010.Views.Tabbed.TabbedView(Me.components)
|
||||
Me.DockManager = New DevExpress.XtraBars.Docking.DockManager(Me.components)
|
||||
Me.panelContainer1 = New DevExpress.XtraBars.Docking.DockPanel()
|
||||
Me.DockPanelGlobix = New DevExpress.XtraBars.Docking.DockPanel()
|
||||
Me.DockPanel1_Container = New DevExpress.XtraBars.Docking.ControlContainer()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.DockPanelProcessManager = New DevExpress.XtraBars.Docking.DockPanel()
|
||||
Me.DockPanel2_Container = New DevExpress.XtraBars.Docking.ControlContainer()
|
||||
Me.ProcessManagerWidget = New DigitalData.GUIs.ClientSuite.ProcessManagerWidget()
|
||||
Me.BarButtonInbox = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.DocumentManager = New DevExpress.XtraBars.Docking2010.DocumentManager()
|
||||
Me.TabbedView1 = New DevExpress.XtraBars.Docking2010.Views.Tabbed.TabbedView()
|
||||
Me.DockManager = New DevExpress.XtraBars.Docking.DockManager()
|
||||
Me.MainNav = New DevExpress.XtraBars.Navigation.OfficeNavigationBar()
|
||||
Me.NavbarItemHome = New DevExpress.XtraBars.Navigation.NavigationBarItem()
|
||||
Me.NavbarItemSearch = New DevExpress.XtraBars.Navigation.NavigationBarItem()
|
||||
Me.NavbarItemWorkflow = New DevExpress.XtraBars.Navigation.NavigationBarItem()
|
||||
CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.MainMenu, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DocumentManager, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.TabbedView1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.DockManager, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.panelContainer1.SuspendLayout()
|
||||
Me.DockPanelGlobix.SuspendLayout()
|
||||
Me.DockPanel1_Container.SuspendLayout()
|
||||
Me.DockPanelProcessManager.SuspendLayout()
|
||||
Me.DockPanel2_Container.SuspendLayout()
|
||||
CType(Me.MainNav, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'RibbonControl
|
||||
'
|
||||
Me.RibbonControl.ApplicationButtonDropDownControl = Me.MainMenu
|
||||
Me.RibbonControl.ExpandCollapseItem.Id = 0
|
||||
Me.RibbonControl.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl.ExpandCollapseItem, Me.BarButtonExit, Me.BarButtonUserSettings, Me.LabelCurrentUser, Me.LabelCurrentMachine, Me.LabelCurrentVersion, Me.BarButtonItem1, Me.BarButtonDock1, Me.SkinDropDownButtonItem1, Me.BarButtonDashboard, Me.BarButtonEntityDesigner, Me.BarButtonDeleteControl, Me.BarButtonConnectionSettings, Me.LabelCurrentLanguage, Me.BarButtonItem2, Me.BarWorkspaceMenuItem1, Me.LabelServiceOnline, Me.BarButtonUserManager, Me.LabelServiceOffline, Me.BarButtonItem3, Me.BarButtonInbox})
|
||||
Me.RibbonControl.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl.ExpandCollapseItem, Me.BarButtonExit, Me.BarButtonUserSettings, Me.LabelCurrentUser, Me.LabelCurrentMachine, Me.LabelCurrentVersion, Me.BarButtonItem1, Me.SkinDropDownButtonItem1, Me.BarButtonEntityDesigner, Me.BarButtonDeleteControl, Me.BarButtonConnectionSettings, Me.LabelCurrentLanguage, Me.BarButtonItem2, Me.BarWorkspaceMenuItem1, Me.LabelServiceOnline, Me.BarButtonUserManager, Me.LabelServiceOffline, Me.BarButtonItem3})
|
||||
Me.RibbonControl.Location = New System.Drawing.Point(0, 0)
|
||||
Me.RibbonControl.MaxItemId = 23
|
||||
Me.RibbonControl.MdiMergeStyle = DevExpress.XtraBars.Ribbon.RibbonMdiMergeStyle.Always
|
||||
Me.RibbonControl.Name = "RibbonControl"
|
||||
Me.RibbonControl.PageHeaderItemLinks.Add(Me.SkinDropDownButtonItem1)
|
||||
Me.RibbonControl.PageHeaderItemLinks.Add(Me.BarWorkspaceMenuItem1)
|
||||
Me.RibbonControl.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPageStart, Me.RibbonPageView, Me.RibbonPageWorkflow, Me.RibbonPageAdmin})
|
||||
Me.RibbonControl.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPageStart, Me.RibbonPageAdmin})
|
||||
Me.RibbonControl.Size = New System.Drawing.Size(1139, 146)
|
||||
Me.RibbonControl.StatusBar = Me.RibbonStatusBar
|
||||
'
|
||||
@ -154,25 +139,11 @@ Partial Class frmMain
|
||||
Me.BarButtonItem1.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.LargeImage"), System.Drawing.Image)
|
||||
Me.BarButtonItem1.Name = "BarButtonItem1"
|
||||
'
|
||||
'BarButtonDock1
|
||||
'
|
||||
Me.BarButtonDock1.Caption = "Show Panel"
|
||||
Me.BarButtonDock1.Id = 9
|
||||
Me.BarButtonDock1.Name = "BarButtonDock1"
|
||||
'
|
||||
'SkinDropDownButtonItem1
|
||||
'
|
||||
Me.SkinDropDownButtonItem1.Id = 10
|
||||
Me.SkinDropDownButtonItem1.Name = "SkinDropDownButtonItem1"
|
||||
'
|
||||
'BarButtonDashboard
|
||||
'
|
||||
Me.BarButtonDashboard.Caption = "Dashboard"
|
||||
Me.BarButtonDashboard.Id = 11
|
||||
Me.BarButtonDashboard.ImageOptions.Image = CType(resources.GetObject("BarButtonDashboard.ImageOptions.Image"), System.Drawing.Image)
|
||||
Me.BarButtonDashboard.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonDashboard.ImageOptions.LargeImage"), System.Drawing.Image)
|
||||
Me.BarButtonDashboard.Name = "BarButtonDashboard"
|
||||
'
|
||||
'BarButtonEntityDesigner
|
||||
'
|
||||
Me.BarButtonEntityDesigner.Caption = "Entitäten Designer"
|
||||
@ -246,17 +217,10 @@ Partial Class frmMain
|
||||
'
|
||||
'RibbonPageStart
|
||||
'
|
||||
Me.RibbonPageStart.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup3})
|
||||
Me.RibbonPageStart.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup3})
|
||||
Me.RibbonPageStart.Name = "RibbonPageStart"
|
||||
Me.RibbonPageStart.Text = "Start"
|
||||
'
|
||||
'RibbonPageGroup1
|
||||
'
|
||||
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonDashboard)
|
||||
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonInbox)
|
||||
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
|
||||
Me.RibbonPageGroup1.Text = "RibbonPageGroup1"
|
||||
'
|
||||
'RibbonPageGroup3
|
||||
'
|
||||
Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem1)
|
||||
@ -265,33 +229,9 @@ Partial Class frmMain
|
||||
Me.RibbonPageGroup3.Name = "RibbonPageGroup3"
|
||||
Me.RibbonPageGroup3.Text = "DEBUG"
|
||||
'
|
||||
'RibbonPageView
|
||||
'
|
||||
Me.RibbonPageView.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup2})
|
||||
Me.RibbonPageView.Name = "RibbonPageView"
|
||||
Me.RibbonPageView.Text = "View"
|
||||
'
|
||||
'RibbonPageGroup2
|
||||
'
|
||||
Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonDock1)
|
||||
Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
|
||||
Me.RibbonPageGroup2.Text = "RibbonPageGroup2"
|
||||
'
|
||||
'RibbonPageWorkflow
|
||||
'
|
||||
Me.RibbonPageWorkflow.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup4})
|
||||
Me.RibbonPageWorkflow.Name = "RibbonPageWorkflow"
|
||||
Me.RibbonPageWorkflow.Text = "Workflow"
|
||||
'
|
||||
'RibbonPageGroup4
|
||||
'
|
||||
Me.RibbonPageGroup4.ItemLinks.Add(Me.BarButtonEntityDesigner)
|
||||
Me.RibbonPageGroup4.Name = "RibbonPageGroup4"
|
||||
Me.RibbonPageGroup4.Text = "RibbonPageGroup4"
|
||||
'
|
||||
'RibbonPageAdmin
|
||||
'
|
||||
Me.RibbonPageAdmin.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup6})
|
||||
Me.RibbonPageAdmin.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup6, Me.RibbonPageGroup1})
|
||||
Me.RibbonPageAdmin.Name = "RibbonPageAdmin"
|
||||
Me.RibbonPageAdmin.Text = "Administration"
|
||||
'
|
||||
@ -299,7 +239,13 @@ Partial Class frmMain
|
||||
'
|
||||
Me.RibbonPageGroup6.ItemLinks.Add(Me.BarButtonUserManager)
|
||||
Me.RibbonPageGroup6.Name = "RibbonPageGroup6"
|
||||
Me.RibbonPageGroup6.Text = "RibbonPageGroup6"
|
||||
Me.RibbonPageGroup6.Text = "Benutzer und Gruppen"
|
||||
'
|
||||
'RibbonPageGroup1
|
||||
'
|
||||
Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonEntityDesigner)
|
||||
Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
|
||||
Me.RibbonPageGroup1.Text = "Inhalte"
|
||||
'
|
||||
'RibbonStatusBar
|
||||
'
|
||||
@ -323,103 +269,46 @@ Partial Class frmMain
|
||||
'
|
||||
'TabbedView1
|
||||
'
|
||||
Me.TabbedView1.DocumentProperties.AllowPin = True
|
||||
Me.TabbedView1.EnableFreeLayoutMode = DevExpress.Utils.DefaultBoolean.[True]
|
||||
'
|
||||
'DockManager
|
||||
'
|
||||
Me.DockManager.DockingOptions.HideImmediatelyOnAutoHide = True
|
||||
Me.DockManager.Form = Me
|
||||
Me.DockManager.RootPanels.AddRange(New DevExpress.XtraBars.Docking.DockPanel() {Me.panelContainer1})
|
||||
Me.DockManager.TopZIndexControls.AddRange(New String() {"DevExpress.XtraBars.BarDockControl", "DevExpress.XtraBars.StandaloneBarDockControl", "System.Windows.Forms.StatusBar", "System.Windows.Forms.MenuStrip", "System.Windows.Forms.StatusStrip", "DevExpress.XtraBars.Ribbon.RibbonStatusBar", "DevExpress.XtraBars.Ribbon.RibbonControl", "DevExpress.XtraBars.Navigation.OfficeNavigationBar", "DevExpress.XtraBars.Navigation.TileNavPane", "DevExpress.XtraBars.TabFormControl", "DevExpress.XtraBars.FluentDesignSystem.FluentDesignFormControl"})
|
||||
'
|
||||
'panelContainer1
|
||||
'MainNav
|
||||
'
|
||||
Me.panelContainer1.Controls.Add(Me.DockPanelGlobix)
|
||||
Me.panelContainer1.Controls.Add(Me.DockPanelProcessManager)
|
||||
Me.panelContainer1.Dock = DevExpress.XtraBars.Docking.DockingStyle.Right
|
||||
Me.panelContainer1.ID = New System.Guid("a0849884-28cd-486b-bc02-0c28fd88a006")
|
||||
Me.panelContainer1.Location = New System.Drawing.Point(793, 146)
|
||||
Me.panelContainer1.Name = "panelContainer1"
|
||||
Me.panelContainer1.OriginalSize = New System.Drawing.Size(346, 200)
|
||||
Me.panelContainer1.SavedSizeFactor = 0R
|
||||
Me.panelContainer1.Size = New System.Drawing.Size(346, 410)
|
||||
Me.panelContainer1.Text = "panelContainer1"
|
||||
Me.MainNav.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.MainNav.Items.AddRange(New DevExpress.XtraBars.Navigation.NavigationBarItem() {Me.NavbarItemHome, Me.NavbarItemSearch, Me.NavbarItemWorkflow})
|
||||
Me.MainNav.Location = New System.Drawing.Point(0, 511)
|
||||
Me.MainNav.Name = "MainNav"
|
||||
Me.MainNav.Size = New System.Drawing.Size(1139, 45)
|
||||
Me.MainNav.TabIndex = 4
|
||||
Me.MainNav.Text = "OfficeNavigationBar1"
|
||||
'
|
||||
'DockPanelGlobix
|
||||
'NavbarItemHome
|
||||
'
|
||||
Me.DockPanelGlobix.Controls.Add(Me.DockPanel1_Container)
|
||||
Me.DockPanelGlobix.Dock = DevExpress.XtraBars.Docking.DockingStyle.Fill
|
||||
Me.DockPanelGlobix.ID = New System.Guid("804984d7-b275-4115-ab10-a8322f0a8a7e")
|
||||
Me.DockPanelGlobix.Location = New System.Drawing.Point(0, 0)
|
||||
Me.DockPanelGlobix.Name = "DockPanelGlobix"
|
||||
Me.DockPanelGlobix.Options.ShowCloseButton = False
|
||||
Me.DockPanelGlobix.OriginalSize = New System.Drawing.Size(346, 202)
|
||||
Me.DockPanelGlobix.SavedSizeFactor = 0R
|
||||
Me.DockPanelGlobix.Size = New System.Drawing.Size(346, 206)
|
||||
Me.DockPanelGlobix.Text = "GLOBIX"
|
||||
Me.NavbarItemHome.Name = "NavbarItemHome"
|
||||
Me.NavbarItemHome.Text = "Home"
|
||||
'
|
||||
'DockPanel1_Container
|
||||
'NavbarItemSearch
|
||||
'
|
||||
Me.DockPanel1_Container.Controls.Add(Me.Label1)
|
||||
Me.DockPanel1_Container.Location = New System.Drawing.Point(5, 38)
|
||||
Me.DockPanel1_Container.Name = "DockPanel1_Container"
|
||||
Me.DockPanel1_Container.Size = New System.Drawing.Size(337, 163)
|
||||
Me.DockPanel1_Container.TabIndex = 0
|
||||
Me.NavbarItemSearch.Name = "NavbarItemSearch"
|
||||
Me.NavbarItemSearch.Text = "Search"
|
||||
'
|
||||
'Label1
|
||||
'NavbarItemWorkflow
|
||||
'
|
||||
Me.Label1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.Label1.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(337, 163)
|
||||
Me.Label1.TabIndex = 0
|
||||
Me.Label1.Text = "DROP FILES HERE"
|
||||
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
|
||||
'
|
||||
'DockPanelProcessManager
|
||||
'
|
||||
Me.DockPanelProcessManager.Controls.Add(Me.DockPanel2_Container)
|
||||
Me.DockPanelProcessManager.Dock = DevExpress.XtraBars.Docking.DockingStyle.Fill
|
||||
Me.DockPanelProcessManager.ID = New System.Guid("a84f02de-66af-4674-9260-85bec9f0825b")
|
||||
Me.DockPanelProcessManager.Location = New System.Drawing.Point(0, 206)
|
||||
Me.DockPanelProcessManager.Name = "DockPanelProcessManager"
|
||||
Me.DockPanelProcessManager.Options.ShowCloseButton = False
|
||||
Me.DockPanelProcessManager.OriginalSize = New System.Drawing.Size(346, 201)
|
||||
Me.DockPanelProcessManager.SavedSizeFactor = 0R
|
||||
Me.DockPanelProcessManager.Size = New System.Drawing.Size(346, 204)
|
||||
Me.DockPanelProcessManager.Text = "Process Manager"
|
||||
'
|
||||
'DockPanel2_Container
|
||||
'
|
||||
Me.DockPanel2_Container.Controls.Add(Me.ProcessManagerWidget)
|
||||
Me.DockPanel2_Container.Location = New System.Drawing.Point(5, 38)
|
||||
Me.DockPanel2_Container.Name = "DockPanel2_Container"
|
||||
Me.DockPanel2_Container.Size = New System.Drawing.Size(337, 162)
|
||||
Me.DockPanel2_Container.TabIndex = 0
|
||||
'
|
||||
'ProcessManagerWidget
|
||||
'
|
||||
Me.ProcessManagerWidget.DataSource = Nothing
|
||||
Me.ProcessManagerWidget.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.ProcessManagerWidget.Location = New System.Drawing.Point(0, 0)
|
||||
Me.ProcessManagerWidget.Name = "ProcessManagerWidget"
|
||||
Me.ProcessManagerWidget.Size = New System.Drawing.Size(337, 162)
|
||||
Me.ProcessManagerWidget.TabIndex = 0
|
||||
'
|
||||
'BarButtonInbox
|
||||
'
|
||||
Me.BarButtonInbox.Caption = "Inbox"
|
||||
Me.BarButtonInbox.Id = 22
|
||||
Me.BarButtonInbox.ImageOptions.Image = CType(resources.GetObject("BarButtonItem4.ImageOptions.Image"), System.Drawing.Image)
|
||||
Me.BarButtonInbox.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.LargeImage"), System.Drawing.Image)
|
||||
Me.BarButtonInbox.Name = "BarButtonInbox"
|
||||
Me.NavbarItemWorkflow.Name = "NavbarItemWorkflow"
|
||||
Me.NavbarItemWorkflow.Text = "Workflow"
|
||||
'
|
||||
'frmMain
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(1139, 577)
|
||||
Me.Controls.Add(Me.panelContainer1)
|
||||
Me.Controls.Add(Me.MainNav)
|
||||
Me.Controls.Add(Me.RibbonStatusBar)
|
||||
Me.Controls.Add(Me.RibbonControl)
|
||||
Me.IsMdiContainer = True
|
||||
@ -432,11 +321,7 @@ Partial Class frmMain
|
||||
CType(Me.DocumentManager, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.TabbedView1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.DockManager, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.panelContainer1.ResumeLayout(False)
|
||||
Me.DockPanelGlobix.ResumeLayout(False)
|
||||
Me.DockPanel1_Container.ResumeLayout(False)
|
||||
Me.DockPanelProcessManager.ResumeLayout(False)
|
||||
Me.DockPanel2_Container.ResumeLayout(False)
|
||||
CType(Me.MainNav, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
@ -444,7 +329,6 @@ Partial Class frmMain
|
||||
|
||||
Friend WithEvents RibbonControl As DevExpress.XtraBars.Ribbon.RibbonControl
|
||||
Friend WithEvents RibbonPageStart As DevExpress.XtraBars.Ribbon.RibbonPage
|
||||
Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
|
||||
Friend WithEvents RibbonStatusBar As DevExpress.XtraBars.Ribbon.RibbonStatusBar
|
||||
Friend WithEvents MainMenu As DevExpress.XtraBars.Ribbon.ApplicationMenu
|
||||
Friend WithEvents BarButtonExit As DevExpress.XtraBars.BarButtonItem
|
||||
@ -453,25 +337,12 @@ Partial Class frmMain
|
||||
Friend WithEvents LabelCurrentMachine As DevExpress.XtraBars.BarStaticItem
|
||||
Friend WithEvents LabelCurrentVersion As DevExpress.XtraBars.BarStaticItem
|
||||
Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents BarButtonDock1 As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents RibbonPageView As DevExpress.XtraBars.Ribbon.RibbonPage
|
||||
Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
|
||||
Friend WithEvents NativeMdiView1 As DevExpress.XtraBars.Docking2010.Views.NativeMdi.NativeMdiView
|
||||
Friend WithEvents DocumentManager As DevExpress.XtraBars.Docking2010.DocumentManager
|
||||
Friend WithEvents TabbedView1 As DevExpress.XtraBars.Docking2010.Views.Tabbed.TabbedView
|
||||
Friend WithEvents DockManager As DevExpress.XtraBars.Docking.DockManager
|
||||
Friend WithEvents DockPanelGlobix As DevExpress.XtraBars.Docking.DockPanel
|
||||
Friend WithEvents DockPanel1_Container As DevExpress.XtraBars.Docking.ControlContainer
|
||||
Friend WithEvents Label1 As Label
|
||||
Friend WithEvents DockPanelProcessManager As DevExpress.XtraBars.Docking.DockPanel
|
||||
Friend WithEvents DockPanel2_Container As DevExpress.XtraBars.Docking.ControlContainer
|
||||
Friend WithEvents panelContainer1 As DevExpress.XtraBars.Docking.DockPanel
|
||||
Friend WithEvents SkinDropDownButtonItem1 As DevExpress.XtraBars.SkinDropDownButtonItem
|
||||
Friend WithEvents BarButtonDashboard As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents RibbonPageGroup3 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
|
||||
Friend WithEvents ProcessManagerWidget As ProcessManagerWidget
|
||||
Friend WithEvents RibbonPageWorkflow As DevExpress.XtraBars.Ribbon.RibbonPage
|
||||
Friend WithEvents RibbonPageGroup4 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
|
||||
Friend WithEvents BarButtonEntityDesigner As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents BarButtonDeleteControl As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents BarButtonConnectionSettings As DevExpress.XtraBars.BarButtonItem
|
||||
@ -485,5 +356,9 @@ Partial Class frmMain
|
||||
Friend WithEvents RibbonPageGroup6 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
|
||||
Friend WithEvents LabelServiceOffline As DevExpress.XtraBars.BarStaticItem
|
||||
Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents BarButtonInbox As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents MainNav As DevExpress.XtraBars.Navigation.OfficeNavigationBar
|
||||
Friend WithEvents NavbarItemHome As DevExpress.XtraBars.Navigation.NavigationBarItem
|
||||
Friend WithEvents NavbarItemSearch As DevExpress.XtraBars.Navigation.NavigationBarItem
|
||||
Friend WithEvents NavbarItemWorkflow As DevExpress.XtraBars.Navigation.NavigationBarItem
|
||||
Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
|
||||
End Class
|
||||
|
||||
@ -258,28 +258,6 @@
|
||||
6rZH6NG6Ev4hdBEzYOFbB1GRcZPAQzo2yVt0MLNPoaESGiqhoRIaKqEhSCnZTSZndNB7gO0ANATe5J/r
|
||||
hfs556WUMvqxn7U7/0ND8ESg1kolZAIoJiEVQPUScgHUJjFD4hMBVJPwf4eH2aAheCJwws+v0D00BGh8
|
||||
q7ZZdA8NQQiEQAiEQAiEQAig6U36+Q0aKqGhEhrqsGEFMnodJsvjoggAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="BarButtonDashboard.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
|
||||
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAEhvbWU7HnRkOAAAANRJREFUOE+d
|
||||
kT0OgkAQhbG18WQmXsA7AI0dCWZbo7fRxMJGUC9j/MN2nDdhyC6wsLH4YHg770vIRsYYHxNmw+SazdcH
|
||||
AvoNmqEFylsGy0AkoQK7fGTKes65nI0J2uUpM2McCb+bzlhZzyApVmYnEitvBENlRSSMI8EjpKx0JAhx
|
||||
VQjAUFmBRPczBEtmXwe6pAtt7PMTs9AAv+EsVNeEHkUqfC5JnwAd5xachTeX7udUeJW9ApkjIhLsEPP3
|
||||
FtOzTIXqGncE2vMKPAQLxvAKgukI/oOiH3DIH9LquF+BAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="BarButtonDashboard.ImageOptions.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
|
||||
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAEhvbWU7HnRkOAAAATpJREFUWEft
|
||||
ks0NwjAMRkHMxQhw7wIMwAhVJ+BH4oSEgBlgAObhwhUR7KqunMRO2zSUSw9Pbb7a+R4SE2PMX6lfiqKI
|
||||
YVohfQuSQmAGnIED0FmirwCWXwFT0Vmij4BbLkos8rvhUE7ECmjlRC3xCwGpfAecnKyUgNJXSgGtHH8t
|
||||
fvMklvltziUgs+7sIhAq5zNBCTjzO1sLSOVbQPrHByXg3ZpvI9ClnFAl4GnNNgnElBOiBGDthgT6lBON
|
||||
EppAinIiKCEJpCwnVAlJ4MKGkL7lhCSxlwRWwIcNpSgnUILufQOZJICgxAbAQX4BQZc0oe0egQzPmgAf
|
||||
drMyfz7WQXDG2al3+dkT4NCwlEulHJxx9xAt9wJkFBgFQgJtcPcQLfcCpLpI/BbLKBAjkBy3B/GCoRHD
|
||||
IRHD4TCTL7ccmUyvvNxMAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="BarButtonEntityDesigner.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
@ -425,26 +403,6 @@
|
||||
ldBSCS1BCKHsZDJGA3s3sDsALYFtssfnwfcxxmdKabRle9ZqvYSWoEcg50wlZAIIk5AKIK2EXACZJR6Q
|
||||
OEUAqRL2bvNjVmgJegTecLdP6D20BNh4VOaz6D20BD8ncLnedrGMT8An4BPwCfzHBL6JC3QLHEl7foWW
|
||||
SmiphJZKaKmjDC/fWMVvGNRzeQAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<data name="BarButtonItem4.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAJHRFWHRUaXRsZQBDb21tZW50
|
||||
O1Rvb2x0aXA7SGludDtUaXA7Q2xvdWTTwdvJAAAAYUlEQVQ4T2P4//8/RZjBt2lHAxD/JxM3gAzAJkE0
|
||||
Ho4GwEIXHxsZU98AUvEwMYCypAwNWTCNjIFivkgKkTFIHK4OrBlZAIah4uiGgDWDMEwdiiZkDFMI1YSi
|
||||
GYQh6v4zAAANA4rK4wvslQAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<data name="BarButtonItem4.ImageOptions.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
|
||||
YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAJHRFWHRUaXRsZQBDb21tZW50
|
||||
O1Rvb2x0aXA7SGludDtUaXA7Q2xvdWTTwdvJAAAA00lEQVRYR+2WwQ3CMAxFe+paTNClOMEN1mAClior
|
||||
GDtKJRP/CjcijpByeFH069ovvTQTEXUFhpHAMBIYRgLDSNKynJ8zc2dWhhrzYmTWrAVu+WEkFy0QcfKS
|
||||
VQugguYMgSHgFXgwp4zsa3ODV0AaSY0g+9rc8DcCRz/1Xm7wCjRjCAwBLdD9d9zjQnLVAtuVTK5LqPiX
|
||||
wCtZDQuDBpRIHXo/zU5LDbnJN4mP4agPDD2oxnsS5uSoDwy9qOalhBkuoB4wPIIasEnA4QJ6H4aRwDAO
|
||||
mt5+ylxK+IuO/gAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="DocumentManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
|
||||
@ -6,6 +6,8 @@ Imports DigitalData.Modules.Logging
|
||||
Imports DigitalData.Modules.License
|
||||
Imports DevExpress.LookAndFeel
|
||||
Imports DevExpress.XtraBars.Ribbon
|
||||
Imports DevExpress.XtraBars.Docking
|
||||
Imports DevExpress.XtraGrid
|
||||
|
||||
Public Class frmMain
|
||||
Private _Timer As ClassTimer
|
||||
@ -41,37 +43,24 @@ Public Class frmMain
|
||||
' Initialize Main Timer
|
||||
_Timer = New ClassTimer(My.LogConfig, Me, My.SysConfig.HeartbeatInterval)
|
||||
AddHandler _Timer.OnlineChanged, AddressOf HandleOnlineChanged
|
||||
|
||||
' Show Service Status Label
|
||||
SetOnlineLabel()
|
||||
|
||||
' Apply Selected Skin Style
|
||||
UserLookAndFeel.Default.SetSkinStyle(My.UIConfig.SkinName)
|
||||
|
||||
' Show User Info
|
||||
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)
|
||||
|
||||
ProcessManagerWidget.DataSource = oDataTable
|
||||
AddHandler ProcessManagerWidget.RowDoubleClicked, Sub(RowView As DataRowView)
|
||||
MsgBox($"Clicked on Document {RowView.Row.Item("DocName")}")
|
||||
End Sub
|
||||
|
||||
' Load and Save Layout
|
||||
AddHandler UserLookAndFeel.Default.StyleChanged, AddressOf frmMain_StyleChanged
|
||||
|
||||
LoadLayout()
|
||||
|
||||
' We're done loading now
|
||||
_Loading = False
|
||||
Catch ex As Exception
|
||||
_ErrorHandler.ShowErrorMessage(ex)
|
||||
@ -95,11 +84,11 @@ Public Class frmMain
|
||||
Dim oLayoutPathForDocumentManager As String = GetLayoutPath(GroupName.LayoutMain, LayoutComponent.DocumentManager)
|
||||
|
||||
If File.Exists(oLayoutPathForDockManager) Then
|
||||
DockManager.RestoreLayoutFromXml(oLayoutPathForDockManager)
|
||||
'DockManager.RestoreLayoutFromXml(oLayoutPathForDockManager)
|
||||
End If
|
||||
|
||||
If File.Exists(oLayoutPathForDocumentManager) Then
|
||||
DocumentManager.View.RestoreLayoutFromXml(oLayoutPathForDocumentManager)
|
||||
'DocumentManager.View.RestoreLayoutFromXml(oLayoutPathForDocumentManager)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
_ErrorHandler.ShowErrorMessage(ex)
|
||||
@ -115,8 +104,8 @@ Public Class frmMain
|
||||
Directory.CreateDirectory(oDirectory)
|
||||
End If
|
||||
|
||||
DockManager.SaveLayoutToXml(oLayoutPathForDockManager)
|
||||
DocumentManager.View.SaveLayoutToXml(oLayoutPathForDocumentManager)
|
||||
'DockManager.SaveLayoutToXml(oLayoutPathForDockManager)
|
||||
'DocumentManager.View.SaveLayoutToXml(oLayoutPathForDocumentManager)
|
||||
Catch ex As Exception
|
||||
_ErrorHandler.ShowErrorMessage(ex)
|
||||
End Try
|
||||
@ -128,11 +117,6 @@ Public Class frmMain
|
||||
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()
|
||||
@ -200,10 +184,54 @@ Public Class frmMain
|
||||
frm.Show()
|
||||
End Sub
|
||||
|
||||
Private Sub BarButtonInbox_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonInbox.ItemClick
|
||||
Dim oForm As New frmInbox With {
|
||||
Private Sub BarButtonInbox_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs)
|
||||
Dim oForm As New frmHome With {
|
||||
.MdiParent = DocumentManager.MdiParent
|
||||
}
|
||||
oForm.Show()
|
||||
End Sub
|
||||
|
||||
Private Sub MainNav_SelectedItemChanging(sender As Object, e As DevExpress.XtraBars.Navigation.SelectedItemChangingEventArgs) Handles MainNav.SelectedItemChanging
|
||||
Select Case e.Item.Name
|
||||
Case NavbarItemHome.Name
|
||||
Dim oForm As New frmHome()
|
||||
oForm.MdiParent = DocumentManager.MdiParent
|
||||
oForm.Show()
|
||||
Case NavbarItemSearch.Name
|
||||
Dim oForm As New frmSearch()
|
||||
oForm.MdiParent = DocumentManager.MdiParent
|
||||
oForm.Show()
|
||||
|
||||
Dim oSearchPanel = DockManager.AddPanel(DockingStyle.Bottom)
|
||||
oSearchPanel.Options.ShowCloseButton = False
|
||||
oSearchPanel.Options.ShowAutoHideButton = False
|
||||
oSearchPanel.Text = "Search " & New Random().Next()
|
||||
oSearchPanel.Controls.Add(New GridControl With {.Dock = DockStyle.Fill})
|
||||
|
||||
Dim oSearchPanel2 = DockManager.AddPanel(DockingStyle.Bottom)
|
||||
oSearchPanel2.Options.ShowCloseButton = False
|
||||
oSearchPanel2.Options.ShowAutoHideButton = False
|
||||
oSearchPanel2.Text = "Search " & New Random().Next()
|
||||
oSearchPanel2.Controls.Add(New GridControl With {.Dock = DockStyle.Fill})
|
||||
|
||||
oSearchPanel2.DockTo(oSearchPanel)
|
||||
|
||||
AddHandler oForm.FormClosed, Sub()
|
||||
oSearchPanel.Close()
|
||||
oSearchPanel2.Close()
|
||||
End Sub
|
||||
|
||||
'AddHandler oForm.Deactivate, Sub()
|
||||
' oSearchPanel.Visibility = DockVisibility.Hidden
|
||||
' oSearchPanel2.Visibility = DockVisibility.Hidden
|
||||
' End Sub
|
||||
|
||||
'AddHandler oForm.Activated, Sub()
|
||||
' oSearchPanel2.Visibility = DockVisibility.Visible
|
||||
' oSearchPanel.Visibility = DockVisibility.Visible
|
||||
' End Sub
|
||||
End Select
|
||||
|
||||
e.Cancel = True
|
||||
End Sub
|
||||
End Class
|
||||
384
EDMI_ClientSuite/frmSearch.Designer.vb
generated
Normal file
384
EDMI_ClientSuite/frmSearch.Designer.vb
generated
Normal file
@ -0,0 +1,384 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmSearch
|
||||
Inherits DevExpress.XtraBars.Ribbon.RibbonForm
|
||||
|
||||
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Wird vom Windows Form-Designer benötigt.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSearch))
|
||||
Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
|
||||
Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
|
||||
Me.RibbonPageCategory1 = New DevExpress.XtraBars.Ribbon.RibbonPageCategory()
|
||||
Me.RibbonPage3 = New DevExpress.XtraBars.Ribbon.RibbonPage()
|
||||
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
|
||||
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
|
||||
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
|
||||
Me.NavBarControl1 = New DevExpress.XtraNavBar.NavBarControl()
|
||||
Me.NavBarGroup1 = New DevExpress.XtraNavBar.NavBarGroup()
|
||||
Me.NavBarGroupControlContainer1 = New DevExpress.XtraNavBar.NavBarGroupControlContainer()
|
||||
Me.ImageListBoxControl1 = New DevExpress.XtraEditors.ImageListBoxControl()
|
||||
Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl()
|
||||
Me.textEdit1 = New DevExpress.XtraEditors.TextEdit()
|
||||
Me.textEdit2 = New DevExpress.XtraEditors.TextEdit()
|
||||
Me.textEdit3 = New DevExpress.XtraEditors.TextEdit()
|
||||
Me.textEdit4 = New DevExpress.XtraEditors.TextEdit()
|
||||
Me.textEdit5 = New DevExpress.XtraEditors.TextEdit()
|
||||
Me.LayoutControlGroup1 = New DevExpress.XtraLayout.LayoutControlGroup()
|
||||
Me.LayoutControlGroup4 = New DevExpress.XtraLayout.LayoutControlGroup()
|
||||
Me.layoutControlItem1 = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
Me.layoutControlItem2 = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
Me.layoutControlItem3 = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
Me.layoutControlItem4 = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
Me.layoutControlItem5 = New DevExpress.XtraLayout.LayoutControlItem()
|
||||
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.NavBarControl1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.NavBarControl1.SuspendLayout()
|
||||
Me.NavBarGroupControlContainer1.SuspendLayout()
|
||||
CType(Me.ImageListBoxControl1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.LayoutControl1.SuspendLayout()
|
||||
CType(Me.textEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.textEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.textEdit3.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.textEdit4.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.textEdit5.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.LayoutControlGroup4, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.layoutControlItem1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.layoutControlItem2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.layoutControlItem3, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.layoutControlItem4, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.layoutControlItem5, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'RibbonControl1
|
||||
'
|
||||
Me.RibbonControl1.ExpandCollapseItem.Id = 0
|
||||
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.BarButtonItem1, Me.BarButtonItem2})
|
||||
Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.RibbonControl1.MaxItemId = 3
|
||||
Me.RibbonControl1.Name = "RibbonControl1"
|
||||
Me.RibbonControl1.PageCategories.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageCategory() {Me.RibbonPageCategory1})
|
||||
Me.RibbonControl1.Size = New System.Drawing.Size(1220, 146)
|
||||
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
|
||||
'
|
||||
'BarButtonItem1
|
||||
'
|
||||
Me.BarButtonItem1.Caption = "Execute Search"
|
||||
Me.BarButtonItem1.Id = 1
|
||||
Me.BarButtonItem1.ImageOptions.Image = CType(resources.GetObject("BarButtonItem1.ImageOptions.Image"), System.Drawing.Image)
|
||||
Me.BarButtonItem1.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.LargeImage"), System.Drawing.Image)
|
||||
Me.BarButtonItem1.Name = "BarButtonItem1"
|
||||
'
|
||||
'BarButtonItem2
|
||||
'
|
||||
Me.BarButtonItem2.Caption = "Save Search"
|
||||
Me.BarButtonItem2.Id = 2
|
||||
Me.BarButtonItem2.ImageOptions.Image = CType(resources.GetObject("BarButtonItem2.ImageOptions.Image"), System.Drawing.Image)
|
||||
Me.BarButtonItem2.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.LargeImage"), System.Drawing.Image)
|
||||
Me.BarButtonItem2.Name = "BarButtonItem2"
|
||||
'
|
||||
'RibbonPageCategory1
|
||||
'
|
||||
Me.RibbonPageCategory1.Name = "RibbonPageCategory1"
|
||||
Me.RibbonPageCategory1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage3})
|
||||
Me.RibbonPageCategory1.Text = "RibbonPageCategory1"
|
||||
'
|
||||
'RibbonPage3
|
||||
'
|
||||
Me.RibbonPage3.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup2})
|
||||
Me.RibbonPage3.Name = "RibbonPage3"
|
||||
Me.RibbonPage3.Text = "RibbonPage3"
|
||||
'
|
||||
'RibbonPageGroup2
|
||||
'
|
||||
Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem1)
|
||||
Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem2)
|
||||
Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
|
||||
Me.RibbonPageGroup2.Text = "RibbonPageGroup2"
|
||||
'
|
||||
'RibbonStatusBar1
|
||||
'
|
||||
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 680)
|
||||
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
|
||||
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
|
||||
Me.RibbonStatusBar1.Size = New System.Drawing.Size(1220, 21)
|
||||
'
|
||||
'RibbonPage2
|
||||
'
|
||||
Me.RibbonPage2.Name = "RibbonPage2"
|
||||
Me.RibbonPage2.Text = "RibbonPage2"
|
||||
'
|
||||
'NavBarControl1
|
||||
'
|
||||
Me.NavBarControl1.ActiveGroup = Me.NavBarGroup1
|
||||
Me.NavBarControl1.Controls.Add(Me.NavBarGroupControlContainer1)
|
||||
Me.NavBarControl1.Dock = System.Windows.Forms.DockStyle.Right
|
||||
Me.NavBarControl1.Groups.AddRange(New DevExpress.XtraNavBar.NavBarGroup() {Me.NavBarGroup1})
|
||||
Me.NavBarControl1.Location = New System.Drawing.Point(970, 146)
|
||||
Me.NavBarControl1.Name = "NavBarControl1"
|
||||
Me.NavBarControl1.OptionsNavPane.ExpandedWidth = 250
|
||||
Me.NavBarControl1.OptionsNavPane.ShowOverflowButton = False
|
||||
Me.NavBarControl1.OptionsNavPane.ShowOverflowPanel = False
|
||||
Me.NavBarControl1.PaintStyleKind = DevExpress.XtraNavBar.NavBarViewKind.NavigationPane
|
||||
Me.NavBarControl1.Size = New System.Drawing.Size(250, 534)
|
||||
Me.NavBarControl1.TabIndex = 3
|
||||
Me.NavBarControl1.Text = "NavBarControl1"
|
||||
'
|
||||
'NavBarGroup1
|
||||
'
|
||||
Me.NavBarGroup1.Caption = "Forward To"
|
||||
Me.NavBarGroup1.ControlContainer = Me.NavBarGroupControlContainer1
|
||||
Me.NavBarGroup1.Expanded = True
|
||||
Me.NavBarGroup1.GroupClientHeight = 369
|
||||
Me.NavBarGroup1.GroupStyle = DevExpress.XtraNavBar.NavBarGroupStyle.ControlContainer
|
||||
Me.NavBarGroup1.Name = "NavBarGroup1"
|
||||
'
|
||||
'NavBarGroupControlContainer1
|
||||
'
|
||||
Me.NavBarGroupControlContainer1.Appearance.BackColor = System.Drawing.SystemColors.Control
|
||||
Me.NavBarGroupControlContainer1.Appearance.Options.UseBackColor = True
|
||||
Me.NavBarGroupControlContainer1.Controls.Add(Me.ImageListBoxControl1)
|
||||
Me.NavBarGroupControlContainer1.Name = "NavBarGroupControlContainer1"
|
||||
Me.NavBarGroupControlContainer1.Size = New System.Drawing.Size(250, 453)
|
||||
Me.NavBarGroupControlContainer1.TabIndex = 0
|
||||
'
|
||||
'ImageListBoxControl1
|
||||
'
|
||||
Me.ImageListBoxControl1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.ImageListBoxControl1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.ImageListBoxControl1.Name = "ImageListBoxControl1"
|
||||
Me.ImageListBoxControl1.Size = New System.Drawing.Size(250, 453)
|
||||
Me.ImageListBoxControl1.TabIndex = 0
|
||||
'
|
||||
'LayoutControl1
|
||||
'
|
||||
Me.LayoutControl1.Controls.Add(Me.textEdit1)
|
||||
Me.LayoutControl1.Controls.Add(Me.textEdit2)
|
||||
Me.LayoutControl1.Controls.Add(Me.textEdit3)
|
||||
Me.LayoutControl1.Controls.Add(Me.textEdit4)
|
||||
Me.LayoutControl1.Controls.Add(Me.textEdit5)
|
||||
Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.LayoutControl1.Location = New System.Drawing.Point(0, 146)
|
||||
Me.LayoutControl1.Name = "LayoutControl1"
|
||||
Me.LayoutControl1.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(551, 62, 650, 400)
|
||||
Me.LayoutControl1.Root = Me.LayoutControlGroup1
|
||||
Me.LayoutControl1.Size = New System.Drawing.Size(970, 534)
|
||||
Me.LayoutControl1.TabIndex = 6
|
||||
Me.LayoutControl1.Text = "LayoutControl1"
|
||||
'
|
||||
'textEdit1
|
||||
'
|
||||
Me.textEdit1.Location = New System.Drawing.Point(12, 28)
|
||||
Me.textEdit1.Name = "textEdit1"
|
||||
Me.textEdit1.Size = New System.Drawing.Size(400, 20)
|
||||
Me.textEdit1.StyleController = Me.LayoutControl1
|
||||
Me.textEdit1.TabIndex = 4
|
||||
'
|
||||
'textEdit2
|
||||
'
|
||||
Me.textEdit2.Location = New System.Drawing.Point(12, 68)
|
||||
Me.textEdit2.Name = "textEdit2"
|
||||
Me.textEdit2.Size = New System.Drawing.Size(400, 20)
|
||||
Me.textEdit2.StyleController = Me.LayoutControl1
|
||||
Me.textEdit2.TabIndex = 5
|
||||
'
|
||||
'textEdit3
|
||||
'
|
||||
Me.textEdit3.Location = New System.Drawing.Point(12, 108)
|
||||
Me.textEdit3.Name = "textEdit3"
|
||||
Me.textEdit3.Properties.Mask.EditMask = "[a-zA-Z]+"
|
||||
Me.textEdit3.Properties.Mask.MaskType = DevExpress.XtraEditors.Mask.MaskType.RegEx
|
||||
Me.textEdit3.Size = New System.Drawing.Size(400, 20)
|
||||
Me.textEdit3.StyleController = Me.LayoutControl1
|
||||
Me.textEdit3.TabIndex = 6
|
||||
'
|
||||
'textEdit4
|
||||
'
|
||||
Me.textEdit4.Location = New System.Drawing.Point(12, 148)
|
||||
Me.textEdit4.Name = "textEdit4"
|
||||
Me.textEdit4.Properties.Mask.EditMask = "[a-zA-Z]+"
|
||||
Me.textEdit4.Properties.Mask.MaskType = DevExpress.XtraEditors.Mask.MaskType.RegEx
|
||||
Me.textEdit4.Size = New System.Drawing.Size(400, 20)
|
||||
Me.textEdit4.StyleController = Me.LayoutControl1
|
||||
Me.textEdit4.TabIndex = 7
|
||||
'
|
||||
'textEdit5
|
||||
'
|
||||
Me.textEdit5.Location = New System.Drawing.Point(12, 188)
|
||||
Me.textEdit5.Name = "textEdit5"
|
||||
Me.textEdit5.Properties.Mask.EditMask = "00000"
|
||||
Me.textEdit5.Properties.Mask.MaskType = DevExpress.XtraEditors.Mask.MaskType.Simple
|
||||
Me.textEdit5.Size = New System.Drawing.Size(400, 20)
|
||||
Me.textEdit5.StyleController = Me.LayoutControl1
|
||||
Me.textEdit5.TabIndex = 8
|
||||
'
|
||||
'LayoutControlGroup1
|
||||
'
|
||||
Me.LayoutControlGroup1.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
|
||||
Me.LayoutControlGroup1.GroupBordersVisible = False
|
||||
Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlGroup4, Me.layoutControlItem1, Me.layoutControlItem2, Me.layoutControlItem3, Me.layoutControlItem4, Me.layoutControlItem5})
|
||||
Me.LayoutControlGroup1.Name = "Root"
|
||||
Me.LayoutControlGroup1.Size = New System.Drawing.Size(970, 534)
|
||||
Me.LayoutControlGroup1.TextVisible = False
|
||||
'
|
||||
'LayoutControlGroup4
|
||||
'
|
||||
Me.LayoutControlGroup4.CustomizationFormText = "layoutControlGroup3"
|
||||
Me.LayoutControlGroup4.GroupBordersVisible = False
|
||||
Me.LayoutControlGroup4.Location = New System.Drawing.Point(0, 200)
|
||||
Me.LayoutControlGroup4.Name = "LayoutControlGroup4"
|
||||
Me.LayoutControlGroup4.Size = New System.Drawing.Size(950, 314)
|
||||
Me.LayoutControlGroup4.Text = "layoutControlGroup3"
|
||||
'
|
||||
'layoutControlItem1
|
||||
'
|
||||
Me.layoutControlItem1.Control = Me.textEdit1
|
||||
Me.layoutControlItem1.CustomizationFormText = "Address line 1:"
|
||||
Me.layoutControlItem1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.layoutControlItem1.MaxSize = New System.Drawing.Size(404, 0)
|
||||
Me.layoutControlItem1.MinSize = New System.Drawing.Size(116, 40)
|
||||
Me.layoutControlItem1.Name = "layoutControlItem1"
|
||||
Me.layoutControlItem1.Size = New System.Drawing.Size(950, 40)
|
||||
Me.layoutControlItem1.SizeConstraintsType = DevExpress.XtraLayout.SizeConstraintsType.Custom
|
||||
Me.layoutControlItem1.Text = "Address line 1:"
|
||||
Me.layoutControlItem1.TextLocation = DevExpress.Utils.Locations.Top
|
||||
Me.layoutControlItem1.TextSize = New System.Drawing.Size(112, 13)
|
||||
'
|
||||
'layoutControlItem2
|
||||
'
|
||||
Me.layoutControlItem2.Control = Me.textEdit2
|
||||
Me.layoutControlItem2.CustomizationFormText = "Address line 2:"
|
||||
Me.layoutControlItem2.Location = New System.Drawing.Point(0, 40)
|
||||
Me.layoutControlItem2.MaxSize = New System.Drawing.Size(404, 0)
|
||||
Me.layoutControlItem2.MinSize = New System.Drawing.Size(116, 40)
|
||||
Me.layoutControlItem2.Name = "layoutControlItem2"
|
||||
Me.layoutControlItem2.Size = New System.Drawing.Size(950, 40)
|
||||
Me.layoutControlItem2.SizeConstraintsType = DevExpress.XtraLayout.SizeConstraintsType.Custom
|
||||
Me.layoutControlItem2.Text = "Address line 2:"
|
||||
Me.layoutControlItem2.TextLocation = DevExpress.Utils.Locations.Top
|
||||
Me.layoutControlItem2.TextSize = New System.Drawing.Size(112, 13)
|
||||
'
|
||||
'layoutControlItem3
|
||||
'
|
||||
Me.layoutControlItem3.Control = Me.textEdit3
|
||||
Me.layoutControlItem3.CustomizationFormText = "City:"
|
||||
Me.layoutControlItem3.Location = New System.Drawing.Point(0, 80)
|
||||
Me.layoutControlItem3.MaxSize = New System.Drawing.Size(404, 0)
|
||||
Me.layoutControlItem3.MinSize = New System.Drawing.Size(116, 40)
|
||||
Me.layoutControlItem3.Name = "layoutControlItem3"
|
||||
Me.layoutControlItem3.Size = New System.Drawing.Size(950, 40)
|
||||
Me.layoutControlItem3.SizeConstraintsType = DevExpress.XtraLayout.SizeConstraintsType.Custom
|
||||
Me.layoutControlItem3.Text = "City:"
|
||||
Me.layoutControlItem3.TextLocation = DevExpress.Utils.Locations.Top
|
||||
Me.layoutControlItem3.TextSize = New System.Drawing.Size(112, 13)
|
||||
'
|
||||
'layoutControlItem4
|
||||
'
|
||||
Me.layoutControlItem4.Control = Me.textEdit4
|
||||
Me.layoutControlItem4.CustomizationFormText = "State/Province/Region:"
|
||||
Me.layoutControlItem4.Location = New System.Drawing.Point(0, 120)
|
||||
Me.layoutControlItem4.MaxSize = New System.Drawing.Size(404, 0)
|
||||
Me.layoutControlItem4.MinSize = New System.Drawing.Size(116, 40)
|
||||
Me.layoutControlItem4.Name = "layoutControlItem4"
|
||||
Me.layoutControlItem4.Size = New System.Drawing.Size(950, 40)
|
||||
Me.layoutControlItem4.SizeConstraintsType = DevExpress.XtraLayout.SizeConstraintsType.Custom
|
||||
Me.layoutControlItem4.Text = "State/Province/Region:"
|
||||
Me.layoutControlItem4.TextLocation = DevExpress.Utils.Locations.Top
|
||||
Me.layoutControlItem4.TextSize = New System.Drawing.Size(112, 13)
|
||||
'
|
||||
'layoutControlItem5
|
||||
'
|
||||
Me.layoutControlItem5.Control = Me.textEdit5
|
||||
Me.layoutControlItem5.CustomizationFormText = "ZIP:"
|
||||
Me.layoutControlItem5.Location = New System.Drawing.Point(0, 160)
|
||||
Me.layoutControlItem5.MaxSize = New System.Drawing.Size(404, 0)
|
||||
Me.layoutControlItem5.MinSize = New System.Drawing.Size(116, 40)
|
||||
Me.layoutControlItem5.Name = "layoutControlItem5"
|
||||
Me.layoutControlItem5.Size = New System.Drawing.Size(950, 40)
|
||||
Me.layoutControlItem5.SizeConstraintsType = DevExpress.XtraLayout.SizeConstraintsType.Custom
|
||||
Me.layoutControlItem5.Text = "ZIP:"
|
||||
Me.layoutControlItem5.TextLocation = DevExpress.Utils.Locations.Top
|
||||
Me.layoutControlItem5.TextSize = New System.Drawing.Size(112, 13)
|
||||
'
|
||||
'frmSearch
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(1220, 701)
|
||||
Me.Controls.Add(Me.LayoutControl1)
|
||||
Me.Controls.Add(Me.NavBarControl1)
|
||||
Me.Controls.Add(Me.RibbonStatusBar1)
|
||||
Me.Controls.Add(Me.RibbonControl1)
|
||||
Me.Name = "frmSearch"
|
||||
Me.Ribbon = Me.RibbonControl1
|
||||
Me.StatusBar = Me.RibbonStatusBar1
|
||||
Me.Text = "Search"
|
||||
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.NavBarControl1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.NavBarControl1.ResumeLayout(False)
|
||||
Me.NavBarGroupControlContainer1.ResumeLayout(False)
|
||||
CType(Me.ImageListBoxControl1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.LayoutControl1.ResumeLayout(False)
|
||||
CType(Me.textEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.textEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.textEdit3.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.textEdit4.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.textEdit5.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.LayoutControlGroup1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.LayoutControlGroup4, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.layoutControlItem1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.layoutControlItem2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.layoutControlItem3, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.layoutControlItem4, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.layoutControlItem5, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
|
||||
Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
|
||||
Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
|
||||
Friend WithEvents NavBarControl1 As DevExpress.XtraNavBar.NavBarControl
|
||||
Friend WithEvents NavBarGroup1 As DevExpress.XtraNavBar.NavBarGroup
|
||||
Friend WithEvents NavBarGroupControlContainer1 As DevExpress.XtraNavBar.NavBarGroupControlContainer
|
||||
Friend WithEvents RibbonPageCategory1 As DevExpress.XtraBars.Ribbon.RibbonPageCategory
|
||||
Friend WithEvents RibbonPage3 As DevExpress.XtraBars.Ribbon.RibbonPage
|
||||
Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
|
||||
Friend WithEvents ImageListBoxControl1 As DevExpress.XtraEditors.ImageListBoxControl
|
||||
Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
|
||||
Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl
|
||||
Friend WithEvents textEdit1 As DevExpress.XtraEditors.TextEdit
|
||||
Friend WithEvents textEdit2 As DevExpress.XtraEditors.TextEdit
|
||||
Friend WithEvents textEdit3 As DevExpress.XtraEditors.TextEdit
|
||||
Friend WithEvents textEdit4 As DevExpress.XtraEditors.TextEdit
|
||||
Friend WithEvents textEdit5 As DevExpress.XtraEditors.TextEdit
|
||||
Friend WithEvents LayoutControlGroup1 As DevExpress.XtraLayout.LayoutControlGroup
|
||||
Friend WithEvents LayoutControlGroup4 As DevExpress.XtraLayout.LayoutControlGroup
|
||||
Friend WithEvents layoutControlItem1 As DevExpress.XtraLayout.LayoutControlItem
|
||||
Friend WithEvents layoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem
|
||||
Friend WithEvents layoutControlItem3 As DevExpress.XtraLayout.LayoutControlItem
|
||||
Friend WithEvents layoutControlItem4 As DevExpress.XtraLayout.LayoutControlItem
|
||||
Friend WithEvents layoutControlItem5 As DevExpress.XtraLayout.LayoutControlItem
|
||||
End Class
|
||||
@ -117,4 +117,45 @@
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="BarButtonItem1.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
|
||||
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAmdEVYdFRpdGxlAEZpbmQ7QmFycztSaWJib247U3Rh
|
||||
bmRhcmQ7U2VhcmNou2WcCAAAAHBJREFUOE+1jtENgDAIRLugaziIU7kdckYIVKhE68dLw931oBGRsmw7
|
||||
CRUduCELZjoIQzac6UJfsPZBOzOnL3/AnIIupDx5IN0+wF2RbrgY+ragul3QK/4rgMmv4DxmfsENmELk
|
||||
A3jfC2zwDaFYh9oB/j2jilUn/gYAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="BarButtonItem1.ImageOptions.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
|
||||
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAmdEVYdFRpdGxlAEZpbmQ7QmFycztSaWJib247U3Rh
|
||||
bmRhcmQ7U2VhcmNou2WcCAAAALlJREFUWEft0FEOAiEMhOG9oNfwIJ7K22FqICnjD5aIbDQ8fA9MprXu
|
||||
kVI6FYYrYbgShupyuydBnZeedgiGKro42vMwVNHF0Z6HYaEL1WiPYFjkBVe/zJMeec6WHsGw8EsafI/s
|
||||
A374AFnUEu763R6GJg/2/n1U9ytgaPzwh753gHRbxg6Q4en096qHycUZn17hl6gexpcn+7MDGnM9+4B9
|
||||
wD5g6IC3Zs1VD0NDZNZc9TgDhithuE46Hq7c+XFU2QSKAAAAAElFTkSuQmCC
|
||||
</value>
|
||||
</data>
|
||||
<data name="BarButtonItem2.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
|
||||
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAARdEVYdFRpdGxlAEV4cG9ydDtTYXZlRtSeMQAAAH5J
|
||||
REFUOE+9zjEOgCAMQFHO6wEcSTyDA0dgdHTibLU1tjZNBdTo8CIC/SEAwCvu5h2ymIelIEC0pq+Hz4oX
|
||||
sJc03pOz3wOsO1DTDHT5NMBPFWNOWtT/TwKAJNIboCFrj3gB6ypAog6sZrAVmND5ghq6qMgwcQcsvnyQ
|
||||
4TGnsAGFnInIUes/lQAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
<data name="BarButtonItem2.ImageOptions.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
|
||||
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAARdEVYdFRpdGxlAEV4cG9ydDtTYXZlRtSeMQAAAURJ
|
||||
REFUWEfdlsFpw0AQRd2KKzH45FpSgI8B1+CDStAxdaSPgMtQ5guv2Pn6Y63kZQU+PMLM7Mx/BGx8GIZh
|
||||
V2SzJbLZEtlsyaxx//o5Gb/GkIF+Iu+/gt/i5onzXAHs0SNbStQQAA/OcwUQS6BEgOfyLee5AqglIx2P
|
||||
5oDn8i3nuQKoJSMdj+aA5/It57kCqCUjHY/mgOfyLee5AqglIx2P5orPFVjD7BbnuQKopZpwniuAWqoJ
|
||||
57kCqKWacJ4rAC2cDfTe4WjcjE0CfOwl175TfOOvzUcJmjURQOgkkfVHWglMEkxLASlRWyAPi3ASewiA
|
||||
SWIvATBKLAlccLgUCijhtiSwhrUC40dSCfzR4VLWCEzfB0oA/3b1y3iJUgH3ZaQENpMfzgjDwUzgHfj4
|
||||
kzAcyENbUQFGGA7koa2oACMMv/bd4R8cYf1FvaRMggAAAABJRU5ErkJggg==
|
||||
</value>
|
||||
</data>
|
||||
</root>
|
||||
17
EDMI_ClientSuite/frmSearch.vb
Normal file
17
EDMI_ClientSuite/frmSearch.vb
Normal file
@ -0,0 +1,17 @@
|
||||
Imports DevExpress.XtraEditors.Controls
|
||||
|
||||
Public Class frmSearch
|
||||
Private Sub frmSearch_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
|
||||
Dim oList As New List(Of String) From {"Marvin", "Marlon", "Annette", "Jan", "Jonathan", "Vladimir", "Armin"}
|
||||
|
||||
For Each oMember In oList
|
||||
Dim oItem As New ImageListBoxItem(oMember, oMember)
|
||||
|
||||
ImageListBoxControl1.Items.Add(oItem)
|
||||
Next
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
@ -89,6 +89,7 @@
|
||||
<DependentUpon>Settings.settings</DependentUpon>
|
||||
<DesignTimeSharedInput>True</DesignTimeSharedInput>
|
||||
</Compile>
|
||||
<Compile Include="TraceListener.vb" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<EmbeddedResource Include="My Project\Resources.resx">
|
||||
|
||||
249
Modules.Logging/TraceListener.vb
Normal file
249
Modules.Logging/TraceListener.vb
Normal file
@ -0,0 +1,249 @@
|
||||
Imports System
|
||||
Imports System.Configuration
|
||||
Imports System.Diagnostics
|
||||
Imports System.Globalization
|
||||
Imports System.IO
|
||||
Imports System.Security.Permissions
|
||||
Imports System.Text.RegularExpressions
|
||||
|
||||
<HostProtection(Synchronization:=True)>
|
||||
Public Class RollingXmlWriterTraceListener
|
||||
Inherits XmlWriterTraceListener
|
||||
|
||||
Private Shared ReadOnly LogFileNumberCaptureName As String = "LogFileNumber"
|
||||
Private attributesLoaded As Boolean = False
|
||||
Private logfileSuffixExpression As Regex = New Regex("_(?<" & LogFileNumberCaptureName & ">\d*)\.", RegexOptions.Compiled)
|
||||
Private currentFileSuffixNumber As Integer = 0
|
||||
Private _maxTraceFileSize As Long = 128 * 1024 * 1024
|
||||
Private basicTraceFileName As String = String.Empty
|
||||
|
||||
Public Sub New(ByVal filename As String)
|
||||
MyBase.New(filename)
|
||||
Me.basicTraceFileName = filename
|
||||
Me.currentFileSuffixNumber = Me.GetTraceFileNumber()
|
||||
Me.StartNewTraceFile()
|
||||
End Sub
|
||||
|
||||
Public Sub New(ByVal filename As String, ByVal name As String)
|
||||
MyBase.New(filename, name)
|
||||
Me.basicTraceFileName = filename
|
||||
Me.StartNewTraceFile()
|
||||
End Sub
|
||||
|
||||
Public ReadOnly Property CurrentTraceFileName As String
|
||||
Get
|
||||
Return Path.Combine(Path.GetDirectoryName(Me.basicTraceFileName), Path.GetFileNameWithoutExtension(Me.basicTraceFileName) & "_" & Me.currentFileSuffixNumber.ToString().PadLeft(4, "0"c) & Path.GetExtension(Me.basicTraceFileName))
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public Property MaxTraceFileSize As Long
|
||||
Get
|
||||
|
||||
If Not Me.attributesLoaded Then
|
||||
Me.LoadAttributes()
|
||||
End If
|
||||
|
||||
Return Me._maxTraceFileSize
|
||||
End Get
|
||||
Set(ByVal value As Long)
|
||||
|
||||
If Not Me.attributesLoaded Then
|
||||
Me.LoadAttributes()
|
||||
End If
|
||||
|
||||
Me._maxTraceFileSize = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Protected ReadOnly Property IsRollingConditionReached As Boolean
|
||||
Get
|
||||
Dim streamWriter As StreamWriter = CType(Me.Writer, StreamWriter)
|
||||
Dim fileStream As FileStream = CType(streamWriter.BaseStream, FileStream)
|
||||
Dim traceFileName As String = fileStream.Name
|
||||
Dim traceFileInfo As FileInfo = New FileInfo(traceFileName)
|
||||
|
||||
If traceFileInfo.Length > Me._maxTraceFileSize Then
|
||||
Return True
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public Overrides Sub Fail(ByVal message As String)
|
||||
If Me.IsRollingConditionReached Then
|
||||
Me.StartNewTraceFile()
|
||||
End If
|
||||
|
||||
MyBase.Fail(message)
|
||||
End Sub
|
||||
|
||||
Public Overrides Sub Fail(ByVal message As String, ByVal detailMessage As String)
|
||||
If Me.IsRollingConditionReached Then
|
||||
Me.StartNewTraceFile()
|
||||
End If
|
||||
|
||||
MyBase.Fail(message, detailMessage)
|
||||
End Sub
|
||||
|
||||
Public Overrides Sub TraceData(ByVal eventCache As TraceEventCache, ByVal source As String, ByVal eventType As TraceEventType, ByVal id As Integer, ByVal data As Object)
|
||||
If Me.IsRollingConditionReached Then
|
||||
Me.StartNewTraceFile()
|
||||
End If
|
||||
|
||||
MyBase.TraceData(eventCache, source, eventType, id, data)
|
||||
End Sub
|
||||
|
||||
Public Overrides Sub TraceData(ByVal eventCache As TraceEventCache, ByVal source As String, ByVal eventType As TraceEventType, ByVal id As Integer, ParamArray data As Object())
|
||||
If Me.IsRollingConditionReached Then
|
||||
Me.StartNewTraceFile()
|
||||
End If
|
||||
|
||||
MyBase.TraceData(eventCache, source, eventType, id, data)
|
||||
End Sub
|
||||
|
||||
Public Overrides Sub TraceEvent(ByVal eventCache As TraceEventCache, ByVal source As String, ByVal eventType As TraceEventType, ByVal id As Integer)
|
||||
If Me.IsRollingConditionReached Then
|
||||
Me.StartNewTraceFile()
|
||||
End If
|
||||
|
||||
MyBase.TraceEvent(eventCache, source, eventType, id)
|
||||
End Sub
|
||||
|
||||
Public Overrides Sub TraceEvent(ByVal eventCache As TraceEventCache, ByVal source As String, ByVal eventType As TraceEventType, ByVal id As Integer, ByVal message As String)
|
||||
If Me.IsRollingConditionReached Then
|
||||
Me.StartNewTraceFile()
|
||||
End If
|
||||
|
||||
MyBase.TraceEvent(eventCache, source, eventType, id, message)
|
||||
End Sub
|
||||
|
||||
Public Overrides Sub TraceEvent(ByVal eventCache As TraceEventCache, ByVal source As String, ByVal eventType As TraceEventType, ByVal id As Integer, ByVal format As String, ParamArray args As Object())
|
||||
If Me.IsRollingConditionReached Then
|
||||
Me.StartNewTraceFile()
|
||||
End If
|
||||
|
||||
MyBase.TraceEvent(eventCache, source, eventType, id, format, args)
|
||||
End Sub
|
||||
|
||||
Public Overrides Sub TraceTransfer(ByVal eventCache As TraceEventCache, ByVal source As String, ByVal id As Integer, ByVal message As String, ByVal relatedActivityId As Guid)
|
||||
If Me.IsRollingConditionReached Then
|
||||
Me.StartNewTraceFile()
|
||||
End If
|
||||
|
||||
MyBase.TraceTransfer(eventCache, source, id, message, relatedActivityId)
|
||||
End Sub
|
||||
|
||||
Public Overrides Sub Write(ByVal o As Object)
|
||||
If Me.IsRollingConditionReached Then
|
||||
Me.StartNewTraceFile()
|
||||
End If
|
||||
|
||||
MyBase.Write(o)
|
||||
End Sub
|
||||
|
||||
Public Overrides Sub Write(ByVal o As Object, ByVal category As String)
|
||||
If Me.IsRollingConditionReached Then
|
||||
Me.StartNewTraceFile()
|
||||
End If
|
||||
|
||||
MyBase.Write(o, category)
|
||||
End Sub
|
||||
|
||||
Public Overrides Sub Write(ByVal message As String)
|
||||
If Me.IsRollingConditionReached Then
|
||||
Me.StartNewTraceFile()
|
||||
End If
|
||||
|
||||
MyBase.Write(message)
|
||||
End Sub
|
||||
|
||||
Public Overrides Sub Write(ByVal message As String, ByVal category As String)
|
||||
If Me.IsRollingConditionReached Then
|
||||
Me.StartNewTraceFile()
|
||||
End If
|
||||
|
||||
MyBase.Write(message, category)
|
||||
End Sub
|
||||
|
||||
Public Overrides Sub WriteLine(ByVal o As Object)
|
||||
If Me.IsRollingConditionReached Then
|
||||
Me.StartNewTraceFile()
|
||||
End If
|
||||
|
||||
MyBase.WriteLine(o)
|
||||
End Sub
|
||||
|
||||
Public Overrides Sub WriteLine(ByVal o As Object, ByVal category As String)
|
||||
If Me.IsRollingConditionReached Then
|
||||
Me.StartNewTraceFile()
|
||||
End If
|
||||
|
||||
MyBase.WriteLine(o, category)
|
||||
End Sub
|
||||
|
||||
Public Overrides Sub WriteLine(ByVal message As String)
|
||||
If Me.IsRollingConditionReached Then
|
||||
Me.StartNewTraceFile()
|
||||
End If
|
||||
|
||||
MyBase.WriteLine(message)
|
||||
End Sub
|
||||
|
||||
Public Overrides Sub WriteLine(ByVal message As String, ByVal category As String)
|
||||
If Me.IsRollingConditionReached Then
|
||||
Me.StartNewTraceFile()
|
||||
End If
|
||||
|
||||
MyBase.WriteLine(message, category)
|
||||
End Sub
|
||||
|
||||
Protected Overrides Function GetSupportedAttributes() As String()
|
||||
Return New String(0) {"MaxTraceFileSize"}
|
||||
End Function
|
||||
|
||||
Private Sub StartNewTraceFile()
|
||||
Dim streamWriter As StreamWriter = CType(Me.Writer, StreamWriter)
|
||||
Dim fileStream As FileStream = CType(streamWriter.BaseStream, FileStream)
|
||||
fileStream.Close()
|
||||
Me.currentFileSuffixNumber += 1
|
||||
Me.Writer = New StreamWriter(New FileStream(Me.CurrentTraceFileName, FileMode.Create))
|
||||
End Sub
|
||||
|
||||
Private Function GetTraceFileNumber() As Integer
|
||||
Dim directoryName As String = Path.GetDirectoryName(Me.basicTraceFileName)
|
||||
Dim basicTraceFileNameWithoutExtension As String = Path.GetFileNameWithoutExtension(Me.basicTraceFileName)
|
||||
Dim basicTraceFileNameExtension As String = Path.GetExtension(Me.basicTraceFileName)
|
||||
Dim existingLogFiles As String() = Directory.GetFiles(directoryName, basicTraceFileNameWithoutExtension & "*")
|
||||
Dim highestNumber As Integer = -1
|
||||
|
||||
For Each existingLogFile As String In existingLogFiles
|
||||
Dim match As Match = Me.logfileSuffixExpression.Match(existingLogFile)
|
||||
|
||||
If match IsNot Nothing Then
|
||||
Dim tempInt As Integer
|
||||
|
||||
If match.Groups.Count >= 1 AndAlso Integer.TryParse(match.Groups(LogFileNumberCaptureName).Value, tempInt) AndAlso tempInt >= highestNumber Then
|
||||
highestNumber = tempInt
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
Return highestNumber
|
||||
End Function
|
||||
|
||||
Private Sub LoadAttributes()
|
||||
If Attributes.ContainsKey("MaxTraceFileSize") AndAlso Not String.IsNullOrEmpty(Attributes("MaxTraceFileSize")) Then
|
||||
Dim tempLong As Long = 0
|
||||
Dim attributeValue As String = Attributes("MaxTraceFileSize")
|
||||
|
||||
If Long.TryParse(attributeValue, tempLong) Then
|
||||
Me._maxTraceFileSize = Long.Parse(Attributes("MaxTraceFileSize"), NumberFormatInfo.InvariantInfo)
|
||||
Else
|
||||
Throw New ConfigurationErrorsException(String.Format("Trace listener {0} has an unparseable configuration attribute ""MaxTraceFileSize"". The value ""{1}"" cannot be parsed to a long value.", Me.Name, attributeValue))
|
||||
End If
|
||||
End If
|
||||
|
||||
Me.attributesLoaded = True
|
||||
End Sub
|
||||
End Class
|
||||
Loading…
x
Reference in New Issue
Block a user