LzmTW.uSystem.uWindows.uForms.uMainForm.Menu(3)

Author：水如烟  

Namespace  LzmTW.uSystem.uWindows.uForms.uMainForm.Menu
     Public   Class  MenuDesignForm
         Private   Delegate   Sub  DataRefleshHandler( ByVal  sender  As  DataAction)
         Private   Event  DataReflesh  As  DataRefleshHandler

         Private  gDataCenter  As  DataCenter

         Private   Sub  MenuDesignForm_Load( ByVal  sender  As   Object ,  ByVal  e  As  System.EventArgs)  Handles   Me .Load
             Me .Icon  =   CType (SR.GetObject( " LzmTW " ), Drawing.Icon)
             Me .MainStripStatus.NotifyIcon  =   New  uNotifyIcon( Me )
            gDataCenter  =   New  DataCenter( Me )

             AddHandler   Me .ToolPanelTree.TreeView.AfterSelect,  AddressOf  TreeView_AfterSelect
         End Sub

         Private   Sub  TreeView_AfterSelect( ByVal  sender  As  System.Object,  ByVal  e  As  System.Windows.Forms.TreeViewEventArgs)
             Me .PropertyGrid.SelectedObject  =   Me .ToolPanelTree.TreeView.SelectedNode.Tag
         End Sub

         Private   Sub  AddToolStripMenuItem_Click( ByVal  sender  As  System.Object,  ByVal  e  As  System.EventArgs)  Handles  AddToolStripMenuItem.Click
             Dim  mTreeNode  As  TreeNode  =   Me .ToolPanelTree.TreeView.SelectedNode
             If  mTreeNode  Is   Nothing   Then   Exit Sub

             With  mTreeNode.Nodes.Add( " 新增 " )
                .Tag  =   New  MenuItem( "" ,  " 新增 " )
             End   With

         End Sub

         Private   Sub  DeleteToolStripMenuItem_Click( ByVal  sender  As  System.Object,  ByVal  e  As  System.EventArgs)  Handles  DeleteToolStripMenuItem.Click
             Dim  mTreeNode  As  TreeNode  =   Me .ToolPanelTree.TreeView.SelectedNode
             If  mTreeNode  Is   Nothing   Then   Exit Sub

            mTreeNode.Remove()
         End Sub

         Private   Sub  DataGridView_CurrentCellChanged( ByVal  sender  As   Object ,  ByVal  e  As  System.EventArgs)  Handles  DataGridView1.CurrentCellChanged
             Dim  mCurrentRow  As  DataGridViewRow  =   Me .DataGridView1.CurrentRow

             If  mCurrentRow  Is   Nothing   Then   Return

             Dim  mCode  As   Object

            mCode  =  mCurrentRow.Cells( " Code " ).Value

             If  mCode  Is  DBNull.Value  Then   Return

             Dim  mTreeNodes()  As  TreeNode  =   Nothing
            mTreeNodes  =   Me .ToolPanelTree.TreeView.Nodes.Find(mCode.ToString,  True )

             Dim  mSelectNode  As  TreeNode  =   Nothing
             If  mTreeNodes.Length  >   0   Then
                mSelectNode  =  mTreeNodes( 0 )
             End   If
             Me .ToolPanelTree.TreeView.SelectedNode  =  mSelectNode
         End Sub


         Private   Sub  MainToolStrip_ItemClicked( ByVal  sender  As  System.Object,  ByVal  e  As  System.Windows.Forms.ToolStripItemClickedEventArgs)  Handles  MainToolStrip.ItemClicked
             Select   Case  e.ClickedItem.Name
                 Case   " ClearToolStripButton "
                     RaiseEvent  DataReflesh(DataAction.Clear)
                 Case   " GetDefaultToolStripButton "
                     RaiseEvent  DataReflesh(DataAction.LoadByDefault)
                 Case   " OpenFileToolStripButton "
                     RaiseEvent  DataReflesh(DataAction.LoadByMnuFile)
                 Case   " RefleshByTreeToolStripButton "
                     RaiseEvent  DataReflesh(DataAction.UpdateByTreeView)
                 Case   " RefleshByDataGridViewToolStripButton "
                     RaiseEvent  DataReflesh(DataAction.UpdateByDataGridView)
                 Case   " SaveFileToolStripButton "
                     RaiseEvent  DataReflesh(DataAction.SaveMnuFile)
                 Case   " EventCodeToolStripButton "
                     RaiseEvent  DataReflesh(DataAction.EventCode)
             End   Select
         End Sub


         Private   Enum  DataAction
            Clear
            LoadByDefault
            LoadByMnuFile
            UpdateByTreeView
            UpdateByDataGridView
            SaveMnuFile
            EventCode
         End Enum

         Private   Class  DataCenter
             Private   WithEvents  gForm  As  MenuDesignForm

             Private  gManager  As  MenuManager
             Private  gFileName  As   String
             Private  gIsInitialize  As   Boolean   =   True

             Sub   New ( ByVal  designForm  As  MenuDesignForm)
                 Me .gForm  =  designForm
                gManager  =   New  MenuManager(designForm.gMainMenuStrip)
             End Sub

             Private   Sub  gForm_DataReflesh( ByVal  sender  As  DataAction)  Handles  gForm.DataReflesh
                 Select   Case  sender
                     Case  DataAction.Clear
                         Me .gManager.Clear()
                        UpdateUI( True ,  True )

                     Case  DataAction.LoadByDefault
                        gManager.GetDefault()
                        UpdateUI( True ,  True )

                     Case  DataAction.LoadByMnuFile
                         Dim  f  As   New  OpenFileDialog
                         Using  f
                             With  f
                                .Title  =   " 选择菜单文件 "
                                .AddExtension  =   True
                                .DefaultExt  =   " mnu "
                                .Filter  =   " 菜单文件|*.mnu "
                                .InitialDirectory  =  LzmTW.EntryAssemblyInfo.Instance.DirectoryPath
                                .Multiselect  =   False
                             End   With
                             If  f.ShowDialog  =  Windows.Forms.DialogResult.OK  Then
                                gFileName  =  f.FileName
                                 Me .gManager.ReadFile(gFileName)
                                UpdateUI( True ,  True )
                             End   If
                         End   Using

                     Case  DataAction.UpdateByTreeView
                         Me .gManager.RefleshBy( Me .gForm.ToolPanelTree.TreeView)
                        UpdateUI( True ,  True )

                     Case  DataAction.UpdateByDataGridView
                         Me .gManager.RefleshBy( CType ( CType ( Me .gForm.DataGridView1.DataSource, BindingSource).DataSource, DataTable))
                        UpdateUI( True ,  True )

                     Case  DataAction.SaveMnuFile
                         Dim  f  As   New  SaveFileDialog
                         Using  f
                             With  f
                                .Title  =   " 保存菜单文件 "
                                .AddExtension  =   True
                                .DefaultExt  =   " mnu "
                                .Filter  =   " 菜单文件|*.mnu "
                                .InitialDirectory  =  LzmTW.EntryAssemblyInfo.Instance.DirectoryPath
                                .FileName  =  gFileName
                             End   With
                             If  f.ShowDialog  =  Windows.Forms.DialogResult.OK  Then
                                gFileName  =  f.FileName
                                 Me .gManager.SaveFile(gFileName)
                             End   If
                         End   Using

                     Case  DataAction.EventCode
                         If   Me .gForm.DataGridView1.RowCount  =   0   Then   Exit Sub

                         Dim  f  As   New  Form
                         Dim  mRichTextBox  As   New  RichTextBox
                        mRichTextBox.Dock  =  DockStyle.Fill

                         With  f
                            .Text  =   " 事件代码 "
                            .Controls.Add(mRichTextBox)
                         End   With

                         Dim  b  As   New  System.Text.StringBuilder
                         Dim  mFormat  As   String   =   " Protected Overridable Sub On{0}Click(ByVal sender As System.Object, ByVal e As System.EventArgs) ' {0} "  _
                             &  System.Environment.NewLine  &   "    MsgBox(""{0}"") "   &  System.Environment.NewLine  &  System.Environment.NewLine _
                             &   " End Sub "   &  System.Environment.NewLine  &  System.Environment.NewLine

                         For   Each  viewRow  As  DataGridViewRow  In   Me .gForm.DataGridView1.Rows
                             With  viewRow.Cells
                                 If   Not   IsDBNull (.Item( " EventAction " ).Value)  Then
                                     If   CType (.Item( " EventAction " ).Value,  String )  =   " Default "   Then
                                        b.AppendFormat(mFormat, .Item( " Name " ).Value)
                                     End   If
                                 End   If
                             End   With
                         Next

                        mRichTextBox.Text  =  b.ToString
                        f.Show( Me .gForm)
                 End   Select
             End Sub

             Private   Sub  UpdateUI( ByVal  IsTreeView  As   Boolean ,  ByVal  IsDataGridView  As   Boolean )
                 If  IsTreeView  Then
                     Me .gManager.UpdateTo( Me .gForm.ToolPanelTree.TreeView,  " Declare " )
                     Me .gForm.PropertyGrid.SelectedObject  =   Nothing
                 End   If

                 If  IsDataGridView  Then

                     Dim  table  As   New  DataTable
                     Me .gManager.UpdateTo(table)
                     With   Me .gForm.UBindingNavigator1.SourceManager
                        .Remove(table.TableName)
                        .Add( New  uBindingNavigator.TableInformation(table, table.TableName))
                     End   With

                 End   If

             End Sub


         End Class



     End Class
End Namespace

 

Namespace  LzmTW.uSystem.uWindows.uForms.uMainForm.Menu
     < Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated() >  _
     Partial   Class  MenuDesignForm
         Inherits  System.Windows.Forms.Form

         ' Form 重写 Dispose，以清理组件列表。
         < System.Diagnostics.DebuggerNonUserCode() >  _
         Protected   Overrides   Sub  Dispose( ByVal  disposing  As   Boolean )
             If  disposing  AndAlso  components  IsNot   Nothing   Then
                components.Dispose()
             End   If
             MyBase .Dispose(disposing)
         End Sub

         ' Windows 窗体设计器所必需的
         Private  components  As  System.ComponentModel.IContainer

         ' 注意: 以下过程是 Windows 窗体设计器所必需的
         ' 可以使用 Windows 窗体设计器修改它。
         ' 不要使用代码编辑器修改它。
         < System.Diagnostics.DebuggerStepThrough() >  _
         Private   Sub  InitializeComponent()
             Me .components  =   New  System.ComponentModel.Container
             Dim  resources  As  System.ComponentModel.ComponentResourceManager  =   New  System.ComponentModel.ComponentResourceManager( GetType (MenuDesignForm))
             Me .gMainMenuStrip  =   New  System.Windows.Forms.MenuStrip
             Me .MainToolStrip  =   New  System.Windows.Forms.ToolStrip
             Me .ClearToolStripButton  =   New  System.Windows.Forms.ToolStripButton
             Me .GetDefaultToolStripButton  =   New  System.Windows.Forms.ToolStripButton
             Me .OpenFileToolStripButton  =   New  System.Windows.Forms.ToolStripButton
             Me .ToolStripSeparator1  =   New  System.Windows.Forms.ToolStripSeparator
             Me .RefleshByTreeToolStripButton  =   New  System.Windows.Forms.ToolStripButton
             Me .RefleshByDataGridViewToolStripButton  =   New  System.Windows.Forms.ToolStripButton
             Me .ToolStripSeparator2  =   New  System.Windows.Forms.ToolStripSeparator
             Me .SaveFileToolStripButton  =   New  System.Windows.Forms.ToolStripButton
             Me .ToolStripSeparator3  =   New  System.Windows.Forms.ToolStripSeparator
             Me .EventCodeToolStripButton  =   New  System.Windows.Forms.ToolStripButton
             Me .SplitContainer1  =   New  System.Windows.Forms.SplitContainer
             Me .SplitContainer2  =   New  System.Windows.Forms.SplitContainer
             Me .ToolPanelTree  =   New  LzmTW.uSystem.uWindows.uForms.ToolPanelTree
             Me .TreeContextMenuStrip  =   New  System.Windows.Forms.ContextMenuStrip( Me .components)
             Me .AddToolStripMenuItem  =   New  System.Windows.Forms.ToolStripMenuItem
             Me .DeleteToolStripMenuItem  =   New  System.Windows.Forms.ToolStripMenuItem
             Me .PropertyGrid  =   New  System.Windows.Forms.PropertyGrid
             Me .DataGridView1  =   New  System.Windows.Forms.DataGridView
             Me .UBindingNavigator1  =   New  LzmTW.uSystem.uWindows.uForms.uBindingNavigator( Me .components)
             Me .ToolStripButton1  =   New  System.Windows.Forms.ToolStripButton
             Me .ToolStripButton2  =   New  System.Windows.Forms.ToolStripButton
             Me .ToolStripButton3  =   New  System.Windows.Forms.ToolStripButton
             Me .ToolStripButton4  =   New  System.Windows.Forms.ToolStripButton
             Me .ToolStripComboBox1  =   New  System.Windows.Forms.ToolStripComboBox
             Me .MainStripStatus  =   New  LzmTW.uSystem.uWindows.uForms.uMainForm.KeyStatusWatcherStripStatus( Me .components)
             Me .MainToolStrip.SuspendLayout()
             Me .SplitContainer1.Panel1.SuspendLayout()
             Me .SplitContainer1.Panel2.SuspendLayout()
             Me .SplitContainer1.SuspendLayout()
             Me .SplitContainer2.Panel1.SuspendLayout()
             Me .SplitContainer2.Panel2.SuspendLayout()
             Me .SplitContainer2.SuspendLayout()
             Me .TreeContextMenuStrip.SuspendLayout()
             CType ( Me .DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
             CType ( Me .UBindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit()
             Me .SuspendLayout()
             '
             ' gMainMenuStrip
             '
             Me .gMainMenuStrip.Location  =   New  System.Drawing.Point( 0 ,  0 )
             Me .gMainMenuStrip.Name  =   " gMainMenuStrip "
             Me .gMainMenuStrip.Size  =   New  System.Drawing.Size( 750 ,  24 )
             Me .gMainMenuStrip.TabIndex  =   1
             Me .gMainMenuStrip.Text  =   " MainMenuStrip "
             '
             ' MainToolStrip
             '
             Me .MainToolStrip.Items.AddRange( New  System.Windows.Forms.ToolStripItem() { Me .ClearToolStripButton,  Me .GetDefaultToolStripButton,  Me .OpenFileToolStripButton,  Me .ToolStripSeparator1,  Me .RefleshByTreeToolStripButton,  Me .RefleshByDataGridViewToolStripButton,  Me .ToolStripSeparator2,  Me .SaveFileToolStripButton,  Me .ToolStripSeparator3,  Me .EventCodeToolStripButton})
             Me .MainToolStrip.Location  =   New  System.Drawing.Point( 0 ,  24 )
             Me .MainToolStrip.Name  =   " MainToolStrip "
             Me .MainToolStrip.Size  =   New  System.Drawing.Size( 750 ,  25 )
             Me .MainToolStrip.TabIndex  =   2
             Me .MainToolStrip.Text  =   " MainToolStrip "
             '
             ' ClearToolStripButton
             '
             Me .ClearToolStripButton.DisplayStyle  =  System.Windows.Forms.ToolStripItemDisplayStyle.Text
             Me .ClearToolStripButton.Image  =   CType (resources.GetObject( " ClearToolStripButton.Image " ), System.Drawing.Image)
             Me .ClearToolStripButton.ImageTransparentColor  =  System.Drawing.Color.Magenta
             Me .ClearToolStripButton.Name  =   " ClearToolStripButton "
             Me .ClearToolStripButton.Size  =   New  System.Drawing.Size( 33 ,  22 )
             Me .ClearToolStripButton.Text  =   " 清空 "
             '
             ' GetDefaultToolStripButton
             '
             Me .GetDefaultToolStripButton.DisplayStyle  =  System.Windows.Forms.ToolStripItemDisplayStyle.Text
             Me .GetDefaultToolStripButton.Image  =   CType (resources.GetObject( " GetDefaultToolStripButton.Image " ), System.Drawing.Image)
             Me .GetDefaultToolStripButton.ImageTransparentColor  =  System.Drawing.Color.Magenta
             Me .GetDefaultToolStripButton.Name  =   " GetDefaultToolStripButton "
             Me .GetDefaultToolStripButton.Size  =   New  System.Drawing.Size( 81 ,  22 )
             Me .GetDefaultToolStripButton.Text  =   " 使用默认菜单 "
             '
             ' OpenFileToolStripButton
             '
             Me .OpenFileToolStripButton.DisplayStyle  =  System.Windows.Forms.ToolStripItemDisplayStyle.Text
             Me .OpenFileToolStripButton.Image  =   CType (resources.GetObject( " OpenFileToolStripButton.Image " ), System.Drawing.Image)
             Me .OpenFileToolStripButton.ImageTransparentColor  =  System.Drawing.Color.Magenta
             Me .OpenFileToolStripButton.Name  =   " OpenFileToolStripButton "
             Me .OpenFileToolStripButton.Size  =   New  System.Drawing.Size( 81 ,  22 )
             Me .OpenFileToolStripButton.Text  =   " 使用文件菜单 "
             '
             ' ToolStripSeparator1
             '
             Me .ToolStripSeparator1.Name  =   " ToolStripSeparator1 "
             Me .ToolStripSeparator1.Size  =   New  System.Drawing.Size( 6 ,  25 )
             '
             ' RefleshByTreeToolStripButton
             '
             Me .RefleshByTreeToolStripButton.DisplayStyle  =  System.Windows.Forms.ToolStripItemDisplayStyle.Text
             Me .RefleshByTreeToolStripButton.Image  =   CType (resources.GetObject( " RefleshByTreeToolStripButton.Image " ), System.Drawing.Image)
             Me .RefleshByTreeToolStripButton.ImageTransparentColor  =  System.Drawing.Color.Magenta
             Me .RefleshByTreeToolStripButton.Name  =   " RefleshByTreeToolStripButton "
             Me .RefleshByTreeToolStripButton.Size  =   New  System.Drawing.Size( 93 ,  22 )
             Me .RefleshByTreeToolStripButton.Text  =   " 按TreeView涮新 "
             '
             ' RefleshByDataGridViewToolStripButton
             '
             Me .RefleshByDataGridViewToolStripButton.DisplayStyle  =  System.Windows.Forms.ToolStripItemDisplayStyle.Text
             Me .RefleshByDataGridViewToolStripButton.Image  =   CType (resources.GetObject( " RefleshByDataGridViewToolStripButton.Image " ), System.Drawing.Image)
             Me .RefleshByDataGridViewToolStripButton.ImageTransparentColor  =  System.Drawing.Color.Magenta
             Me .RefleshByDataGridViewToolStripButton.Name  =   " RefleshByDataGridViewToolStripButton "
             Me .RefleshByDataGridViewToolStripButton.Size  =   New  System.Drawing.Size( 117 ,  22 )
             Me .RefleshByDataGridViewToolStripButton.Text  =   " 按DataGridView涮新 "
             '
             ' ToolStripSeparator2
             '
             Me .ToolStripSeparator2.Name  =   " ToolStripSeparator2 "
             Me .ToolStripSeparator2.Size  =   New  System.Drawing.Size( 6 ,  25 )
             '
             ' SaveFileToolStripButton
             '
             Me .SaveFileToolStripButton.DisplayStyle  =  System.Windows.Forms.ToolStripItemDisplayStyle.Text
             Me .SaveFileToolStripButton.Image  =   CType (resources.GetObject( " SaveFileToolStripButton.Image " ), System.Drawing.Image)
             Me .SaveFileToolStripButton.ImageTransparentColor  =  System.Drawing.Color.Magenta
             Me .SaveFileToolStripButton.Name  =   " SaveFileToolStripButton "
             Me .SaveFileToolStripButton.Size  =   New  System.Drawing.Size( 81 ,  22 )
             Me .SaveFileToolStripButton.Text  =   " 保存菜单文件 "
             '
             ' ToolStripSeparator3
             '
             Me .ToolStripSeparator3.Name  =   " ToolStripSeparator3 "
             Me .ToolStripSeparator3.Size  =   New  System.Drawing.Size( 6 ,  25 )
             '
             ' EventCodeToolStripButton
             '
             Me .EventCodeToolStripButton.DisplayStyle  =  System.Windows.Forms.ToolStripItemDisplayStyle.Text
             Me .EventCodeToolStripButton.Image  =   CType (resources.GetObject( " EventCodeToolStripButton.Image " ), System.Drawing.Image)
             Me .EventCodeToolStripButton.ImageTransparentColor  =  System.Drawing.Color.Magenta
             Me .EventCodeToolStripButton.Name  =   " EventCodeToolStripButton "
             Me .EventCodeToolStripButton.Size  =   New  System.Drawing.Size( 57 ,  22 )
             Me .EventCodeToolStripButton.Text  =   " 事件代码 "
             '
             ' SplitContainer1
             '
             Me .SplitContainer1.Dock  =  System.Windows.Forms.DockStyle.Fill
             Me .SplitContainer1.Location  =   New  System.Drawing.Point( 0 ,  49 )
             Me .SplitContainer1.Name  =   " SplitContainer1 "
             '
             ' SplitContainer1.Panel1
             '
             Me .SplitContainer1.Panel1.Controls.Add( Me .SplitContainer2)
             '
             ' SplitContainer1.Panel2
             '
             Me .SplitContainer1.Panel2.Controls.Add( Me .DataGridView1)
             Me .SplitContainer1.Panel2.Controls.Add( Me .UBindingNavigator1)
             Me .SplitContainer1.Size  =   New  System.Drawing.Size( 750 ,  321 )
             Me .SplitContainer1.SplitterDistance  =   196
             Me .SplitContainer1.TabIndex  =   3
             '
             ' SplitContainer2
             '
             Me .SplitContainer2.Dock  =  System.Windows.Forms.DockStyle.Fill
             Me .SplitContainer2.Location  =   New  System.Drawing.Point( 0 ,  0 )
             Me .SplitContainer2.Name  =   " SplitContainer2 "
             Me .SplitContainer2.Orientation  =  System.Windows.Forms.Orientation.Horizontal
             '
             ' SplitContainer2.Panel1
             '
             Me .SplitContainer2.Panel1.Controls.Add( Me .ToolPanelTree)
             '
             ' SplitContainer2.Panel2
             '
             Me .SplitContainer2.Panel2.Controls.Add( Me .PropertyGrid)
             Me .SplitContainer2.Size  =   New  System.Drawing.Size( 196 ,  321 )
             Me .SplitContainer2.SplitterDistance  =   248
             Me .SplitContainer2.TabIndex  =   0
             '
             ' ToolPanelTree
             '
             Me .ToolPanelTree.CloseButtonEnabled  =   False
             Me .ToolPanelTree.Dock  =  System.Windows.Forms.DockStyle.Fill
             Me .ToolPanelTree.Location  =   New  System.Drawing.Point( 0 ,  0 )
             '
             '
             '
             Me .ToolPanelTree.MenuToolStrip.AllowMerge  =   False
             Me .ToolPanelTree.MenuToolStrip.Dock  =  System.Windows.Forms.DockStyle.None
             Me .ToolPanelTree.MenuToolStrip.GripStyle  =  System.Windows.Forms.ToolStripGripStyle.Hidden
             Me .ToolPanelTree.MenuToolStrip.Location  =   New  System.Drawing.Point( 0 ,  25 )
             Me .ToolPanelTree.MenuToolStrip.Name  =   " gMenuToolStrip "
             Me .ToolPanelTree.MenuToolStrip.Size  =   New  System.Drawing.Size( 196 ,  25 )
             Me .ToolPanelTree.MenuToolStrip.Stretch  =   True
             Me .ToolPanelTree.MenuToolStrip.TabIndex  =   1
             Me .ToolPanelTree.Name  =   " ToolPanelTree "
             Me .ToolPanelTree.Size  =   New  System.Drawing.Size( 196 ,  248 )
             Me .ToolPanelTree.TabIndex  =   0
             Me .ToolPanelTree.Text  =   " 菜单树 "
             '
             '
             '
             Me .ToolPanelTree.TreeView.ContextMenuStrip  =   Me .TreeContextMenuStrip
             Me .ToolPanelTree.TreeView.Dock  =  System.Windows.Forms.DockStyle.Fill
             Me .ToolPanelTree.TreeView.FullRowSelect  =   True
             Me .ToolPanelTree.TreeView.HideSelection  =   False
             Me .ToolPanelTree.TreeView.ItemHeight  =   14
             Me .ToolPanelTree.TreeView.Location  =   New  System.Drawing.Point( 0 ,  0 )
             Me .ToolPanelTree.TreeView.Name  =   " gTreeView "
             Me .ToolPanelTree.TreeView.Size  =   New  System.Drawing.Size( 196 ,  198 )
             Me .ToolPanelTree.TreeView.TabIndex  =   0
             '
             ' TreeContextMenuStrip
             '
             Me .TreeContextMenuStrip.Items.AddRange( New  System.Windows.Forms.ToolStripItem() { Me .AddToolStripMenuItem,  Me .DeleteToolStripMenuItem})
             Me .TreeContextMenuStrip.Name  =   " TreeContextMenuStrip "
             Me .TreeContextMenuStrip.Size  =   New  System.Drawing.Size( 95 ,  48 )
             '
             ' AddToolStripMenuItem
             '
             Me .AddToolStripMenuItem.Name  =   " AddToolStripMenuItem "
             Me .AddToolStripMenuItem.Size  =   New  System.Drawing.Size( 94 ,  22 )
             Me .AddToolStripMenuItem.Text  =   " 增加 "
             '
             ' DeleteToolStripMenuItem
             '
             Me .DeleteToolStripMenuItem.Name  =   " DeleteToolStripMenuItem "
             Me .DeleteToolStripMenuItem.Size  =   New  System.Drawing.Size( 94 ,  22 )
             Me .DeleteToolStripMenuItem.Text  =   " 删除 "
             '
             ' PropertyGrid
             '
             Me .PropertyGrid.Dock  =  System.Windows.Forms.DockStyle.Fill
             Me .PropertyGrid.HelpVisible  =   False
             Me .PropertyGrid.Location  =   New  System.Drawing.Point( 0 ,  0 )
             Me .PropertyGrid.Name  =   " PropertyGrid "
             Me .PropertyGrid.Size  =   New  System.Drawing.Size( 196 ,  69 )
             Me .PropertyGrid.TabIndex  =   1
             Me .PropertyGrid.ToolbarVisible  =   False
             '
             ' DataGridView1
             '
             Me .DataGridView1.ColumnHeadersHeightSizeMode  =  System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
             Me .DataGridView1.Dock  =  System.Windows.Forms.DockStyle.Fill
             Me .DataGridView1.Location  =   New  System.Drawing.Point( 0 ,  25 )
             Me .DataGridView1.Name  =   " DataGridView1 "
             Me .DataGridView1.RowTemplate.Height  =   23
             Me .DataGridView1.Size  =   New  System.Drawing.Size( 550 ,  296 )
             Me .DataGridView1.TabIndex  =   1
             '
             ' UBindingNavigator1
             '
             Me .UBindingNavigator1.AllowMerge  =   False
             Me .UBindingNavigator1.CountItemFormat  =   " 共 {0}项 "
             Me .UBindingNavigator1.DataGridview  =   Me .DataGridView1
             Me .UBindingNavigator1.GripStyle  =  System.Windows.Forms.ToolStripGripStyle.Hidden
             Me .UBindingNavigator1.Location  =   New  System.Drawing.Point( 0 ,  0 )
             Me .UBindingNavigator1.Name  =   " UBindingNavigator1 "
             Me .UBindingNavigator1.Size  =   New  System.Drawing.Size( 550 ,  25 )
             Me .UBindingNavigator1.Stretch  =   True
             Me .UBindingNavigator1.TabIndex  =   0
             Me .UBindingNavigator1.Text  =   " UBindingNavigator1 "
             '
             ' ToolStripButton1
             '
             Me .ToolStripButton1.DisplayStyle  =  System.Windows.Forms.ToolStripItemDisplayStyle.Image
             Me .ToolStripButton1.Image  =   CType (resources.GetObject( " ToolStripButton1.Image " ), System.Drawing.Image)
             Me .ToolStripButton1.ImageTransparentColor  =  System.Drawing.Color.Magenta
             Me .ToolStripButton1.Name  =   " ToolStripButton1 "
             Me .ToolStripButton1.Size  =   New  System.Drawing.Size( 23 ,  22 )
             Me .ToolStripButton1.Text  =   " ToolStripButton1 "
             '
             ' ToolStripButton2
             '
             Me .ToolStripButton2.DisplayStyle  =  System.Windows.Forms.ToolStripItemDisplayStyle.Image
             Me .ToolStripButton2.Image  =   CType (resources.GetObject( " ToolStripButton2.Image " ), System.Drawing.Image)
             Me .ToolStripButton2.ImageTransparentColor  =  System.Drawing.Color.Magenta
             Me .ToolStripButton2.Name  =   " ToolStripButton2 "
             Me .ToolStripButton2.Size  =   New  System.Drawing.Size( 23 ,  22 )
             Me .ToolStripButton2.Text  =   " ToolStripButton2 "
             '
             ' ToolStripButton3
             '
             Me .ToolStripButton3.DisplayStyle  =  System.Windows.Forms.ToolStripItemDisplayStyle.Image
             Me .ToolStripButton3.Image  =   CType (resources.GetObject( " ToolStripButton3.Image " ), System.Drawing.Image)
             Me .ToolStripButton3.ImageTransparentColor  =  System.Drawing.Color.Magenta
             Me .ToolStripButton3.Name  =   " ToolStripButton3 "
             Me .ToolStripButton3.Size  =   New  System.Drawing.Size( 23 ,  22 )
             Me .ToolStripButton3.Text  =   " ToolStripButton3 "
             '
             ' ToolStripButton4
             '
             Me .ToolStripButton4.DisplayStyle  =  System.Windows.Forms.ToolStripItemDisplayStyle.Image
             Me .ToolStripButton4.Image  =   CType (resources.GetObject( " ToolStripButton4.Image " ), System.Drawing.Image)
             Me .ToolStripButton4.ImageTransparentColor  =  System.Drawing.Color.Magenta
             Me .ToolStripButton4.Name  =   " ToolStripButton4 "
             Me .ToolStripButton4.Size  =   New  System.Drawing.Size( 23 ,  22 )
             Me .ToolStripButton4.Text  =   " ToolStripButton4 "
             '
             ' ToolStripComboBox1
             '
             Me .ToolStripComboBox1.Name  =   " ToolStripComboBox1 "
             Me .ToolStripComboBox1.Size  =   New  System.Drawing.Size( 121 ,  20 )
             '
             ' MainStripStatus
             '
             Me .MainStripStatus.Location  =   New  System.Drawing.Point( 0 ,  370 )
             Me .MainStripStatus.Name  =   " MainStripStatus "
             Me .MainStripStatus.Size  =   New  System.Drawing.Size( 750 ,  22 )
             Me .MainStripStatus.TabIndex  =   0
             Me .MainStripStatus.Text  =   " MainStripStatus "
             '
             ' MenuDesignForm
             '
             Me .AutoScaleDimensions  =   New  System.Drawing.SizeF( 6.0 !,  12.0 !)
             Me .AutoScaleMode  =  System.Windows.Forms.AutoScaleMode.Font
             Me .ClientSize  =   New  System.Drawing.Size( 750 ,  392 )
             Me .Controls.Add( Me .SplitContainer1)
             Me .Controls.Add( Me .MainToolStrip)
             Me .Controls.Add( Me .MainStripStatus)
             Me .Controls.Add( Me .gMainMenuStrip)
             Me .Name  =   " MenuDesignForm "
             Me .Text  =   " 菜单设计器 "
             Me .MainToolStrip.ResumeLayout( False )
             Me .MainToolStrip.PerformLayout()
             Me .SplitContainer1.Panel1.ResumeLayout( False )
             Me .SplitContainer1.Panel2.ResumeLayout( False )
             Me .SplitContainer1.Panel2.PerformLayout()
             Me .SplitContainer1.ResumeLayout( False )
             Me .SplitContainer2.Panel1.ResumeLayout( False )
             Me .SplitContainer2.Panel2.ResumeLayout( False )
             Me .SplitContainer2.ResumeLayout( False )
             Me .TreeContextMenuStrip.ResumeLayout( False )
             CType ( Me .DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
             CType ( Me .UBindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit()
             Me .ResumeLayout( False )
             Me .PerformLayout()

         End Sub
         Friend   WithEvents  MainStripStatus  As  LzmTW.uSystem.uWindows.uForms.uMainForm.KeyStatusWatcherStripStatus
         Friend   WithEvents  gMainMenuStrip  As  System.Windows.Forms.MenuStrip
         Friend   WithEvents  MainToolStrip  As  System.Windows.Forms.ToolStrip
         Friend   WithEvents  SplitContainer1  As  System.Windows.Forms.SplitContainer
         Friend   WithEvents  SplitContainer2  As  System.Windows.Forms.SplitContainer
         Friend   WithEvents  GetDefaultToolStripButton  As  System.Windows.Forms.ToolStripButton
         Friend   WithEvents  RefleshByTreeToolStripButton  As  System.Windows.Forms.ToolStripButton
         Friend   WithEvents  OpenFileToolStripButton  As  System.Windows.Forms.ToolStripButton
         Friend   WithEvents  ToolStripSeparator1  As  System.Windows.Forms.ToolStripSeparator
         Friend   WithEvents  SaveFileToolStripButton  As  System.Windows.Forms.ToolStripButton
         Friend   WithEvents  ToolStripSeparator2  As  System.Windows.Forms.ToolStripSeparator
         Friend   WithEvents  RefleshByDataGridViewToolStripButton  As  System.Windows.Forms.ToolStripButton
         Friend   WithEvents  ClearToolStripButton  As  System.Windows.Forms.ToolStripButton
         Friend   WithEvents  ToolStripButton1  As  System.Windows.Forms.ToolStripButton
         Friend   WithEvents  ToolStripButton2  As  System.Windows.Forms.ToolStripButton
         Friend   WithEvents  ToolStripButton3  As  System.Windows.Forms.ToolStripButton
         Friend   WithEvents  ToolStripButton4  As  System.Windows.Forms.ToolStripButton
         Friend   WithEvents  PropertyGrid  As  System.Windows.Forms.PropertyGrid
         Friend   WithEvents  ToolStripComboBox1  As  System.Windows.Forms.ToolStripComboBox
         Friend   WithEvents  ToolPanelTree  As  LzmTW.uSystem.uWindows.uForms.ToolPanelTree
         Friend   WithEvents  DataGridView1  As  System.Windows.Forms.DataGridView
         Friend   WithEvents  UBindingNavigator1  As  LzmTW.uSystem.uWindows.uForms.uBindingNavigator
         Friend   WithEvents  TreeContextMenuStrip  As  System.Windows.Forms.ContextMenuStrip
         Friend   WithEvents  AddToolStripMenuItem  As  System.Windows.Forms.ToolStripMenuItem
         Friend   WithEvents  DeleteToolStripMenuItem  As  System.Windows.Forms.ToolStripMenuItem
         Friend   WithEvents  ToolStripSeparator3  As  System.Windows.Forms.ToolStripSeparator
         Friend   WithEvents  EventCodeToolStripButton  As  System.Windows.Forms.ToolStripButton
     End Class
End Namespace