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

No hay comentarios.:

Publicar un comentario