VentanaPrincipal

' 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