WinForm设计之ToolPanelTree

Author：水如烟  

因为但求简单实现，自己也不深究，所以做出来比较粗糙。马马虎虎应付过去。

效果图：

控件代码见应用类代码：LzmTW.uSystem.uWindows.uForms + ToolPanelTree

Imports System.Reflection

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.ToolStripButton1.Image = LzmTW.ResourceBitmap.GetMagenta(GetType(DataGridView), "DataGridView.bmp")

    End Sub

    Private Sub ToolStripButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        Dim mNode1 As TreeNode = AssemblyStaticMethodNode(GetType(Object))
        Dim mNode2 As TreeNode = AssemblyStaticMethodNode(GetType(Microsoft.VisualBasic.Strings))
        With Me.ToolPanelTree1.TreeView
            .BeginUpdate()
            .Nodes.Clear()
            .Nodes.AddRange(New TreeNode() {mNode1, mNode2})
            .Sort()
            .EndUpdate()
        End With
    End Sub

    Public Function AssemblyStaticMethodNode(ByVal t As Type) As TreeNode

        Dim mAssembly As Assembly = Assembly.GetAssembly(t)

        Dim mRootNode As New TreeNode(mAssembly.GetName.Name)
        Dim mSecondNode As TreeNode = Nothing

        Dim mCurrentNode As TreeNode = Nothing
        Dim mCurrentTypeChanged As Boolean = False

        Dim mBinding As BindingFlags = BindingFlags.Public & BindingFlags.Static

        For Each mModule As [Module] In mAssembly.GetModules
            mSecondNode = mRootNode.Nodes.Add(mModule.ScopeName)

            For Each mType As Type In mModule.GetTypes

                If mType.IsClass Then

                    mCurrentTypeChanged = True
                    For Each mMethod As MethodInfo In mType.GetMethods(mBinding)

                        If mCurrentTypeChanged Then
                            mCurrentNode = mSecondNode.Nodes.Add(mType.FullName)

                            mCurrentTypeChanged = False
                        End If

                        mCurrentNode.Nodes.Add(mMethod.ToString)
                    Next

                End If

            Next
        Next

        Return mRootNode
    End Function

End Class

上面用到的一个函数，是这样（临时的，所以还不用贴上来）

Namespace LzmTW

    Public Class ResourceBitmap
        Private Sub New()
        End Sub

        Public Shared Function [Get](ByVal t As Type, ByVal name As String) As Bitmap
            Return New Bitmap(t, name)
        End Function

        Public Shared Function GetMagenta(ByVal t As Type, ByVal name As String) As Bitmap
            Dim mBitmap As Bitmap = [Get](t, name)
            mBitmap.MakeTransparent(Color.Magenta)
            Return mBitmap
        End Function
    End Class

End Namespace