+- Comunidad Gambas-es (https://gambas-es.org)
+-- Foro: Gambas (https://gambas-es.org/forum-3.html)
+--- Foro: General (https://gambas-es.org/forum-4.html)
+--- Tema: Obteniendo información de una clase. Propiedad Kind (/thread-1539.html)
Obteniendo información de una clase. Propiedad Kind - Shell - 14-11-2023
Buenas!.
Lo que os voy a mostrar es muy sencillo. No se muestra si es algo heredado, ya sea un método, una propiedad, etc.
Pero por algo se empieza.
Supongamos que queremos saber de los símbolos que contiene una clase, ¿ qué representa este ?.
Código:
Public Sub Form_Open()
Dim unaclase As Class
Dim asimbolos As String[]
Dim simbolo As String
unaclase = Button 'Ejemplo de clase
asimbolos = unaclase.Symbols
For Each simbolo In asimbolos
Print simbolo; " ";
Select Case unaclase[simbolo].Kind 'Devuelve una serie de constantes
Case Class.Variable
Print "Es una variable"
Case Class.Constant
Print "Es una constante"
Case Class.Event
Print "Es un evento"
Case Class.Property
Print "Es una propiedad"
Case Class.Method
Print "Es un método"
End Select
Next
EndSaludos