包含vb.net记事本保存的词条

vb.net保存两个文本框

1、首先，点击保存按钮后应检查文本框内容。

创新互联建站主要为客户提供服务项目涵盖了网页视觉设计、VI标志设计、营销型网站建设、网站程序开发、HTML5响应式网站建设公司、成都手机网站制作、微商城、网站托管及网站建设维护、WEB系统开发、域名注册、国内外服务器租用、视频、平面设计、SEO优化排名。设计、前端、后端三个建站步骤的完善服务体系。一人跟踪测试的建站服务标准。已经为成都格栅板行业客户提供了网站开发服务。

2其次，如果在文本框4中输入的值以400开头则保存反之更改为400。

3、最后，再次检查文本框5如果文本框5中的值为29或31则保存反之则更改即可。

求VB.NET记事本“保存”按钮代码

Dim WithEvents SvaeFileDialog1 As New SaveFileDialog

Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles button1.Click

Dim pp As String

SvaeFileDialog1.Filter = "文档文件(*.txt)|*.txt|所有文件(*.*)|*.*"

Dim r As MsgBoxResult

r = SvaeFileDialog1.ShowDialog

If r Then

FileOpen(1, SvaeFileDialog1.FileName, OpenMode.Output)

pp = Mid(Me.TextBox1.Text, 1, Len(Me.TextBox1.Text))

Print(1, pp)

Close()

MsgBox("Export Successfully!")

End If

End Sub

以上VS2010 WPF程序。

vb.net编的记事本怎么保存后的文档成乱码

这是编码问题。

用下面的方法：

If (Me.OpenFileDialog1.FilterIndex = 1) Then '1是一个标识

System.IO.File.WriteAllText(Me.SaveFileDialog1.FileName, RichTextBox1.Text, System.Text.Encoding.Default) '当标识等于1时保存的事PlainText格式

Else '否则

System.IO.File.WriteAllText(Me.SaveFileDialog1.FileName, RichTextBox1.Rtf, System.Text.Encoding.Default) '保存的是另一种格式