Obteniendo información de una clase. Propiedad Kind

Shell 14-11-2023, 01:12

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. Rolleyes

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

End

Saludos

"El conocimiento es la mejor inversión que se puede hacer" - Abraham Lincoln