asmcsl
26 de Febrero del 2010

Hola, estoy programando una agenda en visual basic 2008, y lo que hace esta agenda es pasar el contenido de un textbox a un checkedlistbox. Hasta ah铆 todo bien, ahora, el problema es que lo que anotas luego se borra en cuanto cierras el programa.

Lo que me gustar铆a saber, es c贸mo guardarlo. He probado a guardarlo con un bot贸n, y se guarda pero no se abre. Lo abro con el bloc de notas y sale esto:

System.Windows.Forms.CheckedListBox+ObjectCollectionjueves, 25 de febrero de 2010
7:00
Dentistami茅rcoles, 03 de febrero de 2010

%:00
Dentista

Evidentemente, es un ejemplo.

Entonces, se podr铆a conseguir que al abrir este archivo (con la extensi贸n .eg), la lista de las tareas a realizar se llenara otra vez con lo anterior establecido? O tambi茅n servir铆a que simplemente la lista no se borrara... Aunque prefiero lo primero.

Gracias de antemano,

Alberto.

Actualizado:

El c贸digo del bot贸n de abrir:

Dim Open As New OpenFileDialog()
Dim myStreamReader As System.IO.StreamReader
Open.Filter = "Documento de E-Agenda [*.eg]|*.eg"
Open.CheckFileExists = True
Open.Title = "Abrir Archivo..."
Open.ShowDialog(Me)
Try
Open.OpenFile()
myStreamReader = System.IO.File.OpenText(Open.FileName)
CheckedListBox1.Text = myStreamReader.ReadToEnd()
Catch ex As Exception

El c贸digo del bot贸n de guardar:

Dim Save As New SaveFileDialog()
Dim myStreamWriter As System.IO.StreamWriter
Save.Filter = "Documento de E-Agenda (*.eg)|*.eg"
Save.CheckPathExists = True
Save.Title = "Guardar como..."
Save.ShowDialog(Me)
Try
myStreamWriter = System.IO.File.AppendText(Save.FileName)
myStreamWriter.Write(CheckedListBox1.Text)
myStreamWriter.Flush()
Catch ex As Exception

End Try

PD. Est谩 adaptado de un c贸digo para guardar un textbox, as铆 que no se si est谩 bien del todo...