necesito funcion!!

"Bernardo Manzano Salazar" escribió en el mensaje
news:
hola!
Le he dado mil vueltas y no lo consigo. Necesito una función para una
clase que le pase el nombre de la propiedad y devuelva el tipo de dato
que es.

Hola,

En VB6:

' // Class1
Public f As Double
Public s As String
Private x As Integer

Public Property Get i() As Integer
i = x
End Property

Public Property Let i(v As Integer)
x = v
End Property

' --
' Esta es la funcion:
Public Function getType(propName As String) As String
Dim r As Variant
r = CallByName(Me, propName, VbGet)
getType = TypeName(r)
End Function

Y esta es una comprobación de su funcionamiento:

set x = New Class1
? x.getType("i")
Integer
? x.getType("f")
Double
? x.getType("s")
String

Alternativamente, puedes escribir una funcion global:

Public Function getType(unObjeto As Object, propName As String) As String
Dim r As Variant
r = CallByName(unObjeto, propName, VbGet)
getType = TypeName(r)
End Function

Lo que sí he echado en falta toda la vida es una función que reciba una
cadena con el nombre de una clase y te devuelva una instancia de esa clase.
Todos los lenguajes "modernos" (incluido VB.Net, que alguna virtud debía de
tener) la tienen. El viejo VB6 no.


Salud!