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

  • 相关阅读:
    PHP面向对象(一)
    Linux(九)LNMP环境Nginx服务器
    Linux(八)Apache服务器
    [转]PHP高手干货分享:不能不看的50个细节!
    Linux(七)LAMP环境搭建
    Linux(六)Samba服务器与防火墙
    Linux(五)服务和进程管理
    Linux(四)用户和用户组管理
    Linux(三)安装包
    Linux(二)Linux常用命令
  • 原文地址:https://www.cnblogs.com/grenet/p/1715588.html
Copyright © 2020-2023  润新知