水如烟

                 顺其自然,水到渠成 LzmTW

文或代码皆是面向初学者.我是爱好者,也是初学者.那些"文章",只按自己理解写,我是不知术语名词的.所以只供参考,也仅供参考.

导航

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

Posted on 2006-08-17 13:42  水如烟(LzmTW)  阅读(344)  评论(0编辑  收藏  举报

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