VB.NET的反射机制

1.前提

Net的应用程序由几个部分：‘程序集’、‘模块’、‘类型’组成。
装配件是.Net应用程序执行的最小单位，编译出来的.dll、.exe都是装配件。

2.概念

反射是获得运行时类型的方式。

概念这里讨论两个问题。

问题一：

运行时类型如何理解？

1.运行时：程序运行期

2.类型：.NET应用程序的几个部分（即上面我们提到的组合部分）

所以再次来理解一下反射就是：反射提供一种编程的方式，让程序员可以在程序运行期获得这几个组成部分的相关

问题二：

那么我们具体能够获得什么呢？

1.Assembly类可以获得正在运行的装配件，也可以动态的加载装配件，以及在装配件中查找类型，并创建该类型的实例。
2.Type类可以获得对象的类型，此包含对象的所有要素：方法、构造器、属性等等，通过Type类可以得到这些要素的，并且调用之。
3.MethodInfo包含方法的，通过这个类可以得到方法的名称、参数、返回值等，并且可以调用之。诸如此类，还有FieldInfo、EventInfo等等，这些类都包含在System.Reflection命名
空间下。

3.命名空间与装配件的关系

机房收费系统的时候看到的一个名字就是命名空间（NameSpace）。在.NET的应用程序中并没有提到这个概念，所以在这里解释一下这个名词。

1.关系

装配件和命名空间的关系不是一一对应，也不互相包含，其实他们是一种多对多的关系；一个装配件里面可以有多个命名空间，一个命名空间也可以在多个装配件中存在。

2.理解

命名空间和装配件两个概念针对的对象都是类型。命名空间描述一个类型是哪一族，也就是只是对类型进行了一下整理就好像我们的文件夹一样。装配件表明了一个类型的位置。
在网上看到了一个很好的例子：

命名空间只是说明一个类型是那个族的，比如有人是汉族、有人是回族；而装配件表明一个类型住在哪里，比如有人住在北京、有人住在上海；那么北京有汉族人，也有回族人，上海有汉族人，也有回族人，这是不矛盾的。

装配件是一个类型位置（居住的地方），那么在一个程序中要使用一个类，就必须告诉编译器这个类住在哪儿，编译器才能找到它，也就是说必须引用该装配件。
那么如果在编写程序的时候，也许不确定这个类在哪里，仅仅只是知道它的名称，就不能使用了吗？答案是可以，这就是反射了，就是在程序运行的时候提供该类型的地址，而去找到它。所以我们就不难理解其实我们应用程序在编译的时候并不需要，那么在应用程序的组成部分中也没有这个概念了。

3.应用

演示一个反射来动态创建对象了动态调用方法的例子

1.创建如图的界面



2.添加引用

Imports System.Reflection  '添加发射的引用
Imports System.Text

3.代码

Imports System.Reflection  '添加发射的引用
Imports System.Text

Public Class Form1

'反射来动态创建对象
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim asm As Assembly = Assembly.Load("Net反射机制") '使用程序集来查找
Dim _t As Type() = asm.GetTypes '存放程序集中定义的类型
Dim _type As Type
For Each _type In _t '遍历程序集中全部的类型
If _type.Name = "ROBJ" Then '如果查询到的类型是ROBJ
Dim p As Integer = 811221
Dim obj As Object = System.Activator.CreateInstance(_type, p) '创建程序集中ROBJ类型的对象
Me.TextBox1.Text = obj.MyResult() '对象的属性（存储程序集的名字）
End If
Next
End Sub

'反射来动动态调用方法
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim asm As Assembly = Assembly.Load("Net反射机制") '使用程序集来查找
Dim _t As Type() = asm.GetTypes '存放程序集中定义的类型
Dim _type As Type
For Each _type In _t '遍历程序集中全部的类型
If _type.Name = "ROBJ" Then '如果查询到的类型是ROBJ
Dim p As Integer = 811221
Dim obj As Object = System.Activator.CreateInstance(_type, p) '创建程序集中ROBJ类型的对象
Dim m As MethodInfo = _type.GetMethod("Add") '获得公共方法
Dim result As Integer = m.Invoke(obj, New Object() {1, 33}) '调用当前对象所表示的方法
Me.TextBox1.Text = result '显示方法
End If
Next
End Sub
End Class

添加ROJB类

'项目中添加一个类(用来发射它)

Public Class ROBJ
Private result As Integer = 0 '创建私有变量

'创建构造函数-为result赋值
Public Sub New(ByVal _set As Integer)
result = _set
End Sub

'创建一个添加函数:做了一个简单的加减法
Public Function Add(ByVal x As Integer, ByVal y As Integer) As Integer
Return x + y
End Function

'设置一个结果属性,目的是存储程序集的名字
Public Property MyResult As Integer
Get
Return result
End Get
Set(ByVal value As Integer)
result = value
End Set

End Property
End Class