1017 lines
46 KiB
VB.net
1017 lines
46 KiB
VB.net
Imports iMESMainMenu
|
||
Imports Infragistics.Win
|
||
Imports Infragistics.Win.UltraWinToolbars
|
||
Public Class MDI_Panel
|
||
|
||
Inherits System.Windows.Forms.Form
|
||
|
||
'//Data
|
||
Dim dsData As New DataSet
|
||
Dim ModuleNo As String
|
||
Dim strUserPriv As String
|
||
|
||
'//其他共用變數
|
||
Dim i As Integer
|
||
Dim blnShow As Boolean
|
||
Dim imlMDI As New ImageList
|
||
|
||
'// MainMenu & ToolBar變數
|
||
Dim utbMDI As Infragistics.Win.UltraWinToolbars.UltraToolbar = New UltraToolbar("ToolBar")
|
||
Dim utbMDIMenu As Infragistics.Win.UltraWinToolbars.UltraToolbar = New UltraToolbar("MainMenu")
|
||
Dim OptionSet1 As Infragistics.Win.UltraWinToolbars.OptionSet = New Infragistics.Win.UltraWinToolbars.OptionSet("LanguageMode")
|
||
Dim btlMDI As ButtonTool
|
||
Dim popMDI As PopupMenuTool
|
||
Dim sbtMDI As StateButtonTool
|
||
|
||
|
||
#Region " Windows Form 設計工具產生的程式碼 "
|
||
|
||
Public Sub New()
|
||
MyBase.New()
|
||
|
||
'此呼叫為 Windows Form 設計工具的必要項。
|
||
InitializeComponent()
|
||
|
||
'在 InitializeComponent() 呼叫之後加入所有的初始設定
|
||
|
||
End Sub
|
||
|
||
'Form 覆寫 Dispose 以清除元件清單。
|
||
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
||
If disposing Then
|
||
If Not (components Is Nothing) Then
|
||
components.Dispose()
|
||
End If
|
||
End If
|
||
MyBase.Dispose(disposing)
|
||
End Sub
|
||
|
||
'為 Windows Form 設計工具的必要項
|
||
Private components As System.ComponentModel.IContainer
|
||
|
||
'注意: 以下為 Windows Form 設計工具所需的程序
|
||
'您可以使用 Windows Form 設計工具進行修改。
|
||
'請勿使用程式碼編輯器來修改這些程序。
|
||
Friend WithEvents UltraToolbarsManager1 As Infragistics.Win.UltraWinToolbars.UltraToolbarsManager
|
||
Friend WithEvents _MDIENT_Panel_Toolbars_Dock_Area_Left As Infragistics.Win.UltraWinToolbars.UltraToolbarsDockArea
|
||
Friend WithEvents _MDIENT_Panel_Toolbars_Dock_Area_Right As Infragistics.Win.UltraWinToolbars.UltraToolbarsDockArea
|
||
Friend WithEvents _MDIENT_Panel_Toolbars_Dock_Area_Top As Infragistics.Win.UltraWinToolbars.UltraToolbarsDockArea
|
||
Friend WithEvents _MDIENT_Panel_Toolbars_Dock_Area_Bottom As Infragistics.Win.UltraWinToolbars.UltraToolbarsDockArea
|
||
Friend WithEvents UltraDockManager1 As Infragistics.Win.UltraWinDock.UltraDockManager
|
||
Friend WithEvents _MDIENT_PanelUnpinnedTabAreaLeft As Infragistics.Win.UltraWinDock.UnpinnedTabArea
|
||
Friend WithEvents _MDIENT_PanelUnpinnedTabAreaRight As Infragistics.Win.UltraWinDock.UnpinnedTabArea
|
||
Friend WithEvents _MDIENT_PanelUnpinnedTabAreaTop As Infragistics.Win.UltraWinDock.UnpinnedTabArea
|
||
Friend WithEvents _MDIENT_PanelUnpinnedTabAreaBottom As Infragistics.Win.UltraWinDock.UnpinnedTabArea
|
||
Friend WithEvents _MDIENT_PanelAutoHideControl As Infragistics.Win.UltraWinDock.AutoHideControl
|
||
Friend WithEvents uebMenu As Infragistics.Win.UltraWinExplorerBar.UltraExplorerBar
|
||
Friend WithEvents WindowDockingArea1 As Infragistics.Win.UltraWinDock.WindowDockingArea
|
||
Friend WithEvents DockableWindow1 As Infragistics.Win.UltraWinDock.DockableWindow
|
||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||
Me.components = New System.ComponentModel.Container()
|
||
Dim DockAreaPane2 As Infragistics.Win.UltraWinDock.DockAreaPane = New Infragistics.Win.UltraWinDock.DockAreaPane(Infragistics.Win.UltraWinDock.DockedLocation.DockedLeft, New System.Guid("8666bbed-9885-4c68-819e-c049f9eac535"))
|
||
Dim DockableControlPane2 As Infragistics.Win.UltraWinDock.DockableControlPane = New Infragistics.Win.UltraWinDock.DockableControlPane(New System.Guid("5a475b0e-96d9-4cd0-973b-da8cba709615"), New System.Guid("00000000-0000-0000-0000-000000000000"), -1, New System.Guid("8666bbed-9885-4c68-819e-c049f9eac535"), -1)
|
||
Me.uebMenu = New Infragistics.Win.UltraWinExplorerBar.UltraExplorerBar()
|
||
Me.UltraToolbarsManager1 = New Infragistics.Win.UltraWinToolbars.UltraToolbarsManager(Me.components)
|
||
Me._MDIENT_Panel_Toolbars_Dock_Area_Left = New Infragistics.Win.UltraWinToolbars.UltraToolbarsDockArea()
|
||
Me._MDIENT_Panel_Toolbars_Dock_Area_Right = New Infragistics.Win.UltraWinToolbars.UltraToolbarsDockArea()
|
||
Me._MDIENT_Panel_Toolbars_Dock_Area_Top = New Infragistics.Win.UltraWinToolbars.UltraToolbarsDockArea()
|
||
Me._MDIENT_Panel_Toolbars_Dock_Area_Bottom = New Infragistics.Win.UltraWinToolbars.UltraToolbarsDockArea()
|
||
Me.UltraDockManager1 = New Infragistics.Win.UltraWinDock.UltraDockManager(Me.components)
|
||
Me._MDIENT_PanelUnpinnedTabAreaLeft = New Infragistics.Win.UltraWinDock.UnpinnedTabArea()
|
||
Me._MDIENT_PanelUnpinnedTabAreaRight = New Infragistics.Win.UltraWinDock.UnpinnedTabArea()
|
||
Me._MDIENT_PanelUnpinnedTabAreaTop = New Infragistics.Win.UltraWinDock.UnpinnedTabArea()
|
||
Me._MDIENT_PanelUnpinnedTabAreaBottom = New Infragistics.Win.UltraWinDock.UnpinnedTabArea()
|
||
Me._MDIENT_PanelAutoHideControl = New Infragistics.Win.UltraWinDock.AutoHideControl()
|
||
Me.DockableWindow1 = New Infragistics.Win.UltraWinDock.DockableWindow()
|
||
Me.WindowDockingArea1 = New Infragistics.Win.UltraWinDock.WindowDockingArea()
|
||
CType(Me.uebMenu, System.ComponentModel.ISupportInitialize).BeginInit()
|
||
CType(Me.UltraToolbarsManager1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||
CType(Me.UltraDockManager1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||
Me._MDIENT_PanelAutoHideControl.SuspendLayout()
|
||
Me.DockableWindow1.SuspendLayout()
|
||
Me.SuspendLayout()
|
||
'
|
||
'uebMenu
|
||
'
|
||
Me.uebMenu.Location = New System.Drawing.Point(0, 18)
|
||
Me.uebMenu.Name = "uebMenu"
|
||
Me.uebMenu.Size = New System.Drawing.Size(300, 424)
|
||
Me.uebMenu.TabIndex = 10
|
||
'
|
||
'UltraToolbarsManager1
|
||
'
|
||
Me.UltraToolbarsManager1.DesignerFlags = 1
|
||
Me.UltraToolbarsManager1.DockWithinContainer = Me
|
||
Me.UltraToolbarsManager1.DockWithinContainerBaseType = GetType(System.Windows.Forms.Form)
|
||
'
|
||
'_MDIENT_Panel_Toolbars_Dock_Area_Left
|
||
'
|
||
Me._MDIENT_Panel_Toolbars_Dock_Area_Left.AccessibleRole = System.Windows.Forms.AccessibleRole.Grouping
|
||
Me._MDIENT_Panel_Toolbars_Dock_Area_Left.BackColor = System.Drawing.SystemColors.Control
|
||
Me._MDIENT_Panel_Toolbars_Dock_Area_Left.DockedPosition = Infragistics.Win.UltraWinToolbars.DockedPosition.Left
|
||
Me._MDIENT_Panel_Toolbars_Dock_Area_Left.ForeColor = System.Drawing.SystemColors.ControlText
|
||
Me._MDIENT_Panel_Toolbars_Dock_Area_Left.Location = New System.Drawing.Point(0, 0)
|
||
Me._MDIENT_Panel_Toolbars_Dock_Area_Left.Name = "_MDIENT_Panel_Toolbars_Dock_Area_Left"
|
||
Me._MDIENT_Panel_Toolbars_Dock_Area_Left.Size = New System.Drawing.Size(0, 442)
|
||
Me._MDIENT_Panel_Toolbars_Dock_Area_Left.ToolbarsManager = Me.UltraToolbarsManager1
|
||
'
|
||
'_MDIENT_Panel_Toolbars_Dock_Area_Right
|
||
'
|
||
Me._MDIENT_Panel_Toolbars_Dock_Area_Right.AccessibleRole = System.Windows.Forms.AccessibleRole.Grouping
|
||
Me._MDIENT_Panel_Toolbars_Dock_Area_Right.BackColor = System.Drawing.SystemColors.Control
|
||
Me._MDIENT_Panel_Toolbars_Dock_Area_Right.DockedPosition = Infragistics.Win.UltraWinToolbars.DockedPosition.Right
|
||
Me._MDIENT_Panel_Toolbars_Dock_Area_Right.ForeColor = System.Drawing.SystemColors.ControlText
|
||
Me._MDIENT_Panel_Toolbars_Dock_Area_Right.Location = New System.Drawing.Point(624, 0)
|
||
Me._MDIENT_Panel_Toolbars_Dock_Area_Right.Name = "_MDIENT_Panel_Toolbars_Dock_Area_Right"
|
||
Me._MDIENT_Panel_Toolbars_Dock_Area_Right.Size = New System.Drawing.Size(0, 442)
|
||
Me._MDIENT_Panel_Toolbars_Dock_Area_Right.ToolbarsManager = Me.UltraToolbarsManager1
|
||
'
|
||
'_MDIENT_Panel_Toolbars_Dock_Area_Top
|
||
'
|
||
Me._MDIENT_Panel_Toolbars_Dock_Area_Top.AccessibleRole = System.Windows.Forms.AccessibleRole.Grouping
|
||
Me._MDIENT_Panel_Toolbars_Dock_Area_Top.BackColor = System.Drawing.SystemColors.Control
|
||
Me._MDIENT_Panel_Toolbars_Dock_Area_Top.DockedPosition = Infragistics.Win.UltraWinToolbars.DockedPosition.Top
|
||
Me._MDIENT_Panel_Toolbars_Dock_Area_Top.ForeColor = System.Drawing.SystemColors.ControlText
|
||
Me._MDIENT_Panel_Toolbars_Dock_Area_Top.Location = New System.Drawing.Point(0, 0)
|
||
Me._MDIENT_Panel_Toolbars_Dock_Area_Top.Name = "_MDIENT_Panel_Toolbars_Dock_Area_Top"
|
||
Me._MDIENT_Panel_Toolbars_Dock_Area_Top.Size = New System.Drawing.Size(624, 0)
|
||
Me._MDIENT_Panel_Toolbars_Dock_Area_Top.ToolbarsManager = Me.UltraToolbarsManager1
|
||
'
|
||
'_MDIENT_Panel_Toolbars_Dock_Area_Bottom
|
||
'
|
||
Me._MDIENT_Panel_Toolbars_Dock_Area_Bottom.AccessibleRole = System.Windows.Forms.AccessibleRole.Grouping
|
||
Me._MDIENT_Panel_Toolbars_Dock_Area_Bottom.BackColor = System.Drawing.SystemColors.Control
|
||
Me._MDIENT_Panel_Toolbars_Dock_Area_Bottom.DockedPosition = Infragistics.Win.UltraWinToolbars.DockedPosition.Bottom
|
||
Me._MDIENT_Panel_Toolbars_Dock_Area_Bottom.ForeColor = System.Drawing.SystemColors.ControlText
|
||
Me._MDIENT_Panel_Toolbars_Dock_Area_Bottom.Location = New System.Drawing.Point(0, 442)
|
||
Me._MDIENT_Panel_Toolbars_Dock_Area_Bottom.Name = "_MDIENT_Panel_Toolbars_Dock_Area_Bottom"
|
||
Me._MDIENT_Panel_Toolbars_Dock_Area_Bottom.Size = New System.Drawing.Size(624, 0)
|
||
Me._MDIENT_Panel_Toolbars_Dock_Area_Bottom.ToolbarsManager = Me.UltraToolbarsManager1
|
||
'
|
||
'UltraDockManager1
|
||
'
|
||
DockableControlPane2.Control = Me.uebMenu
|
||
DockableControlPane2.FlyoutSize = New System.Drawing.Size(239, -1)
|
||
DockableControlPane2.Key = "WIPModule"
|
||
DockableControlPane2.OriginalControlBounds = New System.Drawing.Rectangle(208, 112, 175, 230)
|
||
DockableControlPane2.Pinned = False
|
||
DockableControlPane2.Size = New System.Drawing.Size(100, 100)
|
||
DockableControlPane2.Text = "WIP"
|
||
DockAreaPane2.Panes.AddRange(New Infragistics.Win.UltraWinDock.DockablePaneBase() {DockableControlPane2})
|
||
DockAreaPane2.Size = New System.Drawing.Size(239, 294)
|
||
Me.UltraDockManager1.DockAreas.AddRange(New Infragistics.Win.UltraWinDock.DockAreaPane() {DockAreaPane2})
|
||
Me.UltraDockManager1.HostControl = Me
|
||
Me.UltraDockManager1.ShowCloseButton = False
|
||
'
|
||
'_MDIENT_PanelUnpinnedTabAreaLeft
|
||
'
|
||
Me._MDIENT_PanelUnpinnedTabAreaLeft.Dock = System.Windows.Forms.DockStyle.Left
|
||
Me._MDIENT_PanelUnpinnedTabAreaLeft.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
|
||
Me._MDIENT_PanelUnpinnedTabAreaLeft.Location = New System.Drawing.Point(0, 0)
|
||
Me._MDIENT_PanelUnpinnedTabAreaLeft.Name = "_MDIENT_PanelUnpinnedTabAreaLeft"
|
||
Me._MDIENT_PanelUnpinnedTabAreaLeft.Owner = Me.UltraDockManager1
|
||
Me._MDIENT_PanelUnpinnedTabAreaLeft.Size = New System.Drawing.Size(21, 442)
|
||
Me._MDIENT_PanelUnpinnedTabAreaLeft.TabIndex = 5
|
||
'
|
||
'_MDIENT_PanelUnpinnedTabAreaRight
|
||
'
|
||
Me._MDIENT_PanelUnpinnedTabAreaRight.Dock = System.Windows.Forms.DockStyle.Right
|
||
Me._MDIENT_PanelUnpinnedTabAreaRight.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
|
||
Me._MDIENT_PanelUnpinnedTabAreaRight.Location = New System.Drawing.Point(624, 0)
|
||
Me._MDIENT_PanelUnpinnedTabAreaRight.Name = "_MDIENT_PanelUnpinnedTabAreaRight"
|
||
Me._MDIENT_PanelUnpinnedTabAreaRight.Owner = Me.UltraDockManager1
|
||
Me._MDIENT_PanelUnpinnedTabAreaRight.Size = New System.Drawing.Size(0, 442)
|
||
Me._MDIENT_PanelUnpinnedTabAreaRight.TabIndex = 6
|
||
'
|
||
'_MDIENT_PanelUnpinnedTabAreaTop
|
||
'
|
||
Me._MDIENT_PanelUnpinnedTabAreaTop.Dock = System.Windows.Forms.DockStyle.Top
|
||
Me._MDIENT_PanelUnpinnedTabAreaTop.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
|
||
Me._MDIENT_PanelUnpinnedTabAreaTop.Location = New System.Drawing.Point(21, 0)
|
||
Me._MDIENT_PanelUnpinnedTabAreaTop.Name = "_MDIENT_PanelUnpinnedTabAreaTop"
|
||
Me._MDIENT_PanelUnpinnedTabAreaTop.Owner = Me.UltraDockManager1
|
||
Me._MDIENT_PanelUnpinnedTabAreaTop.Size = New System.Drawing.Size(603, 0)
|
||
Me._MDIENT_PanelUnpinnedTabAreaTop.TabIndex = 7
|
||
'
|
||
'_MDIENT_PanelUnpinnedTabAreaBottom
|
||
'
|
||
Me._MDIENT_PanelUnpinnedTabAreaBottom.Dock = System.Windows.Forms.DockStyle.Bottom
|
||
Me._MDIENT_PanelUnpinnedTabAreaBottom.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
|
||
Me._MDIENT_PanelUnpinnedTabAreaBottom.Location = New System.Drawing.Point(21, 442)
|
||
Me._MDIENT_PanelUnpinnedTabAreaBottom.Name = "_MDIENT_PanelUnpinnedTabAreaBottom"
|
||
Me._MDIENT_PanelUnpinnedTabAreaBottom.Owner = Me.UltraDockManager1
|
||
Me._MDIENT_PanelUnpinnedTabAreaBottom.Size = New System.Drawing.Size(603, 0)
|
||
Me._MDIENT_PanelUnpinnedTabAreaBottom.TabIndex = 8
|
||
'
|
||
'_MDIENT_PanelAutoHideControl
|
||
'
|
||
Me._MDIENT_PanelAutoHideControl.Controls.Add(Me.DockableWindow1)
|
||
Me._MDIENT_PanelAutoHideControl.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
|
||
Me._MDIENT_PanelAutoHideControl.Location = New System.Drawing.Point(21, 0)
|
||
Me._MDIENT_PanelAutoHideControl.Name = "_MDIENT_PanelAutoHideControl"
|
||
Me._MDIENT_PanelAutoHideControl.Owner = Me.UltraDockManager1
|
||
Me._MDIENT_PanelAutoHideControl.Size = New System.Drawing.Size(14, 442)
|
||
Me._MDIENT_PanelAutoHideControl.TabIndex = 9
|
||
'
|
||
'DockableWindow1
|
||
'
|
||
Me.DockableWindow1.Controls.Add(Me.uebMenu)
|
||
Me.DockableWindow1.Location = New System.Drawing.Point(0, 0)
|
||
Me.DockableWindow1.Name = "DockableWindow1"
|
||
Me.DockableWindow1.Owner = Me.UltraDockManager1
|
||
Me.DockableWindow1.Size = New System.Drawing.Size(239, 442)
|
||
Me.DockableWindow1.TabIndex = 17
|
||
'
|
||
'WindowDockingArea1
|
||
'
|
||
Me.WindowDockingArea1.Dock = System.Windows.Forms.DockStyle.Left
|
||
Me.WindowDockingArea1.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
|
||
Me.WindowDockingArea1.Location = New System.Drawing.Point(21, 0)
|
||
Me.WindowDockingArea1.Name = "WindowDockingArea1"
|
||
Me.WindowDockingArea1.Owner = Me.UltraDockManager1
|
||
Me.WindowDockingArea1.Size = New System.Drawing.Size(244, 294)
|
||
Me.WindowDockingArea1.TabIndex = 11
|
||
'
|
||
'MDI_Panel
|
||
'
|
||
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 14)
|
||
Me.ClientSize = New System.Drawing.Size(624, 442)
|
||
Me.Controls.Add(Me._MDIENT_PanelAutoHideControl)
|
||
Me.Controls.Add(Me.WindowDockingArea1)
|
||
Me.Controls.Add(Me._MDIENT_PanelUnpinnedTabAreaTop)
|
||
Me.Controls.Add(Me._MDIENT_PanelUnpinnedTabAreaBottom)
|
||
Me.Controls.Add(Me._MDIENT_PanelUnpinnedTabAreaLeft)
|
||
Me.Controls.Add(Me._MDIENT_PanelUnpinnedTabAreaRight)
|
||
Me.Controls.Add(Me._MDIENT_Panel_Toolbars_Dock_Area_Left)
|
||
Me.Controls.Add(Me._MDIENT_Panel_Toolbars_Dock_Area_Right)
|
||
Me.Controls.Add(Me._MDIENT_Panel_Toolbars_Dock_Area_Bottom)
|
||
Me.Controls.Add(Me._MDIENT_Panel_Toolbars_Dock_Area_Top)
|
||
Me.Font = New System.Drawing.Font("Times New Roman", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
|
||
Me.IsMdiContainer = True
|
||
Me.Name = "MDI_Panel"
|
||
Me.Text = "Test"
|
||
Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
|
||
CType(Me.uebMenu, System.ComponentModel.ISupportInitialize).EndInit()
|
||
CType(Me.UltraToolbarsManager1, System.ComponentModel.ISupportInitialize).EndInit()
|
||
CType(Me.UltraDockManager1, System.ComponentModel.ISupportInitialize).EndInit()
|
||
Me._MDIENT_PanelAutoHideControl.ResumeLayout(False)
|
||
Me.DockableWindow1.ResumeLayout(False)
|
||
Me.ResumeLayout(False)
|
||
|
||
End Sub
|
||
|
||
#End Region
|
||
|
||
Private Sub MDIENT_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||
|
||
Cursor.Current = Cursors.WaitCursor
|
||
|
||
''---掛載Online Help----
|
||
Dim clsHelp As New clsOnlineHelp
|
||
clsHelp.AddEventToForm(Me)
|
||
|
||
'set BackColor
|
||
Call setMDIBackColor(Me)
|
||
|
||
ModuleNo = "SYS"
|
||
|
||
' 2016/05/09 YF, 產生選單
|
||
GenerateMenu()
|
||
|
||
'3.Get EnterpriseNo-----------------------------------------------------------------------------------------------------------
|
||
Call funGetEnterpriseNo()
|
||
|
||
'4.版本檢查
|
||
Call ChkVersion()
|
||
|
||
'Me.Text = Me.Text & " - " & GetClientVersion() 'Gary Lu 20120718:標題加上版本編號
|
||
|
||
'5.Execute Change Resource-----------------------------------------------------------------------------------------------------
|
||
'Call ExeChangeResource(Me, gLanguageMode)
|
||
|
||
'6.Set iMESExceptionManager LanguageMode---------------------------------------------------------------------------------------
|
||
iMESExceptionManager.ExceptionManager.LanguageMode = gLanguageMode
|
||
|
||
Cursor.Current = Cursors.Default
|
||
|
||
End Sub
|
||
|
||
#Region " UltraWinToolbars Menu & ToolBar Function "
|
||
|
||
Private Function funCreateUltraPopupMenuToolbar(ByRef ParentMenuItem As iMESMenuItem) As PopupMenuTool
|
||
|
||
|
||
'PopupMenuTool
|
||
popMDI = New PopupMenuTool(ParentMenuItem.Name)
|
||
popMDI.SharedProps.Tag = ParentMenuItem.Name
|
||
popMDI.SharedProps.ToolTipText = ParentMenuItem.Name
|
||
UltraToolbarsManager1.Tools.Add(popMDI)
|
||
|
||
Return popMDI
|
||
|
||
End Function
|
||
|
||
Private Function funCreateUltraButtonMenuToolbar(ByRef ParentMenuItem As iMESMenuItem)
|
||
|
||
'Button Tool
|
||
btlMDI = New ButtonTool(ParentMenuItem.Name)
|
||
btlMDI.SharedProps.Tag = ParentMenuItem.Name
|
||
btlMDI.SharedProps.ToolTipText = ParentMenuItem.Name
|
||
UltraToolbarsManager1.Tools.Add(btlMDI)
|
||
|
||
utbMDIMenu.Tools.AddRange(New Infragistics.Win.UltraWinToolbars.ToolBase() {btlMDI})
|
||
|
||
End Function
|
||
|
||
Private Sub funCreateUltraMenuItemToolbar(ByRef tmppopMDI As PopupMenuTool, ByRef ParentMenuItem As iMESMenuItem, Optional ByVal btlEnabled As Boolean = True)
|
||
|
||
If ParentMenuItem.Name.ToUpper = "EN" Or ParentMenuItem.Name.ToUpper = "ZH-CHT" Or
|
||
ParentMenuItem.Name.ToUpper = "ZH-CHS" Or ParentMenuItem.Name.ToUpper = "JP" Or
|
||
ParentMenuItem.Name.ToUpper = "KOR" Or ParentMenuItem.Name.ToUpper = "THAI" Or
|
||
ParentMenuItem.Name.ToUpper = "VIET" Then
|
||
|
||
funCreateUltraStatButtonToolbar(tmppopMDI, ParentMenuItem, , "LanguageMode")
|
||
|
||
ElseIf ParentMenuItem.Checkable = True Then
|
||
|
||
funCreateUltraStatButtonToolbar(tmppopMDI, ParentMenuItem, btlEnabled)
|
||
|
||
Else
|
||
|
||
'產生UltraToolBar Button
|
||
btlMDI = New ButtonTool(ParentMenuItem.Name)
|
||
btlMDI.SharedProps.Tag = ParentMenuItem.Name
|
||
btlMDI.SharedProps.ToolTipText = ParentMenuItem.Name
|
||
btlMDI.SharedProps.Enabled = btlEnabled
|
||
|
||
If Not ParentMenuItem.Icon Is Nothing Then
|
||
'Image
|
||
imlMDI.Images.Add(ParentMenuItem.Icon)
|
||
|
||
btlMDI.SharedProps.AppearancesSmall.Appearance.Image = imlMDI.Images.Count - 1
|
||
|
||
End If
|
||
|
||
|
||
btlMDI.SharedProps.Shortcut = ParentMenuItem.Shortcut
|
||
|
||
UltraToolbarsManager1.Tools.Add(btlMDI)
|
||
tmppopMDI.Tools.AddRange(New Infragistics.Win.UltraWinToolbars.ToolBase() {btlMDI})
|
||
|
||
End If
|
||
|
||
|
||
End Sub
|
||
|
||
Private Sub funCreateUltraStatButtonToolbar(ByRef tmppopMDI As PopupMenuTool, ByRef ParentMenuItem As iMESMenuItem, Optional ByVal btlEnabled As Boolean = True, Optional ByVal tmpOptionSetKey As String = "")
|
||
|
||
'產生UltraToolBar Button
|
||
sbtMDI = New StateButtonTool(ParentMenuItem.Name)
|
||
sbtMDI.MenuDisplayStyle = Infragistics.Win.UltraWinToolbars.StateButtonMenuDisplayStyle.DisplayCheckmark
|
||
sbtMDI.SharedProps.Tag = ParentMenuItem.Name
|
||
sbtMDI.SharedProps.ToolTipText = ParentMenuItem.Name
|
||
sbtMDI.SharedProps.Enabled = btlEnabled
|
||
sbtMDI.OptionSetKey = tmpOptionSetKey
|
||
|
||
If gLanguageMode.ToUpper = ParentMenuItem.Name.ToUpper Or ParentMenuItem.Checked = True Then
|
||
sbtMDI.Checked = True
|
||
End If
|
||
|
||
|
||
If Not ParentMenuItem.Icon Is Nothing Then
|
||
'Image
|
||
imlMDI.Images.Add(ParentMenuItem.Icon)
|
||
|
||
sbtMDI.SharedProps.AppearancesSmall.Appearance.Image = imlMDI.Images.Count - 1
|
||
|
||
End If
|
||
|
||
sbtMDI.SharedProps.Shortcut = ParentMenuItem.Shortcut
|
||
|
||
UltraToolbarsManager1.Tools.Add(sbtMDI)
|
||
tmppopMDI.Tools.AddRange(New Infragistics.Win.UltraWinToolbars.ToolBase() {sbtMDI})
|
||
|
||
End Sub
|
||
|
||
Private Sub funCreateUltraToolbar(ByRef ParentMenuItem As iMESMenuItem)
|
||
|
||
'產生UltraToolBar Button
|
||
If Not ParentMenuItem.Icon Is Nothing Then
|
||
'Image
|
||
imlMDI.Images.Add(ParentMenuItem.Icon)
|
||
'Button
|
||
btlMDI = New ButtonTool(ParentMenuItem.Name)
|
||
btlMDI.SharedProps.Tag = ParentMenuItem.Name
|
||
btlMDI.SharedProps.ToolTipText = ParentMenuItem.Name
|
||
btlMDI.SharedProps.AppearancesSmall.Appearance.Image = imlMDI.Images.Count - 1
|
||
utbMDI.Tools.AddRange(New Infragistics.Win.UltraWinToolbars.ToolBase() {btlMDI})
|
||
End If
|
||
|
||
End Sub
|
||
|
||
#End Region
|
||
|
||
|
||
#Region " UltraWinExplorerBar & UltraWinToolbars Events "
|
||
|
||
|
||
Private Sub uebRPTMenu_ItemClick(ByVal sender As System.Object, ByVal e As Infragistics.Win.UltraWinExplorerBar.ItemEventArgs) Handles uebMenu.ItemClick
|
||
ExecutingFunction(e.Item.Key)
|
||
End Sub
|
||
|
||
Private Sub uebRPTMenu_ItemDoubleClick(ByVal sender As System.Object, ByVal e As Infragistics.Win.UltraWinExplorerBar.ItemEventArgs) Handles uebMenu.ItemDoubleClick
|
||
ExecutingFunction(e.Item.Key)
|
||
End Sub
|
||
|
||
Private Sub UltraToolbarsManager1_ToolClick(ByVal sender As System.Object, ByVal e As Infragistics.Win.UltraWinToolbars.ToolClickEventArgs) Handles UltraToolbarsManager1.ToolClick
|
||
|
||
Dim strOptionSetKey As String = ""
|
||
|
||
If (e.Tool.GetType Is GetType(StateButtonTool)) Then
|
||
strOptionSetKey = CType(e.Tool, StateButtonTool).OptionSetKey
|
||
End If
|
||
|
||
ExecutingFunction(e.Tool.Key, strOptionSetKey)
|
||
|
||
End Sub
|
||
|
||
Protected Sub ExecutingFunction(ByVal FunctionKey As String, Optional OptionSetKey As String = "")
|
||
Dim strFormName As String
|
||
Dim TempChild As Form
|
||
Dim CurrentForm As Form
|
||
Cursor.Current = Cursors.WaitCursor
|
||
Try
|
||
|
||
' 2016/05/09 YF, 重新產生選單
|
||
If OptionSetKey = "MODULE" Then
|
||
ModuleNo = FunctionKey.Replace("Module", "")
|
||
GenerateMenu()
|
||
Exit Sub
|
||
End If
|
||
|
||
Select Case FunctionKey.ToUpper
|
||
Case "EXIT"
|
||
'End
|
||
Me.Close()
|
||
Case "CASCADE"
|
||
Me.LayoutMdi(MdiLayout.Cascade)
|
||
Case "VERTICAL"
|
||
Me.LayoutMdi(MdiLayout.TileVertical)
|
||
Case "HORIZONTAL"
|
||
Me.LayoutMdi(MdiLayout.TileHorizontal)
|
||
|
||
'Change Language Mode
|
||
Case "zh-CHT".ToUpper
|
||
gLanguageMode = "zh-CHT"
|
||
|
||
iMESExceptionManager.ExceptionManager.LanguageMode = gLanguageMode
|
||
|
||
CurrentForm = Form.ActiveForm
|
||
|
||
If Not CurrentForm Is Nothing Then
|
||
Call ExeChangeResource(CurrentForm, gLanguageMode)
|
||
End If
|
||
|
||
'變更畫面上的表單（僅限MDI Child Form）
|
||
|
||
For Each TempChild In Me.MdiChildren
|
||
If Not (TempChild Is CurrentForm) Then
|
||
Call ExeChangeResource(TempChild, gLanguageMode)
|
||
End If
|
||
Next
|
||
|
||
'變更其他語系的Checked為False
|
||
'Call funChangeChecked(mnuMenuItem)
|
||
|
||
Case "zh-CHS".ToUpper
|
||
gLanguageMode = "zh-CHS"
|
||
|
||
iMESExceptionManager.ExceptionManager.LanguageMode = gLanguageMode
|
||
|
||
CurrentForm = Form.ActiveForm
|
||
|
||
If Not CurrentForm Is Nothing Then
|
||
Call ExeChangeResource(CurrentForm, gLanguageMode)
|
||
End If
|
||
|
||
'變更畫面上的表單（僅限MDI Child Form）
|
||
|
||
For Each TempChild In Me.MdiChildren
|
||
If Not (TempChild Is CurrentForm) Then
|
||
Call ExeChangeResource(TempChild, gLanguageMode)
|
||
End If
|
||
Next
|
||
|
||
'變更其他語系的Checked為False
|
||
'Call funChangeChecked(mnuMenuItem)
|
||
|
||
Case "en".ToUpper
|
||
gLanguageMode = "en"
|
||
|
||
iMESExceptionManager.ExceptionManager.LanguageMode = gLanguageMode
|
||
|
||
CurrentForm = Form.ActiveForm
|
||
|
||
If Not CurrentForm Is Nothing Then
|
||
Call ExeChangeResource(CurrentForm, gLanguageMode)
|
||
End If
|
||
|
||
'變更畫面上的表單（僅限MDI Child Form）
|
||
For Each TempChild In Me.MdiChildren
|
||
If Not (TempChild Is CurrentForm) Then
|
||
Call ExeChangeResource(TempChild, gLanguageMode)
|
||
End If
|
||
Next
|
||
|
||
'變更其他語系的Checked為False
|
||
'Call funChangeChecked(mnuMenuItem)
|
||
|
||
Case "jp".ToUpper
|
||
gLanguageMode = "jp"
|
||
|
||
iMESExceptionManager.ExceptionManager.LanguageMode = gLanguageMode
|
||
|
||
CurrentForm = Form.ActiveForm
|
||
|
||
If Not CurrentForm Is Nothing Then
|
||
Call ExeChangeResource(CurrentForm, gLanguageMode)
|
||
End If
|
||
|
||
'變更畫面上的表單（僅限MDI Child Form）
|
||
For Each TempChild In Me.MdiChildren
|
||
If Not (TempChild Is CurrentForm) Then
|
||
Call ExeChangeResource(TempChild, gLanguageMode)
|
||
End If
|
||
Next
|
||
|
||
'變更其他語系的Checked為False
|
||
'Call funChangeChecked(mnuMenuItem)
|
||
|
||
Case "kor".ToUpper 'Korea(韓國語系)
|
||
gLanguageMode = "kor"
|
||
|
||
iMESExceptionManager.ExceptionManager.LanguageMode = gLanguageMode
|
||
|
||
CurrentForm = Form.ActiveForm
|
||
|
||
If Not CurrentForm Is Nothing Then
|
||
Call ExeChangeResource(CurrentForm, gLanguageMode)
|
||
End If
|
||
|
||
'變更畫面上的表單（僅限MDI Child Form）
|
||
For Each TempChild In Me.MdiChildren
|
||
If Not (TempChild Is CurrentForm) Then
|
||
Call ExeChangeResource(TempChild, gLanguageMode)
|
||
End If
|
||
Next
|
||
|
||
'變更其他語系的Checked為False
|
||
'Call funChangeChecked(mnuMenuItem)
|
||
|
||
Case "thai".ToUpper 'Thailand(泰國語系)
|
||
gLanguageMode = "thai"
|
||
|
||
iMESExceptionManager.ExceptionManager.LanguageMode = gLanguageMode
|
||
|
||
CurrentForm = Form.ActiveForm
|
||
|
||
If Not CurrentForm Is Nothing Then
|
||
Call ExeChangeResource(CurrentForm, gLanguageMode)
|
||
End If
|
||
|
||
'變更畫面上的表單（僅限MDI Child Form）
|
||
For Each TempChild In Me.MdiChildren
|
||
If Not (TempChild Is CurrentForm) Then
|
||
Call ExeChangeResource(TempChild, gLanguageMode)
|
||
End If
|
||
Next
|
||
|
||
'變更其他語系的Checked為False
|
||
'Call funChangeChecked(mnuMenuItem)
|
||
|
||
Case "viet".ToUpper 'VietNam(越南語系)
|
||
gLanguageMode = "viet"
|
||
|
||
iMESExceptionManager.ExceptionManager.LanguageMode = gLanguageMode
|
||
|
||
CurrentForm = Form.ActiveForm
|
||
|
||
If Not CurrentForm Is Nothing Then
|
||
Call ExeChangeResource(CurrentForm, gLanguageMode)
|
||
End If
|
||
|
||
'變更畫面上的表單（僅限MDI Child Form）
|
||
For Each TempChild In Me.MdiChildren
|
||
If Not (TempChild Is CurrentForm) Then
|
||
Call ExeChangeResource(TempChild, gLanguageMode)
|
||
End If
|
||
Next
|
||
|
||
'變更其他語系的Checked為False
|
||
'Call funChangeChecked(mnuMenuItem)
|
||
|
||
Case "ABOUTME"
|
||
strFormName = "frmAboutMe"
|
||
blnShow = False
|
||
For i = 0 To Me.MdiChildren.Length - 1
|
||
If Me.MdiChildren(i).Name = strFormName Then
|
||
Me.MdiChildren(i).Focus()
|
||
blnShow = True
|
||
Exit For
|
||
End If
|
||
Next
|
||
|
||
If blnShow = False Then '目前沒有顯示
|
||
|
||
Dim mainAssembly As System.Reflection.Assembly = LoadAssembly("COM_AboutMe.dll")
|
||
|
||
If (mainAssembly Is Nothing) Then
|
||
Exit Sub
|
||
End If
|
||
|
||
Dim objForm As Form = mainAssembly.CreateInstance(mainAssembly.GetName.Name & "." & strFormName)
|
||
|
||
If objForm Is Nothing Then 'Form不存在
|
||
MsgBox("Form : " & strFormName & " is not exist!!", MsgBoxStyle.Exclamation)
|
||
Exit Sub
|
||
End If
|
||
|
||
objForm.MdiParent = MDI_Panel.ActiveForm
|
||
objForm.AutoScaleMode = Windows.Forms.AutoScaleMode.None
|
||
objForm.Show()
|
||
|
||
End If
|
||
|
||
Case Else
|
||
|
||
Dim strExecutionFile As String = dsData.Tables(strUserPriv).Select("FunctionNo='" & FunctionKey & "'")(0)("ExecutionFile")
|
||
strFormName = dsData.Tables(strUserPriv).Select("FunctionNo='" & FunctionKey & "'")(0)("FormName")
|
||
|
||
If (Not Application.OpenForms.Item(strFormName) Is Nothing) AndAlso (strFormName <> "frmRPT_Script") Then
|
||
If Application.OpenForms.Item(strFormName).WindowState <> FormWindowState.Normal Then Application.OpenForms.Item(strFormName).WindowState = FormWindowState.Normal
|
||
Application.OpenForms.Item(strFormName).Focus()
|
||
Exit Sub
|
||
End If
|
||
|
||
Dim mainAssembly As System.Reflection.Assembly = LoadAssembly(strExecutionFile)
|
||
|
||
If (mainAssembly Is Nothing) Then
|
||
Exit Sub
|
||
End If
|
||
|
||
'Show Form
|
||
'Dim mainAssembly As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly
|
||
'Dim objForm As Form = mainAssembly.CreateInstance(mainAssembly.EntryPoint.ReflectedType.Namespace & "." & strFormName)
|
||
Dim objForm As Form = mainAssembly.CreateInstance(mainAssembly.GetName.Name & "." & strFormName)
|
||
|
||
If objForm Is Nothing Then 'Form不存在
|
||
MsgBox("Form : " & strFormName & " is not exist!!", MsgBoxStyle.Exclamation)
|
||
Exit Sub
|
||
End If
|
||
|
||
objForm.MdiParent = MDI_Panel.ActiveForm
|
||
|
||
'設定值予公用變數
|
||
Dim myfieldinfo() As System.Reflection.FieldInfo
|
||
Dim myType As Type = objForm.GetType
|
||
Dim i As Integer
|
||
myfieldinfo = myType.GetFields()
|
||
For i = 0 To myfieldinfo.Length - 1
|
||
If myfieldinfo(i).Name.ToUpper = "PrivFunNo".ToUpper Then
|
||
myfieldinfo(i).SetValue(objForm, FunctionKey)
|
||
End If
|
||
Next i
|
||
objForm.AutoScaleMode = Windows.Forms.AutoScaleMode.None
|
||
objForm.Show()
|
||
|
||
End Select
|
||
|
||
Catch ex As Exception
|
||
MsgBox("This Function can not be executed. " & ex.Message, MsgBoxStyle.Exclamation, "Warning")
|
||
'ExceptionManager.iMESShowDialog(defWinErrCode, ex.Message, ex.StackTrace)
|
||
End Try
|
||
Cursor.Current = Cursors.Default
|
||
End Sub
|
||
|
||
#End Region
|
||
|
||
Private Sub funLoadUserPriv()
|
||
|
||
If (Not dsData.Tables(strUserPriv) Is Nothing) Then
|
||
dsData.Tables.Remove(strUserPriv)
|
||
End If
|
||
|
||
Dim XmlDoc As New XmlDocument '處理Xml字串之物件?
|
||
Dim tmpStringReader As System.IO.StringReader '將字串轉換成可讀入DataSet的物件
|
||
Dim InXml, OutXml, strIdentity, strParameter As String '呼叫WS的字串參數
|
||
Dim XmlData, XmlSchema As String '儲存取回之資料及資料結構
|
||
|
||
'組InXml的字串
|
||
strIdentity = CombineXMLIdentity(gComputerName, gUserNo, GetNow())
|
||
strParameter = CombineXMLParameter("userno", "UserNo", "String", gUserNo, "")
|
||
strParameter = strParameter & CombineXMLParameter("moduleno", "ModuleNo", "String", ModuleNo, "")
|
||
InXml = CombineXMLRequest(strIdentity, strParameter)
|
||
|
||
Try
|
||
OutXml = InvokeSrv("wsUSR.LoadUserPriv", InXml)
|
||
XmlDoc.LoadXml(OutXml)
|
||
|
||
If ChkExecutionSuccess(XmlDoc) Then
|
||
strUserPriv = XmlDoc.GetElementsByTagName("returnvalue").Item(0).SelectNodes("loaduserpriv").Item(0).SelectNodes("name").Item(0).InnerXml
|
||
'取出Data
|
||
XmlData = XmlDoc.DocumentElement.GetElementsByTagName("loaduserpriv").Item(0).SelectNodes("value").Item(0).InnerXml
|
||
If XmlData <> "" Then
|
||
tmpStringReader = New System.IO.StringReader(XmlData)
|
||
dsData.ReadXml(tmpStringReader, XmlReadMode.InferSchema)
|
||
tmpStringReader.Close()
|
||
End If
|
||
Else
|
||
MsgBox(GetExceptionSysMsg(XmlDoc) & Chr(13) & GetExceptionMesMsg(XmlDoc), MsgBoxStyle.Exclamation)
|
||
Exit Sub
|
||
End If
|
||
|
||
Catch e1 As Exception
|
||
MsgBox("Unexpected Error. Load User's Priv Failed," & e1.Message, MsgBoxStyle.Exclamation)
|
||
Finally
|
||
XmlDoc = Nothing
|
||
tmpStringReader = Nothing
|
||
|
||
End Try
|
||
|
||
End Sub
|
||
|
||
Protected Overrides Sub Finalize()
|
||
MyBase.Finalize()
|
||
End Sub
|
||
|
||
Public Sub funGetEnterpriseNo()
|
||
|
||
Dim XmlDoc As New XmlDocument
|
||
Dim tmpStringReader As System.IO.StringReader
|
||
Dim InXml, OutXml, strIdentity, strParameter, XmlData, XmlSchema, strPara As String
|
||
Dim dsTemp As New DataSet
|
||
|
||
strIdentity = CombineXMLIdentity(gComputerName, gUserNo, GetNow())
|
||
strParameter = CombineXMLParameter("parameterno", "ParameterNo", "String", "EnterpriseNo", "")
|
||
InXml = CombineXMLRequest(strIdentity, strParameter)
|
||
|
||
Try
|
||
|
||
OutXml = InvokeSrv("wsSYS.LoadParameter", InXml)
|
||
|
||
XmlDoc.LoadXml(OutXml)
|
||
|
||
If ChkExecutionSuccess(XmlDoc) Then
|
||
|
||
strPara = XmlDoc.GetElementsByTagName("returnvalue").Item(0).SelectNodes("loadparameter").Item(0).SelectNodes("name").Item(0).InnerXml
|
||
|
||
XmlSchema = XmlDoc.DocumentElement.GetElementsByTagName("loadparameter").Item(0).SelectNodes("schema").Item(0).InnerXml
|
||
|
||
If XmlSchema <> "" Then
|
||
'將XML讀入String Reader object中,因為Dataset讀入XML時必須透過String Reader物件
|
||
tmpStringReader = New System.IO.StringReader(XmlSchema)
|
||
dsTemp.ReadXmlSchema(tmpStringReader)
|
||
tmpStringReader.Close()
|
||
End If
|
||
|
||
XmlData = XmlDoc.DocumentElement.GetElementsByTagName("loadparameter").Item(0).SelectNodes("value").Item(0).InnerXml
|
||
|
||
If XmlData <> "" Then
|
||
tmpStringReader = New System.IO.StringReader(XmlData)
|
||
dsTemp.ReadXml(tmpStringReader, XmlReadMode.InferSchema)
|
||
tmpStringReader.Close()
|
||
End If
|
||
|
||
If dsTemp.Tables(strPara).Rows.Count > 0 Then
|
||
gEnterpriseNo = dsTemp.Tables(strPara).Rows(0)("ParameterValue").ToString.ToUpper
|
||
End If
|
||
|
||
Else
|
||
MsgBox(GetExceptionSysMsg(XmlDoc) & Chr(13) & GetExceptionMesMsg(XmlDoc), MsgBoxStyle.Exclamation)
|
||
End If
|
||
|
||
Catch ex As Exception
|
||
MsgBox("Unexpected Error. GetEnterpriseNo failed, " & ex.Message, MsgBoxStyle.Exclamation)
|
||
Finally
|
||
XmlDoc = Nothing
|
||
tmpStringReader = Nothing
|
||
dsTemp = Nothing
|
||
End Try
|
||
|
||
End Sub
|
||
|
||
' 2016/05/09 YF, 產生模組選單
|
||
Private Sub GenerateModuleItems()
|
||
|
||
Dim aryModule() As String = {"AUT", "DT", "EMS", "ENT", "EQP", "IEW", "INV", "ISU", "MSA", "MTL", "OE", "OP", "PM", "PRD", "PRS", "QC", "RPT", "SMD", "SPC", "SYS", "USR", "WIP"}
|
||
Dim popModule As PopupMenuTool
|
||
Dim sbt As StateButtonTool
|
||
|
||
Try
|
||
|
||
popModule = New PopupMenuTool("MODULE")
|
||
popModule.SharedProps.Tag = "MODULE"
|
||
popModule.SharedProps.ToolTipText = "MODULE"
|
||
UltraToolbarsManager1.Tools.Add(popModule)
|
||
|
||
'產生UltraToolBar Button
|
||
For Each m As String In aryModule
|
||
|
||
sbt = New StateButtonTool(m & "Module")
|
||
sbt.MenuDisplayStyle = Infragistics.Win.UltraWinToolbars.StateButtonMenuDisplayStyle.DisplayCheckmark
|
||
sbt.CustomizedCaption = m
|
||
sbt.SharedProps.Tag = m
|
||
sbt.SharedProps.ToolTipText = m
|
||
sbt.SharedProps.Enabled = True
|
||
sbt.OptionSetKey = "MODULE"
|
||
|
||
If ModuleNo = m Then
|
||
sbt.Checked = True
|
||
End If
|
||
|
||
UltraToolbarsManager1.Tools.Add(sbt)
|
||
popModule.Tools.AddRange(New Infragistics.Win.UltraWinToolbars.ToolBase() {sbt})
|
||
|
||
Next
|
||
|
||
Me.utbMDIMenu.Tools.AddRange(New Infragistics.Win.UltraWinToolbars.ToolBase() {popModule})
|
||
|
||
Me.utbMDIMenu.Tools.Item("MODULE").CustomizedIsFirstInGroup = DefaultableBoolean.True
|
||
|
||
Catch ex As Exception
|
||
MsgBox("GenerateModuleMenu failed, " & ex.Message, MsgBoxStyle.Exclamation)
|
||
End Try
|
||
|
||
End Sub
|
||
|
||
Private Sub GenerateMenu()
|
||
|
||
Try
|
||
|
||
' 2016/05/09 YF, 清空選單
|
||
RemoveObject()
|
||
|
||
'取出User Privileges
|
||
Call funLoadUserPriv()
|
||
|
||
'1.Create MainMenu-------------------------------------------------------------------------------------------------------------
|
||
Dim strFileName As String
|
||
strFileName = GetMainMenuFileName()
|
||
|
||
'檢查檔案是否存在
|
||
If Dir(strFileName) = "" Then 'File not exist
|
||
MsgBox(strFileName & vbCrLf & "is not exist,Load MDI Form failed!!", MsgBoxStyle.Exclamation)
|
||
Exit Sub
|
||
End If
|
||
|
||
'將處理 MenuItem 被點選的函數以 EventHandler Delegation 傳給 mnuMainMenu
|
||
Dim mnuMainMenu As New iMESMainMenu.iMESMainMenuControl(strFileName, Nothing)
|
||
|
||
'Add ExplorerBar MainMenu By carl 2007.08.14
|
||
Dim j As Integer
|
||
Dim tempMenuSplit As Integer = defInteger
|
||
Dim panelmenu As MainMenu = New MainMenu(mnuMainMenu.CreateMainMenu(ModuleNo))
|
||
Dim tmpMenuItem1 As iMESMenuItem
|
||
Dim tmpPopMenu As PopupMenuTool
|
||
UltraDockManager1.ControlPanes(0).Pinned = False
|
||
UltraDockManager1.ShowCloseButton = False
|
||
|
||
uebMenu.GroupSettings.AllowDrag = DefaultableBoolean.False
|
||
uebMenu.GroupSettings.AllowEdit = DefaultableBoolean.False
|
||
uebMenu.GroupSettings.AllowItemDrop = DefaultableBoolean.False
|
||
uebMenu.ItemSettings.AllowDragCopy = UltraWinExplorerBar.ItemDragStyle.None
|
||
uebMenu.ItemSettings.AllowDragMove = UltraWinExplorerBar.ItemDragStyle.None
|
||
uebMenu.ItemSettings.AllowEdit = DefaultableBoolean.False
|
||
uebMenu.ShowDefaultContextMenu = False
|
||
|
||
uebMenu.ItemSettings.UseDefaultImage = Infragistics.Win.DefaultableBoolean.False
|
||
uebMenu.ItemSettings.MaxLines = 2
|
||
|
||
If Not dsData.Tables(strUserPriv) Is Nothing Then '沒有任何權限,所有Privilege MenuItem都不可使用
|
||
|
||
For i = 0 To panelmenu.MenuItems.Count - 1
|
||
tmpMenuItem1 = CType(panelmenu.MenuItems(i), iMESMenuItem)
|
||
|
||
If i <= panelmenu.MenuItems.Count - 4 Then
|
||
uebMenu.Groups.Add(tmpMenuItem1.Text.ToUpper)
|
||
uebMenu.Groups(i).Expanded = True
|
||
End If
|
||
|
||
If tmpMenuItem1.Name.ToUpper = "EXIT" Then
|
||
|
||
funCreateUltraButtonMenuToolbar(tmpMenuItem1)
|
||
|
||
Else
|
||
|
||
tmpPopMenu = funCreateUltraPopupMenuToolbar(tmpMenuItem1)
|
||
|
||
For j = 0 To tmpMenuItem1.MenuItems.Count - 1
|
||
If CType(tmpMenuItem1.MenuItems(j), iMESMenuItem).MenuType = iMESMenuItem.mesMenuType.MenuPrivilege Then
|
||
If dsData.Tables(strUserPriv).Select("FunctionNo='" & tmpMenuItem1.MenuItems(j).Text.ToUpper & "'").Length > 0 Then
|
||
funCreateUltraMenuItemToolbar(tmpPopMenu, CType(tmpMenuItem1.MenuItems(j), iMESMenuItem))
|
||
|
||
uebMenu.Groups(i).Items.Add(tmpMenuItem1.MenuItems(j).Text)
|
||
|
||
funCreateUltraToolbar(CType(tmpMenuItem1.MenuItems(j), iMESMenuItem))
|
||
|
||
If tempMenuSplit = j Then
|
||
tmpPopMenu.Tools(tmpMenuItem1.MenuItems(j).Text).InstanceProps.IsFirstInGroup = True
|
||
End If
|
||
|
||
Else
|
||
funCreateUltraMenuItemToolbar(tmpPopMenu, CType(tmpMenuItem1.MenuItems(j), iMESMenuItem), False)
|
||
|
||
If tempMenuSplit = j Then
|
||
tmpPopMenu.Tools(tmpMenuItem1.MenuItems(j).Text).InstanceProps.IsFirstInGroup = True
|
||
End If
|
||
|
||
End If
|
||
|
||
ElseIf CType(tmpMenuItem1.MenuItems(j), iMESMenuItem).MenuType = iMESMenuItem.mesMenuType.MenuString Then
|
||
|
||
|
||
funCreateUltraMenuItemToolbar(tmpPopMenu, CType(tmpMenuItem1.MenuItems(j), iMESMenuItem))
|
||
|
||
If tempMenuSplit = j Then
|
||
tmpPopMenu.Tools(tmpMenuItem1.MenuItems(j).Text).InstanceProps.IsFirstInGroup = True
|
||
End If
|
||
|
||
ElseIf CType(tmpMenuItem1.MenuItems(j), iMESMenuItem).MenuType = iMESMenuItem.mesMenuType.MenuSplit Then
|
||
|
||
tempMenuSplit = j + 1
|
||
|
||
End If
|
||
|
||
Next
|
||
|
||
utbMDIMenu.Tools.AddRange(New Infragistics.Win.UltraWinToolbars.ToolBase() {tmpPopMenu})
|
||
|
||
End If
|
||
|
||
Next
|
||
|
||
End If
|
||
|
||
'Add UltraToolBar-----------------------------------------------------------------------------------------------------------------
|
||
If utbMDI.Tools.Count > 0 Then
|
||
imlMDI.ImageSize = New Size(24, 24)
|
||
utbMDI.Text = "Toolbar"
|
||
utbMDI.Settings.ToolDisplayStyle = ToolDisplayStyle.ImageAndText
|
||
utbMDI.Settings.CaptionPlacement = TextPlacement.Default
|
||
utbMDI.IsMainMenuBar = False
|
||
utbMDI.DockedPosition = DockedPosition.Top
|
||
UltraToolbarsManager1.Style = ToolbarStyle.Office2003
|
||
UltraToolbarsManager1.ImageListSmall = imlMDI
|
||
UltraToolbarsManager1.Toolbars.Add(utbMDI)
|
||
End If
|
||
|
||
'Add Menu UltraToolBar-----------------------------------------------------------------------------------------------------------------
|
||
If utbMDIMenu.Tools.Count > 0 Then
|
||
imlMDI.ImageSize = New Size(24, 24)
|
||
utbMDIMenu.Text = "MainMenu"
|
||
utbMDIMenu.Settings.ToolDisplayStyle = ToolDisplayStyle.ImageAndText
|
||
utbMDIMenu.Settings.CaptionPlacement = TextPlacement.Default
|
||
utbMDIMenu.IsMainMenuBar = True
|
||
utbMDIMenu.DockedPosition = DockedPosition.Top
|
||
UltraToolbarsManager1.OptionSets.Add(OptionSet1)
|
||
UltraToolbarsManager1.Style = ToolbarStyle.Office2003
|
||
UltraToolbarsManager1.ImageListSmall = imlMDI
|
||
UltraToolbarsManager1.Toolbars.Add(utbMDIMenu)
|
||
UltraToolbarsManager1.Toolbars("MainMenu").ToolbarsManager.ToolbarSettings.ToolSpacing = 5
|
||
End If
|
||
|
||
' 2016/05/09 YF, 產生模組選單
|
||
GenerateModuleItems()
|
||
|
||
Catch ex As Exception
|
||
MsgBox("GenerateMenuItem failed, " & ex.Message, MsgBoxStyle.Exclamation)
|
||
Finally
|
||
Me.Text = "Test"
|
||
ExeChangeResource(Me, gLanguageMode)
|
||
End Try
|
||
|
||
End Sub
|
||
|
||
Private Sub RemoveObject()
|
||
|
||
uebMenu.Groups.Clear()
|
||
utbMDIMenu.Tools.Clear()
|
||
utbMDI.Tools.Clear()
|
||
UltraToolbarsManager1.Toolbars.Clear()
|
||
UltraToolbarsManager1.Tools.Clear()
|
||
UltraToolbarsManager1.OptionSets.Clear()
|
||
Me.UltraDockManager1.DockAreas(0).Panes.Item(0).Text = ModuleNo
|
||
Me.UltraDockManager1.DockAreas(0).Panes.Item(0).Key = ModuleNo & "Module"
|
||
|
||
For i As Integer = Application.OpenForms.Count - 1 To 0 Step -1
|
||
|
||
If (Application.OpenForms.Item(i).Name <> "MDI_Panel") Then
|
||
Application.OpenForms.Item(i).Close()
|
||
End If
|
||
|
||
Next
|
||
|
||
End Sub
|
||
|
||
End Class
|