Ver Mensaje Individual
  #1 (permalink)  
Antiguo 20/02/2007, 05:01
tammander
 
Fecha de Ingreso: enero-2006
Ubicación: Torroles (Costa der Só)
Mensajes: 1.017
Antigüedad: 19 años, 4 meses
Puntos: 7
Comprobar si un objeto es de una clase o de otra

Supongamos dos clases:

class a
dim p1, p2
end class

class b
dim f1, f2
end class


Y supongamos que tenemos una funcion que nos develve una u otra segun se tercie


La pregunta es ¿Como comprobamos cual nos devuelve?

Hasta ahora yo lo hago asi:

on error resume next
set r = funcionquehacecosas()
check = r.p1
check = err <> 0
err.clear()
on error goto 0


¿Existe alguna manera mas elegante/efectiva/mejor de hacerlo?


Gracias miles a aquellos que disipen mis dudas


Un saludo


SOLUCIONADO

Usando TypeName:

if TypeName(r) = "a" then
' ....
elseif TypeName(r) = "b" then
' .....
end if



Un saludo
__________________
"Tus pecados son el estiércol sobre el que florecerán las flores de tus virtudes" - Gerald Messadié -

Última edición por tammander; 20/02/2007 a las 08:06 Razón: Problema resuelto