包含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) '保存的是另一种格式
分享文章:包含vb.net记事本保存的词条
文章网址:http://myzitong.com/article/hjijog.html