COMO SALVAR UMA LISTBOX EM .TEXT
Citação::
Ei kras, estou acompanhando este tópico pq tbm vai ser mto útil para mim.
Pegando krona na pergunta do FERATK, como que faz o processo invers? Ou seja, supondo q o arquivo já esteja salvo... Eu quero q meu Listbox carregue o txt a partir do arquivo salvo. Procurei no fórum mas não achei nada a respeito.
http://www.macoratti.net/vbn_atd1.htm
Bom, segui o link sugerido pelo ACDONA e consegui carregar um txt na listbox do meu projeto. Estou compartilhando seguinte código:
Public filePath As String = Application.StartupPath & [Ô]\dates.txt[Ô]
Private Sub Read()
Me.UseWaitCursor = True
Try
Dim Read As New IO.StreamReader(filePath)
While (Read.Peek() > -1)
lstDates.Items.Add(Read.ReadLine)
End While
Read.Close()
Me.UseWaitCursor = False
Catch
MsgBox([Ô]Erro de leitura. O arquivo especificado não pode ser carregado[Ô], MsgBoxStyle.Exclamation, [Ô]Erro[Ô])
Exit Sub
End Try
End Sub
Public filePath As String = Application.StartupPath & [Ô]\dates.txt[Ô]
Private Sub Read()
Me.UseWaitCursor = True
Try
Dim Read As New IO.StreamReader(filePath)
While (Read.Peek() > -1)
lstDates.Items.Add(Read.ReadLine)
End While
Read.Close()
Me.UseWaitCursor = False
Catch
MsgBox([Ô]Erro de leitura. O arquivo especificado não pode ser carregado[Ô], MsgBoxStyle.Exclamation, [Ô]Erro[Ô])
Exit Sub
End Try
End Sub
Tópico encerrado , respostas não são mais permitidas