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
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
< 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