vb.net - 如何获取多个文本框的值并创建一个富文本框（保存为.txt）VB.NET

Question

我想知道如何获取几个文本框（具有从用户估算的值）并将它们放在一起以使一大块文本变成.txt。我特别想制作一个吉他标签应用程序。

我已经创建了基本设计，但我需要帮助来保存它。我放了一个菜单条来保存。当用户单击时，它会打开一个带有富文本框的表单。

我的问题：我希望它采用文本框，按特定顺序格式化它们，然后将它们添加到富文本框中，以后可以将它们另存为 .txt。

随时提出任何问题以澄清我的情况。谢谢。

Answer 1

下面是将所有文本框数据存储到字符串变量中的代码，然后将该变量的内容分配给 Richtextbox。有两个按钮，一个用于将文本框数据发送到 Richtextbox，另一个用于将其保存到文本文件中。希望对你有帮助。

公共类 Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) 处理 MyBase.Load

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim tbox As String = ""
    tbox &= TextBox1.Text & Environment.NewLine &
        TextBox2.Text & Environment.NewLine &
        TextBox3.Text & Environment.NewLine &
        TextBox4.Text & Environment.NewLine &
        TextBox5.Text
    RichTextBox1.Text = tbox
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    SaveMyFile()
End Sub

Public Sub SaveMyFile()
    ' Create a SaveFileDialog to request a path and file name to save to.
    Dim saveFile1 As New SaveFileDialog()

    ' Initialize the SaveFileDialog to specify the RTF extension for the file.
    saveFile1.DefaultExt = "*.txt"
    saveFile1.Filter = "TXT Files|*.txt"

    ' Determine if the user selected a file name from the saveFileDialog.
    If (saveFile1.ShowDialog() = System.Windows.Forms.DialogResult.OK) _
        And (saveFile1.FileName.Length) > 0 Then

        ' Save the contents of the RichTextBox into the file.
        RichTextBox1.SaveFile(saveFile1.FileName,
            RichTextBoxStreamType.PlainText)
    End If
End Sub

结束类