Comunidad Gambas-es

Private $nombre As String
Property nombre As String
 
Public Sub _new(nom As String)
 
  $nombre = nom
 
End
 
Private Function nombre_Read() As String
 
Return $nombre  
 
End
 
Private Sub nombre_Write(Value As String)
 
$nombre = Value  
 
End
 
Public Sub DiNombre()
 
  Print "Me llamo " & Me.nombre
 
End

Private grupopersonas As Persona[] = [Object.New("Persona", ["Alberto"]), Object.New("Persona", ["Lucía"])]
Private grupopersonas2 As New Persona[]
 
Public Sub Form_Open()
 
MostrarSaludo(grupopersonas)
Print "--------------"
 
Metodo2()
MostrarSaludo(grupopersonas2)
 
End
 
Public Sub MostrarSaludo(grupotmp As Persona[])
 
  Dim unapersona As Persona
 
  For Each unapersona In grupotmp
    unapersona.DiNombre()
  Next
 
End
 
Public Sub Metodo2()
 
  Dim unapersona As Persona
 
  unapersona = New Persona("Alberto")
  grupopersonas2.Add(unapersona)  
 
  unapersona = New Persona("Lucía")
  grupopersonas2.Add(unapersona)
    
 
End

Cita: 
Me llamo Alberto
Me llamo Lucía
--------------
Me llamo Alberto
Me llamo Lucía

Cita:This routine works exactly like the NEW operator, except that the class name is specified at runtime and not at compile time.

Cita:As the class is specified by name, only exported classes can be instanciated.

Cita:Esto significa que la clase será visible desde un programa principal cuando creemos un componente.

Cita:La primera definición de escaparate en el diccionario es una vitrina de vidrio utilizada para exhibir objetos en un museo o tienda. Otra definición de escaparate es un entorno en el que todo se puede mostrar de la mejor manera posible. Showcase también es exhibir o exhibir.