现在应用程序有2个文本框(不是richtextbox),它们是信息的输入和输出。
我想要做的只是保存输出文本框的内容。我设法得到它来保存文件但是当它打开时它总是变空。
保存文件按钮的代码示例如下,我感觉它没有保存内容,因为它没有指定,但我不知道如何指定只保存一个文本框的内容,即使有很多几个小时的论坛/谷歌搜索我已经完成了试图自己解决。
Dim myStream As Stream
Dim nsavetxtoutput As New SaveFileDialog()
'|All files (*.*)|*.*
nsavetxtoutput.Filter = "txt files (*.txt)|*.text"
nsavetxtoutput.FilterIndex = 2
nsavetxtoutput.RestoreDirectory = True
If nsavetxtoutput.ShowDialog() = DialogResult.OK Then
myStream = nsavetxtoutput.OpenFile()
If (myStream IsNot Nothing) Then
' Code to write the stream goes here.
myStream.Close()
End If
End If
非常感谢任何和所有见解!
谢谢你们!
程序允许使用此功能仅保存文本框的内容 - 非常感谢所有回复的人。它有助于分配!
Private Sub NOTEPAD_BUTTON(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTSave2Notepad.Click
Dim nsavetxtoutput As New SaveFileDialog()
nsavetxtoutput.Filter = "txt files (*.txt)|*.text"
nsavetxtoutput.FilterIndex = 2
nsavetxtoutput.RestoreDirectory = True
If nsavetxtoutput.ShowDialog() = DialogResult.OK Then
IO.File.WriteAllText(nsavetxtoutput.FileName, txtoutput.Text)
End If
End Sub
答案 0 :(得分:2)
试试这个:
If nsavetxtoutput.ShowDialog() = DialogResult.OK Then
IO.File.WriteAllText(nsavetxtoutput.FileName, TextBox2.Text)
End If
TextBox2
是输出TextBox的地方。
MSDN Documentation的更多信息。
答案 1 :(得分:1)
您可以使用File.WriteAllText
方法写入文件。它需要两个参数。第一个是文件的路径,您可以从SaveFileDialog
获得该路径。第二个是您要写入文件的值。