\' Gambas class file
Public seleccionCombo As Integer = 0
Public textoIntroduccion As String
Private arregloItems As New String[]
Private Personas As PersonaVo[]
Public VEventos As VentanaEventos
Public Vinforme As VentanaLog
Public Sub _new(p As PersonaVo[])
Dim a As Integer
Personas = p
arregloItems.add("Ver Eventos")
arregloItems.add(Personas[0].nombre)
arregloItems.add(Personas[1].nombre)
arregloItems.add(Personas[2].nombre)
textoIntroduccion = "Esta aplicaciĆ³n presenta un ejemplo practico usando el " &
"patron singleton, se tiene una clase singleton que permite " &
"almacenar un historico de los eventos ejecutados por 3 usuarios " &
"cada vez que estos presionan un boton de la ventana de eventos."
TextLabel1.text = textoIntroduccion
For a = 0 To arregloItems.count - 1
ComboBoxOpciones.Add(arregloItems[a])
Next
End
Public Sub Form_Open()
End
Public Sub ButtonOk_Click()
muestraVentana(ComboBoxOpciones.Index)
End
Public Sub muestraVentana(numero As Integer)
Select Case numero
Case 0
\'ventana de enventos
VentanaLog.Show()
Case 1 To 3
VEventos = New VentanaEventos(Personas[numero - 1])
VEventos.Show()
End Select
End