1、返回表达式显示地转换为指定的数据类型、对象、结构、类或接口后的结果。CType(expression,typename)各部分说明expression任何有效的表达式。如果expression的值超出typename允许的范围,将引发异常。typename任何在Dim语句的As子句内合法的表达式,即任何数据类型、对象、结构、类或接口的名称。备注CType采用内联方式编译,即转换代码是计算表达式的代码的一部分。在某些情况下不需要调用一个过程来完成转换,这会使执行速度更快。如果没有定义从expression到typename的转换,例如从Integer转换到Date,Visaul Basic将显示
2、一条编译时错误信息。如果在运行时转换失败,将会引发相应的异常。如果收缩转换失败,最常见的结果是OverflowException。如果未定义转换,将会发生InvalidCastException。例如,如果Exception的类型为Object,并且其运行时类型没有转换为typename,则可能会发生这种情况。如果expression或typename的数据类型为已经定义的类或结构,则可以在该类或结构中将CType定义为转换运算符。这将使CType用作重载运算符。如果这样做,则可以控制转换在类或结构之间进行的转换的行为,包括可能引发的异常。重载CType运算符也可以在代码之外定义的类或结构中重
3、载。如果您的代码需要在这样的类或结构之间进行转换,请确定您了解其CType运算符的行为。示例基本类型k=CType(q,Integer)The following statement coerces w to the specific object class Lablef=CType(w,Lable)Dim testNumber As Long=1000Dim testNewType As Single=CType(testNumber,Single)复合类型可以使用CType将值转换为复合数据类型和基本类型,也可以使用它将对象类型强制转换为它的一个接口类型。Assume class cZo
4、ne implements interfac iZoneDim h As ObjectThe first argument to CType must be an expression,not a typeDim cZ As cZoneThe following statement coerces a cZone object to its interface iZoneh=CType(cZ,iZone)数组类型CType也可以转换数组数据类型Dim v() As classVDim obArray() As ObjectAssume some object array has been as
5、signed to obArrayCheck for run-time type compatibilityIf TypeOf obArray Is classV() ThenobArray can be converted to classVv=CType(obArray,classV()End If注意与转换关键字一起使用的值对于目标数据类型必须是有效的,否则将会出错。例如,如果试图将Long转换为Integer,则Long的值必须CType函数2009年01月06日 星期二 22:14CType函数例如,如果试图将Long转换为Integer,则Long的值必feee在Integer数据
6、类型的有效CType函数的使用使用对象数据类型来传递对象引用并在我们需要处理它们的时候将它们转换为适当的类型是十分有用的。这一切可以通过使用CType函数来实现,它允许我们使用类型对象的变量来使用早的捆绑方法调用:Module LateBind Public Sub DoSomething(ByVal obj As Object) CType(obj, TheClass).MyMethod() End Sub End Module我们使用CType方法来暂时将变量转换为一个特殊的类型而不管TheClass的类型。CType函数是很有用的,特别是我们处理对象来执行多个界面的时候,因为我们可以引用一个对象变量并且它可以转换为适当的类型。举个例子,如果我们有一个类型的对象TheClass,这个对象执行MyInterface,哪么我们可以这样编写代码:Di obj = New TheClass例如,如果试图将Long转换为Integer,则Long的值必须在Integer数据类型的有效范围内。CType函数的使用Dim obj As TheClass
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1