Vb.net 在VB中使用带列表框的“打开文件”对话框和“保存文件”对话框

我需要保存某人添加到列表中的内容，并打开一个txt文件，将其放入列表框中。当我打开一个txt文件时，我只得到一行代码，而我尝试保存时只生成空的txt文件。任何帮助都将不胜感激。这是我的密码：

Imports System.IO
公开课表格1
作为字符串列出的公共
私有子OpenToolStripMenuItem_Click（ByVal sender作为System.Object，ByVal e作为System.EventArgs）处理OpenToolStripMenuItem。单击
Dim AllText As String=“”，LineOfText As String=“”
Dim Stream可显示为StreamReader
OpenFileDialog1.Filter=“文本文件（*.txt）}|*.txt”
如果OpenFileDialog1.ShowDialog（）=DialogResult.OK，则
尝试
StreamToDisplay=My.Computer.FileSystem.OpenTextFileReader（OpenFileDialog1.FileName）
Label1.Text=OpenFileDialog1.FileName
直到StreamToDisplay.EndOfStream
LineOfText=StreamToDisplay.ReadLine（）
'AllText=AllText&LineOfText&vbCrLf
lstBox.Items.Add（已列出）
环
lstBox.Items.Add（AllText.ToString（））
StreamToDisplay.Close（）
CloseToolStripMenuItem.Enabled=True
OpenToolStripMenuItem.Enabled=False
特例
MsgBox（“发生错误。”&vbCrLf&ex.Message）
结束尝试
如果结束
端接头
私有子SaveToolStripMenuItem\u单击（ByVal sender作为System.Object，ByVal e作为System.EventArgs）处理SaveToolStripMenuItem。单击
SaveFileDialog1.Filter=“文本文件（*.txt）|*.txt”
如果SaveFileDialog1.ShowDialog（）=DialogResult.OK，则
My.Computer.FileSystem.WriteAllText（SaveFileDialog1.FileName，lstBox.Items.ToString（），False）
如果结束
端接头
私有子CloseToolStripMenuItem_Click（ByVal sender作为System.Object，ByVal e作为System.EventArgs）处理CloseToolStripMenuItem。单击
lstBox.Items.Clear（）
Label1.Text=“”
CloseToolStripMenuItem.Enabled=False
OpenToolStripMenuItem.Enabled=True
端接头
私有子btnAdd_Click（ByVal sender作为System.Object，ByVal e作为System.EventArgs）处理btnAdd。单击
Dim提示符为String=“在此处输入要添加的项目”
列出=输入框（提示）
lstBox.Items.Add（列出）.ToString（）
端接头
私有子BTN删除\单击（ByVal发件人作为System.Object，ByVal e作为System.EventArgs）处理BTN删除。单击
用lstBox
.Items.Remove（.SelectedItem）
以
端接头
末级

下面是一个简单的例子：

• 将项目添加到

  列表框

• 将它们保存到文件中
• 从文件中加载它们并用它们填充

  列表框

代码：

Imports System.IO

Public Class Form1
    Private Sub ButtonAddItem_Click(sender As Object, e As EventArgs) Handles ButtonAddItem.Click
        ListBox1.Items.Add(DateTime.Now.Ticks)
    End Sub

    Private Sub ButtonSave_Click(sender As Object, e As EventArgs) Handles ButtonSave.Click
        If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
            Using writer = New StreamWriter(SaveFileDialog1.FileName)
                For Each o As Object In ListBox1.Items
                    writer.WriteLine(o)
                Next
            End Using
        End If
    End Sub

    Private Sub ButtonLoad_Click(sender As Object, e As EventArgs) Handles ButtonLoad.Click
        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            Dim lines = File.ReadAllLines(OpenFileDialog1.FileName)
            ListBox1.Items.Clear()
            ListBox1.Items.AddRange(lines)
        End If
    End Sub
End Class