如何使用 SaveFileDialog 将多个标签和文本框（9 个标签和 9 个文本框）保存为 .txt？

Question

如何使用 SaveFileDialog 将多个标签和文本框（9 个标签和 9 个文本框）保存为 .txt？我尝试了很多方法，但没有任何效果..每次用户输入时我都需要将它们保存到 .txt 文件中，然后他选择要保存的位置..我使用的是 Visual Basic 2008

这是我最后一次尝试：

试试 Dim dlg As SaveFileDialog = New SaveFileDialog dlg.Title = "保存" dlg.Filter = "文本文件(.txt)|.txt|所有文件(.)|.|富文本文件(.rtf)|.rtf" 如果 dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK 那么 My.Computer.FileSystem.WriteAllText("c:\value1.txt", Label1.Text & TextBox13.Text & Label2.Text & TextBox12.Text & Label3.Text & TextBox14.Text & Label4.Text & TextBox3.Text & Label5 .Text & TextBox6.Text & Label6.Text & TextBox7.Text & Label7.Text & TextBox8.Text & Label8.Text & TextBox9.Text & Label9.Text & TextBox10.Text，假） 万一 Catch ex As Exception : End Try

Answer 1

您遇到了什么错误？如果指定文件名/路径，为什么要显示 FileSaveDialog？为什么将 False 传递给 WriteAllText 方法，而不是像 System.Text.Encoding.ASCII 这样的 Encoding 类型？

如果你改为这样做会怎样？

Imports System.IO

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Try
        Dim myStream As StreamWriter
        Dim saveFileDialog1 As New SaveFileDialog()

        saveFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*|Rich Text Files (.rtf)|.rtf"
        saveFileDialog1.FilterIndex = 1
        saveFileDialog1.RestoreDirectory = True

        If saveFileDialog1.ShowDialog() = DialogResult.OK Then
            myStream = New StreamWriter(saveFileDialog1.OpenFile())
            If (myStream IsNot Nothing) Then
                myStream.WriteLine(Me.Label1.Text & " " & Me.TextBox1.Text)
                'Additional lines, or however you want to format
                myStream.Close()
            End If
        End If

    Catch ex As Exception
        'Error handling
    End Try
End Sub

End Class