充满魅惑的GetType（VB2005）

　　了解C#的人对typeof这个关键字再熟悉不过了。它是获得对象的类别，返回值是type。

　　在VB2005中和typeof对位的是GetType。可是，GetType的使用却充满着魅惑性。先看看下面的代码。

　　Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _

　　　　　　　　　　　　　　　　　　　　　　　　MyBase.Load

　　　　Debug.Print(IsSame(New SolidBrush(Color.AliceBlue)))

　　End Sub

　　Private Function IsSame(ByVal Brush As Brush) As Boolean

　　　　Dim T1 As Type = GetType(Brush)

　　　　Dim T2 As Type = Brush.GetType

　　　　Return T1 Is T2

　　End Function

　　这段代码执行完后，会在“即时窗口”里显示什么？

　　是False，你想到了吗？

　　笔者在移植一段C#代码到VB2005代码时就碰到了如上的陷阱，使得代码在C#中运行正常，而在VB2005中就一直报错。后来才明白其中的奥妙。

　　先仔细分析IsSame中的两句代码。

　　Dim T1 As Type = GetType(Brush)

　　GetType是关键字，获得指定类的Type。这里的Brush表示的是类Brush，T1得到的值是类Brush

　　Dim T2 As Type = Brush.GetType

　　GetType是对象的方法，返回该对象的Type。这里的Brush表示的传递进来的参数，T2得到的是参数Brush的类型，是类SolidBrush（应该是结构）

　　很显然T1和T2不表示同一种类，故返回值是False。

　　其实，上面这段代码如果改写成容易识别的就一点问题都没有了。如下：

 　　Private Function IsSame(ByVal B As Brush) As Boolean

　　　　Dim T1 As Type = GetType(Brush)

　　　　Dim T2 As Type = B.GetType

　　　　Return T1 Is T2

　　End Function

　　要熟悉GetType的两种用法，才能明白其中的奥妙，在移植代码的时候才不易出错。