如何使用SaveFileDialog將多個標籤和文本框（9個標籤和9個texboxes）保存爲.txt？

Question

如何使用SaveFileDialog將多個標籤和文本框（9個標籤和9個texboxes）保存爲.txt？我嘗試了很多方法，但沒有任何工作，因爲我想..我需要將它們保存爲.txt文件，每次用戶的輸入，他選擇他想保存它的位置..我使用的是Visual Basic 2008

這是我最後一次嘗試：

嘗試 昏暗DLG作爲SaveFileDialog =新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。文字& Label4.Text & TextBox3.Text & Label5.Text & TextBox6.Text & Label6.Text & TextBox7.Text & Label7.Text & TextBox8.Text & Label8.Text & TextBox9.Text & Label9.Text & TextBox10.Text，假） End If 趕上前例外：結束嘗試

Answer 1

你有什麼錯誤與此？如果你指定文件名/路徑，你爲什麼要顯示FileSaveDialog？爲什麼要將False傳入WriteAllText方法，而不是像System.Text.Encoding.ASCII那樣的編碼類型？

如果你做了這樣的事情呢？

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