texto - VB6 Cast Expression

operador like en visual basic

Question

¿Cuál es la expresión equivalente al CType de VB.NET en Visual Basic 6?

Answer 1

Ctype () Yo creo. El C * (CDate (), CStr (), etc.) son remanentes en su mayor parte.

Answer 2

Digamos que tiene un objeto de ChildClass (niño) que quiere lanzar a BaseClass. Tu hiciste esto:

Dim base As BaseClass
Set base = child

Debido a la forma en que VB6 maneja la seguridad del tipo de tiempo de compilación, puede hacerlo sin ninguna sintaxis adicional.

Nota: Dado que todos los demás parecen haber mencionado CType , es posible que haya malinterpretado la pregunta por completo, ¡y me disculpo si ese es el caso!

Answer 3

Hay una cantidad de ellos dependiendo del tipo al que está lanzando

cint() Cast to integer
cstr() cast to string
clng() cast to long
cdbl() cast to double
cdate() cast to date

También tiene conversión implícita, así que puedes hacer esto myString = myInt

Answer 4

Parece que algunos carteles han leído mal la pregunta, por lo que trataré de aclarar las cosas reformulando la pregunta y resumiendo las respuestas correctas dadas hasta ahora.

Problema

Quiero transmitir datos de un tipo a otro tipo. En mi código VB.NET usaría CType para hacer esto. Sin embargo, cuando intento usar CType en VB6, aparece el error "Sub o función no definida". Entonces, ¿cómo puedo realizar moldes en VB6 si CType no funciona?

Solución

Como habrás descubierto, VB6 no tiene una función CType como VB.NET. Sin embargo, las otras funciones de conversión (aquellas que tienen nombres que comienzan con C ), que puede haber encontrado en el código VB.NET, como CInt y CStr, existen en VB6, y puede usarlas para convertir ay desde tipos de objetos No hay una función incorporada para convertir un objeto de una clase en un objeto de otra clase. Tenga en cuenta que VB6, a diferencia de VB.NET, no admite la herencia. Una clase en VB6 puede implementar una o más interfaces, pero no puede heredar de otra clase. Sin embargo, si la clase de un objeto implementa más de una interfaz, puede usar la instrucción Set para convertir un objeto a una de las interfaces que admite (como Ant sugirió). A continuación, se proporciona una versión extendida del ejemplo del código de Ant:

Ejemplo: Lanzar una clase a una de sus interfaces compatibles

Dim base As BaseClass
Dim child As ChildClass     ''implements BaseClass''

Set child = New ChildClass 
Set base = child            ''"Cast" child to BaseClass''

Funciones de conversión de tipo incorporadas en VB6

A continuación se incluye una lista completa de las funciones de conversión incorporadas disponibles en VB6, tomadas directamente del archivo de Ayuda de VB6.

CBool

Devoluciones

Boolean

Descripción

Convierta la expresión a Boolean.

Rango para el argumento de expresión :

Cualquier cadena válida o expresión numérica.

CByte

Devoluciones

Byte

Descripción

Convierte la expresión a Byte.

Rango para el argumento de expresión :

0 a 255

CCur

Devoluciones

Currency

Descripción

Convierte expresión a Moneda.

Rango para el argumento de expresión :

-922,337,203,685,477.5808 a 922,337,203,685,477.5807.

CDate

Devoluciones

Date

Descripción

Convierta expresión a Fecha.

Rango para el argumento de expresión :

Cualquier expresión de fecha válida.

CDbl

Devoluciones

Double

Descripción

Convierta la expresión a Doble.

Rango para el argumento de expresión :

-1.79769313486232E308 a -4.94065645841247E-324 para valores negativos; 4.94065645841247E-324 a 1.79769313486232E308 para valores positivos.

CDec

Devoluciones

Decimal

Descripción

Convierta la expresión a Decimal.

Rango para el argumento de expresión :

+/- 79,228,162,514,264,337,593,543,950,335 para números a escala cero, es decir, números sin decimales. Para números con 28 lugares decimales, el rango es +/- 7.9228162514264337593543950335. El número distinto de cero posible más pequeño es 0.0000000000000000000000000001.

CInt

Devoluciones

Integer

Descripción

Convierte la expresión a Long.

Rango para el argumento de expresión :

-32,768 a 32,767; las fracciones son redondeadas

CLng

Devoluciones

Long

Descripción

Convierte la expresión a Long.

Rango para el argumento de expresión :

-2,147,483,648 a 2,147,483,647; las fracciones son redondeadas

CSng

Devoluciones

Single

Descripción

Convierta la expresión a Single.

Rango para el argumento de expresión :

-3.402823E38 a -1.401298E-45 para valores negativos; 1.401298E-45 a 3.402823E38 para valores positivos.

CStr

Devoluciones

String

Descripción

Convierta la expresión a Cadena.

Rango para el argumento de expresión :

Las devoluciones para CStr dependen del argumento de expresión.

CVar

Devoluciones

Variant

Descripción

Convierte expresión a Variante.

Rango para el argumento de expresión :

El mismo rango que el Doble para numéricos. El mismo rango que String para no numéricos.

Answer 5

Las conversiones no son "moldes" en absoluto. Por ejemplo, intente:

MsgBox CLng(CBool(3&))

El resultado es -1, no 3. Esto se debe a que esas son funciones de conversión , no moldes. ¡El lenguaje es importante!

Answer 6

Los moldes ya mencionados son correctos, pero si el tipo es un Objeto, entonces debes usar "Establecer" en VB6, como por ejemplo:

If IsObject(Value) Then
    Set myObject = Value '' VB6 does not have CType(Value, MyObjectType)
Else
    myObject = Value     '' VB6 does not have CType(Value, MyObjectType)
End If

Eso, por supuesto, depende del tipo al que estás enviando. Casi todas las clases de usuarios son objetos, así como Collection, Dictionary y muchos otros. Los tipos incorporados, como long, integer, boolean, etc. obviamente no son objetos.