Agenda
Publicado por Alberto (1 intervención) el 27/02/2010 00:18:41
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.
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
Gracias de antemano.
PD. Está adaptado de un código para guardar un textbox, así que no se si está bien del todo...
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.
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
Gracias de antemano.
PD. Está adaptado de un código para guardar un textbox, así que no se si está bien del todo...
Valora esta pregunta


0