miércoles, 25 de diciembre de 2013

Cargar/Guardar datos de un ListBox








' Gambas class file

Public Sub BtnAgregar_Click()
  Dim ListaIndex As Integer
  ListBox1.Add(TextBox1.Text, ListaIndex)
End

Public Sub btnGuardarLista_Click()
  Dim JugadoresSon As String
  JugadoresSon = ListBox1.List.Join("\n")
  File.Save(User.Home & "/ListaPostapase", JugadoresSon)
  btnCargarLista.Enabled = True
End

Public Sub BtnBorrarTodo_Click()
  ListBox1.Clear
End

Public Sub btnCargarLista_Click()
  ListBox1.List = Split(File.Load(User.Home & "/ListaPostapase"), "\n")
End

domingo, 1 de diciembre de 2013

ColorChooser



' Gambas class file

Public Sub Form_Open()

End

Public Sub btnpintar_Click()

If RadioButtonFondo.Value = True Then
  btnmuestra.Background = ColorChooser1.SelectedColor
Else
  btnmuestra.Foreground = ColorChooser1.SelectedColor

  Endif
End

Public Sub btnsalir_Click()

  Me.Close

End