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 object class Lable

f=CType(w,Lable)

Dim testNumber As Long=1000

Dim testNewType As Single=CType(testNumber,Single)

复合类型

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

'Assume class cZone implements interfac iZone

Dim h As Object

'The first argument to CType must be an expression,not a type

Dim cZ As cZone

'The following statement coerces a cZone object to its interface iZone

h=CType(cZ,iZone)

数组类型

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

Dim v() As classV

Dim obArray() As Object

'Assume some object array has been assigned to obArray

'Check for run-time type compatibility

If TypeOf 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