充满魅惑的GetType(VB2005)

简介:   了解C#的人对typeof这个关键字再熟悉不过了。它是获得对象的类别,返回值是type。   在VB2005中和typeof对位的是GetType。可是,GetType的使用却充满着魅惑性。先看看下面的代码。

  了解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的两种用法,才能明白其中的奥妙,在移植代码的时候才不易出错。

相关文章
|
9月前
|
API
vb百例完成小结
vb百例完成小结
46 0
|
9月前
|
人工智能 Windows
VB课本总结(2)
VB课本总结(2)
49 0
|
9月前
|
数据可视化 数据库管理
vb课本总结
vb课本总结
33 0
对比十二年前的vb代码,发现了点有意思的东西
对比十二年前的vb代码,发现了点有意思的东西
136 0
对比十二年前的vb代码,发现了点有意思的东西
MFC DDE开发中令人迷惑的问题?
在用MFC(ddeml)开发DDE中,遇到一个令人迷惑的问题, ddeml提供的一些命令,在时钟函数里或按钮事件里运行正常,可是在线程里运行就出现如下错误
623 0