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