Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ' Gambas module file
- Public Sub Main()
- Dim ventana As VentanaPrincipal
- ventana = New VentanaPrincipal(crearPersonas())
- ventana.Show()
- End
- Public Function crearPersonas() As PersonaVo[]
- Dim p1 As PersonaVo
- Dim p2 As PersonaVo
- Dim p3 As PersonaVo
- Dim parray As PersonaVo[]
- p1 = New PersonaVo
- p1.documento = 1
- p1.nombre = "Pedro"
- p2 = New PersonaVo
- p2.documento = 2
- p2.nombre = "Pablo"
- p3 = New PersonaVo
- p3.documento = 3
- p3.nombre = "Paco"
- parray = [p1, p2, p3]
- Return parray
- End
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement