Montevideo
' gambas class file
PRIVATE palabra AS String
PRIVATE lista AS String
PUBLIC SUB Form_Open()
ListBox1.list = Settings["lista"]
END
PUBLIC SUB Button1_Click()
IF TextBox1.text = "" THEN
Message.Info("Debe escribir un nombre")
TextBox1.SetFocus
ELSE
palabra = TextBox1.Text
ListBox1.add(palabra)
TextBox1.Clear
TextBox1.SetFocus
ENDIF
END
PUBLIC SUB Form_Close()
Settings["lista"] = ListBox1.list
END
PUBLIC SUB ListBox1_Dblclick()
DIM jugador AS Integer
jugador = Int((ListBox1.Index))
TextBox2.text = ListBox1.List[jugador]
END
PUBLIC SUB Button2_Click()
ListBox1.Remove(ListBox1.Index)
END
PRIVATE palabra AS String
PRIVATE lista AS String
PUBLIC SUB Form_Open()
ListBox1.list = Settings["lista"]
END
PUBLIC SUB Button1_Click()
IF TextBox1.text = "" THEN
Message.Info("Debe escribir un nombre")
TextBox1.SetFocus
ELSE
palabra = TextBox1.Text
ListBox1.add(palabra)
TextBox1.Clear
TextBox1.SetFocus
ENDIF
END
PUBLIC SUB Form_Close()
Settings["lista"] = ListBox1.list
END
PUBLIC SUB ListBox1_Dblclick()
DIM jugador AS Integer
jugador = Int((ListBox1.Index))
TextBox2.text = ListBox1.List[jugador]
END
PUBLIC SUB Button2_Click()
ListBox1.Remove(ListBox1.Index)
END
En la primera ejecución aunque el listbox está vacío funciona sin problemas, agrego algo al listbox y me lo guarda para la siguiente ejecución.
Pero si borro todos los item del list box, a la siguiente ejecución me de el error out of bounds en la línea
ListBox1.list = Settings["lista"]
Si borro esta línea lo inicia, me deja cargar el listbox pero al cerrarlo me da el mismo error en la línea
Settings["lista"] = ListBox1.list
¿Alguien tiene idea si es un bug, o estoy bugeado yo'
Gracias
San Pedro Alcantara
