LzmTW.uSystem.uWindows.uForms + ToolPanelTree

Author：水如烟  

Namespace  LzmTW.uSystem.uWindows.uForms

     < Drawing.ToolboxBitmap( GetType (TreeView)) >  _
     Public   Class  ToolPanelTree

     End Class
End Namespace

 

Imports  System.ComponentModel

Namespace  LzmTW.uSystem.uWindows.uForms
     < Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated() >  _
     Partial   Class  ToolPanelTree
         Inherits  System.Windows.Forms.UserControl

         ' UserControl 重写 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 .ToolPanel  =   New  LzmTW.uSystem.uWindows.uForms.ToolPanel
             Me .gTreeView  =   New  TreeView
             Me .ToolStripDropDownButtonTreeView  =   New  System.Windows.Forms.ToolStripDropDownButton
             Me .ExpandAllToolStripMenuItem  =   New  System.Windows.Forms.ToolStripMenuItem
             Me .CollapseToolStripMenuItem  =   New  System.Windows.Forms.ToolStripMenuItem
             Me .ToolStripMenuItemTreeView  =   New  System.Windows.Forms.ToolStripSeparator
             Me .ChooseAllToolStripMenuItem  =   New  System.Windows.Forms.ToolStripMenuItem
             Me .CancelChooseToolStripMenuItem  =   New  System.Windows.Forms.ToolStripMenuItem
             Me .SuspendLayout()
             '
             ' ToolPanel
             '
             '
             '
             '
             Me .ToolPanel.ContentPanel.Size  =   New  System.Drawing.Size( 273 ,  172 )
             Me .ToolPanel.Dock  =  System.Windows.Forms.DockStyle.Fill
             Me .ToolPanel.Location  =   New  System.Drawing.Point( 0 ,  0 )
             '
             '
             Me .ToolPanel.ContentPanel.Controls.Add( Me .gTreeView)
             '
             Me .ToolPanel.MenuToolStrip.AllowMerge  =   False
             Me .ToolPanel.MenuToolStrip.Dock  =  System.Windows.Forms.DockStyle.None
             Me .ToolPanel.MenuToolStrip.GripStyle  =  System.Windows.Forms.ToolStripGripStyle.Hidden
             Me .ToolPanel.MenuToolStrip.Items.AddRange( New  System.Windows.Forms.ToolStripItem() { Me .ToolStripDropDownButtonTreeView})
             Me .ToolPanel.MenuToolStrip.Location  =   New  System.Drawing.Point( 0 ,  25 )
             Me .ToolPanel.MenuToolStrip.Name  =   " gMenuToolStrip "
             Me .ToolPanel.MenuToolStrip.Size  =   New  System.Drawing.Size( 273 ,  25 )
             Me .ToolPanel.MenuToolStrip.Stretch  =   True
             Me .ToolPanel.MenuToolStrip.TabIndex  =   1
             Me .ToolPanel.Name  =   " ToolPanel "
             Me .ToolPanel.Size  =   New  System.Drawing.Size( 273 ,  222 )
             Me .ToolPanel.TabIndex  =   0
             Me .ToolPanel.Text  =   " ToolPanel1 "
             '
             ' gTreeView
             '
             Me .gTreeView.Dock  =  System.Windows.Forms.DockStyle.Fill
             Me .gTreeView.LineColor  =  System.Drawing.Color.Empty
             Me .gTreeView.Location  =   New  System.Drawing.Point( 0 ,  0 )
             Me .gTreeView.Name  =   " gTreeView "
             Me .gTreeView.Size  =   New  System.Drawing.Size( 275 ,  104 )
             Me .gTreeView.TabIndex  =   0
             '
             ' ToolStripDropDownButtonTreeView
             '
             Me .ToolStripDropDownButtonTreeView.Alignment  =  System.Windows.Forms.ToolStripItemAlignment.Right
             Me .ToolStripDropDownButtonTreeView.DisplayStyle  =  System.Windows.Forms.ToolStripItemDisplayStyle.None
             Me .ToolStripDropDownButtonTreeView.DropDownItems.AddRange( New  System.Windows.Forms.ToolStripItem() { Me .ExpandAllToolStripMenuItem,  Me .CollapseToolStripMenuItem,  Me .ToolStripMenuItemTreeView,  Me .ChooseAllToolStripMenuItem,  Me .CancelChooseToolStripMenuItem})
             Me .ToolStripDropDownButtonTreeView.Name  =   " ToolStripDropDownButtonTreeView "
             Me .ToolStripDropDownButtonTreeView.Size  =   New  System.Drawing.Size( 13 ,  22 )
             Me .ToolStripDropDownButtonTreeView.ToolTipText  =   " 项目控制 "
             '
             ' ExpandAllToolStripMenuItem
             '
             Me .ExpandAllToolStripMenuItem.Name  =   " ExpandAllToolStripMenuItem "
             Me .ExpandAllToolStripMenuItem.Size  =   New  System.Drawing.Size( 118 ,  22 )
             Me .ExpandAllToolStripMenuItem.Text  =   " 全部展开 "
             '
             ' CollapseToolStripMenuItem
             '
             Me .CollapseToolStripMenuItem.Name  =   " CollapseToolStripMenuItem "
             Me .CollapseToolStripMenuItem.Size  =   New  System.Drawing.Size( 118 ,  22 )
             Me .CollapseToolStripMenuItem.Text  =   " 全部折叠 "
             '
             ' ToolStripMenuItemTreeView
             '
             Me .ToolStripMenuItemTreeView.Name  =   " ToolStripMenuItemTreeView "
             Me .ToolStripMenuItemTreeView.Size  =   New  System.Drawing.Size( 115 ,  6 )
             '
             ' ChooseAllToolStripMenuItem
             '
             Me .ChooseAllToolStripMenuItem.Name  =   " ChooseAllToolStripMenuItem "
             Me .ChooseAllToolStripMenuItem.Size  =   New  System.Drawing.Size( 118 ,  22 )
             Me .ChooseAllToolStripMenuItem.Text  =   " 全部选择 "
             '
             ' CancelChooseToolStripMenuItem
             '
             Me .CancelChooseToolStripMenuItem.Name  =   " CancelChooseToolStripMenuItem "
             Me .CancelChooseToolStripMenuItem.Size  =   New  System.Drawing.Size( 118 ,  22 )
             Me .CancelChooseToolStripMenuItem.Text  =   " 取消选择 "

             '
             ' ToolPanelTree
             '
             Me .AutoScaleDimensions  =   New  System.Drawing.SizeF( 6.0 !,  12.0 !)
             Me .AutoScaleMode  =  System.Windows.Forms.AutoScaleMode.Font
             Me .Controls.Add( Me .ToolPanel)
             Me .Name  =   " ToolPanelTree "
             Me .Size  =   New  System.Drawing.Size( 273 ,  222 )
             Me .ResumeLayout( False )

         End Sub
         Friend   WithEvents  ToolPanel  As  LzmTW.uSystem.uWindows.uForms.ToolPanel
         Private   WithEvents  ToolStripDropDownButtonTreeView  As  System.Windows.Forms.ToolStripDropDownButton
         Private   WithEvents  ExpandAllToolStripMenuItem  As  System.Windows.Forms.ToolStripMenuItem
         Private   WithEvents  CollapseToolStripMenuItem  As  System.Windows.Forms.ToolStripMenuItem
         Private   WithEvents  ToolStripMenuItemTreeView  As  System.Windows.Forms.ToolStripSeparator
         Private   WithEvents  ChooseAllToolStripMenuItem  As  System.Windows.Forms.ToolStripMenuItem
         Private   WithEvents  CancelChooseToolStripMenuItem  As  System.Windows.Forms.ToolStripMenuItem
         Private   WithEvents  gTreeView  As  System.Windows.Forms.TreeView

         < Category( " 外观 " ), Description( " 与控件关联的文本 " ), Browsable( True ), DesignerSerializationVisibility(DesignerSerializationVisibility.Visible) >  _
         Public   Overrides   Property  Text()  As   String
             Get
                 Return   Me .ToolPanel.Text
             End   Get
             Set ( ByVal  value  As   String )
                 Me .ToolPanel.Text  =  value
             End   Set
         End Property

         < Category( " 外观 " ), Description( " 关闭按钮是否有效 " ), Browsable( True ), DefaultValue( True ), DesignerSerializationVisibility(DesignerSerializationVisibility.Visible) >  _
         Public   Property  CloseButtonEnabled()  As   Boolean
             Get
                 Return   Me .ToolPanel.CloseButtonEnabled
             End   Get
             Set ( ByVal  value  As   Boolean )
                 Me .ToolPanel.CloseButtonEnabled  =  value
             End   Set
         End Property

         < Category( " 外观 " ), Description( " 关闭按钮是否可见 " ), Browsable( True ), DefaultValue( True ), DesignerSerializationVisibility(DesignerSerializationVisibility.Visible) >  _
         Public   Property  CloseButtonVisible()  As   Boolean
             Get
                 Return   Me .ToolPanel.CloseButtonVisible
             End   Get
             Set ( ByVal  value  As   Boolean )
                 Me .ToolPanel.CloseButtonVisible  =  value
             End   Set
         End Property

         < Category( " 容器 " ), Description( " 菜单项 " ), Browsable( True ), DesignerSerializationVisibility(DesignerSerializationVisibility.Content) >  _
         Public   ReadOnly   Property  MenuToolStrip()  As  ToolStrip
             Get
                 Return   Me .ToolPanel.MenuToolStrip
             End   Get
         End Property

         < Category( " 容器 " ), Description( " 树 " ), Browsable( True ), DesignerSerializationVisibility(DesignerSerializationVisibility.Content) >  _
         Public   ReadOnly   Property  TreeView()  As  TreeView
             Get
                 Return   Me .gTreeView
             End   Get
         End Property

         Private   Sub  CheckAllChildNodes( ByVal  treeNode  As  Windows.Forms.TreeNode,  ByVal  nodeChecked  As   Boolean )
             Dim  node  As  Windows.Forms.TreeNode
             For   Each  node  In  treeNode.Nodes
                node.Checked  =  nodeChecked
                 If  node.Nodes.Count  >   0   Then
                    CheckAllChildNodes(node, nodeChecked)
                 End   If
             Next  node
         End Sub

         Private   Sub  node_AfterCheck( ByVal  sender  As   Object ,  ByVal  e  As  Windows.Forms.TreeViewEventArgs)  Handles  gTreeView.AfterCheck
             If  e.Action  <>  Windows.Forms.TreeViewAction.Unknown  Then
                 If  e.Node.Nodes.Count  >   0   Then
                    CheckAllChildNodes(e.Node, e.Node.Checked)
                 End   If
             End   If
         End Sub

         Private   Sub  ExpandAllToolStripMenuItem_Click( ByVal  sender  As   Object ,  ByVal  e  As  System.EventArgs)  Handles  ExpandAllToolStripMenuItem.Click
            gTreeView.BeginUpdate()
             For   Each  node  As  Windows.Forms.TreeNode  In  gTreeView.Nodes
                node.ExpandAll()
             Next
            gTreeView.EndUpdate()
         End Sub

         Private   Sub  CollapseToolStripMenuItem_Click( ByVal  sender  As   Object ,  ByVal  e  As  System.EventArgs)  Handles  CollapseToolStripMenuItem.Click
            gTreeView.BeginUpdate()
             For   Each  node  As  Windows.Forms.TreeNode  In  gTreeView.Nodes
                node.Collapse( False )
             Next
            gTreeView.EndUpdate()
         End Sub

         Private   Sub  ChooseAllToolStripMenuItem_Click( ByVal  sender  As   Object ,  ByVal  e  As  System.EventArgs)  Handles  ChooseAllToolStripMenuItem.Click
             If   Not  gTreeView.CheckBoxes  Then   Exit Sub
            gTreeView.BeginUpdate()
             For   Each  node  As  Windows.Forms.TreeNode  In  gTreeView.Nodes
                node.Checked  =   True
                CheckAllChildNodes(node,  True )
             Next
            gTreeView.EndUpdate()
         End Sub

         Private   Sub  CancelChooseToolStripMenuItem_Click( ByVal  sender  As   Object ,  ByVal  e  As  System.EventArgs)  Handles  CancelChooseToolStripMenuItem.Click
             If   Not  gTreeView.CheckBoxes  Then   Exit Sub
            gTreeView.BeginUpdate()
             For   Each  node  As  Windows.Forms.TreeNode  In  gTreeView.Nodes
                node.Checked  =   False
                CheckAllChildNodes(node,  False )
             Next
            gTreeView.EndUpdate()
         End Sub

     End Class

End Namespace