Clase Persona (ejemplo)

FMain:

' gambas class file

' by postapase

Public Personas As New Variant[]


Public Sub btnAgregarPersona_Click()
Dim EstaPersona As New Persona

EstaPersona.Nombre = txtNombre.Text
EstaPersona.Apellido = txtApellido.Text

Personas.Add(EstaPersona)

LabInfo.Text = "Se agrego a " & EstaPersona.Nombre & ", " & EstaPersona.Apellido

txtApellido.Clear
txtNombre.Clear
txtNombre.SetFocus

End

Public Sub btnLeerDatosPersonas_Click()
Dim Xpersona As Persona

TextArea1.Clear

For Each Xpersona In Personas
TextArea1.Text &= Xpersona.Nombre & ", " & Xpersona.Apellido & gb.NewLine
Next

End

Public Sub Form_Open()
Me.Center
End

Clase Persona:

' gambas class file

' by postapase

Property Nombre As String
Property Apellido As String

Private XNombre As String
Private XApellido As String

Private Function Nombre_Read() As String
Return XNombre
End

Private Sub Nombre_Write(Value As String)
XNombre = Value
End

Private Function Apellido_Read() As String
Return XApellido
End

Private Sub Apellido_Write(Value As String)
XApellido = Value
End

Clase_Persona-0.0.1.tar.gz