机房重构--Ctype函数的认识

 最近在弄VB.NET的七层登录，在Factory板块中有一些非常神奇的地方，先公布Factory中的

'添加对配置文件的引用
Imports System.Configuration
'添加对反射的引用
Imports System.Reflection
'田间IDAL的引用
Imports IDAL

Public Class FTLogin
    '数据程序集名称&命名空间DAL
    Private Shared ReadOnly AssemblyName As String = "DAL"
    '与配置文件相连
    Dim strDB As String = System.Configuration.ConfigurationManager.AppSettings("DB")
    Public Function CreateIUser() As ILogin
        Dim IUser As ILogin '定义IUser为接口
        '如果要更改数据库，D层相应的类要提前写好
        Dim className As String = AssemblyName + "." + "DLogin"
        'CType函数将返回表达式显示的转换为指定的数据类型、对象、结构、接口或类后的结果
        IUser = CType(Assembly.Load(AssemblyName).CreateInstance(className), IDAL.ILogin) '反射 给定程序集AssemblyName 或 className.加载程序集
        Return IUser
    End Function
End Class

有个函数

IUser = CType(Assembly.Load(AssemblyName).CreateInstance(className), IDAL.ILogin)

在以前好像没有见过，所以这一次在这个位置卡住了好久，后来请教了大神之后才知道是这样。所以现在来总结一下这个函数。

首先来介绍一下

IUser = CType(Assembly.Load(AssemblyName).CreateInstance(className), IDAL.ILogin) 

的意思类似于C#中的

IUser = （IDAL.ILogin）Assembly.Load(AssemblyName).CreateInstance(className)

该函数等价于一个if···else if···

如下：

if ( strongClassName == "className1"
IUser = new className1
else if ( strongClassName == "className2"
IUser = new classNaem2

现在来介绍一下CType函数

CType函数

 

CType函数作用于两个参数。第一个参数是将要转换的表达式，第二个参数是目标类型或对象类。注意，第一个参数必须是表达式，不能是类型。

CType函数是一个内联函数，这意味着转换是由已编译的代码执行的，通常不会生成函数调用，这将提高性能。

返回表达式显示地转换为指定的数据类型、对象、结构、类或接口后的结果

 

CType(expression,typename)

 

各部分说明

 

expression

任何有效的表达式。如果expression的值超出typename允许的范围，将引发异常。

 

typename

任何在Dim语句的As子句内合法的表达式，即任何数据类型、对象、结构、类或接口的名称。

 

备注

CType采用内联方式编译，即转换代码是计算表达式的代码的一部分。在某些情况下不需要调用一个过程来完成转换，这会使执行速度更快。

如果没有定义从expression到typename的转换，例如从Integer转换到Date，Visaul Basic将显示一条编译时错误信息。

如果在运行时转换失败，将会引发相应的异常。如果收缩转换失败，最常见的结果是OverflowException。如果未定义转换，将会发生InvalidCastException。例如，如果Exception的类型为Object，并且其运行时类型没有转换为typename，则可能会发生这种情况。

如果expression或typename的数据类型为已经定义的类或结构，则可以在该类或结构中将CType定义为转换运算符。这将使CType用作重载运算符。如果这样做，则可以控制转换在类或结构之间进行的转换的行为，包括可能引发的异常。

 

重载

CType运算符也可以在代码之外定义的类或结构中重载。如果您的代码需要在这样的类或结构之间进行转换，请确定您了解其CType运算符的行为。

 

示例

基本类型

k=CType(q,Integer)
'The following statement coerces w to the specific objectclass Lable
f=CType(w,Lable)
DimtestNumber As Long=1000
DimtestNewType As Single=CType(testNumber,Single)

复合类型

可以使用CType将值转换为复合数据类型和基本类型，也可以使用它将对象类型强制转换为它的一个接口类型。

'Assume class cZone implements interfac iZone
Dim hAs Object
'The first argument to CType must be an expression,not a type
DimcZ As cZone
'The following statement coerces a cZone object to itsinterface iZone
    h=CType(cZ,iZone)

 

数组类型

CType也可以转换数组数据类型

Dimv() As classV
DimobArray() As Object
'Assume some object array has been assigned to obArray
'Check for run-time type compatibility
    IfTypeOf obArray Is classV() Then
'obArray can be converted to classV
        v=CType(obArray,classV())
    End If

 

注意

与转换关键字一起使用的值对于目标数据类型必须是有效的，否则将会出错。例如，如果试图将Long转换为Integer，则Long的值必须在Integer数据类型的有效范围内。

 

CType函数的使用

 

使用对象数据类型来传递对象引用并在我们需要处理它们的时候将它们转换为适当的类型是十分有用的。这一切可以通过使用CType函数来实现，它允许我们使用类型对象的变量来使用早的捆绑方法调用：

Module LateBind
        Public Sub DoSomething(ByVal obj As Object)
            CType(obj,TheClass).MyMethod()
        End Sub
End Module

我们使用CType方法来暂时将变量转换为一个特殊的类型而不管TheClass的类型。CType函数是很有用的，特别是我们处理对象来执行多个界面的时候，因为我们可以引用一个对象变量并且它可以转换为适当的类型。举个例子，如果我们有一个类型的对象TheClass，这个对象执行MyInterface，哪么我们可以这样编写代码：

Dim obj As TheClass
       obj = New TheClass

*后文对CType总结的内容是参照大神 李朗轩2010.04.04在360个人图书馆中的信息，详情请点击： vb.net ctype用法