HOW TO:枚举程序集静态方法

Author:水如烟

现在发现,熟悉NET提供的静态方法是很重要的,不熟悉不熟知,会走好多弯路.
当然,走弯路也不是坏事,只是时间有限,经验和技能不能在弯路中积累.

下面的功能是看看指定类所在的程序集究竟公布了哪些静态方法.

Imports System.Reflection

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim mNode1 As TreeNode = AssemblyStaticMethodNode(GetType(Object))
        Dim mNode2 As TreeNode = AssemblyStaticMethodNode(GetType(Microsoft.VisualBasic.Strings))
        With Me.TreeView1
            .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