Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Averiguar Si Un Objeto Es Una Instancia De Una Clase
Autor Mensaje
Responder citando   Descargar mensaje 
Mensaje Averiguar Si Un Objeto Es Una Instancia De Una Clase 
 
Buenas noches!.

A penas tengo tiempo con el dichoso trabajo. Os muestro un ejemplo
Estaba interesado en conocer si un objeto es una instancia de una clase o heredado de una clase.

Clase Animal:
Private hnombre As String
Property nombre As String

Public Sub _new(snom As String)
  
  Me.nombre = snom  
    
End


Private Function nombre_Read() As String

  Return hnombre

End

Private Sub nombre_Write(Value As String)

  hnombre = Value

End

Public Sub Habla()
  
  
  
End
 


Clase Gato:
Inherits Animal

Public Sub Habla()
  
  Print Me.nombre & " dice Miauu"
  
End
 


Main:
Public Sub Main()
    
   Dim casper As Gato
  
   casper = New Gato("Casper")
   casper.Habla()
      
  Print Object.Is(casper, "Animal")
  Print Object.Is(casper, "Gato")  
    
End
 


Es verdadero en los dos casos.

Saludos
 




===================
Gambas Básico
"No es un bug, es una característica no documentada"
 
Shell - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Diferencia Entre Clase Y Objeto? v3ctor General 10 Domingo, 31 Enero 2016, 10:21 Ver último mensaje
Shell
No hay nuevos mensajes ¿Cómo Conocer La Clase De Un Objeto? shordi General 3 Jueves, 10 Noviembre 2016, 00:40 Ver último mensaje
vuott
No hay nuevos mensajes Averiguar Formulario Donde Esta Situada Un... v3ctor Aplicaciones/Fragmentos de Código 6 Sabado, 22 Febrero 2020, 10:45 Ver último mensaje
Shell
No hay nuevos mensajes Puede Una Instancia De Una Clase Suicidarse? tercoIDE General 18 Jueves, 23 Abril 2020, 15:14 Ver último mensaje
vuott
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario



  

 

cron