vb.net保存兩個(gè)文本框

1、首先，點(diǎn)擊保存按鈕后應(yīng)檢查文本框內(nèi)容。

創(chuàng)新互聯(lián)建站主要為客戶提供服務(wù)項(xiàng)目涵蓋了網(wǎng)頁視覺設(shè)計(jì)、VI標(biāo)志設(shè)計(jì)、營銷型網(wǎng)站建設(shè)、網(wǎng)站程序開發(fā)、HTML5響應(yīng)式網(wǎng)站建設(shè)公司、成都手機(jī)網(wǎng)站制作、微商城、網(wǎng)站托管及網(wǎng)站建設(shè)維護(hù)、WEB系統(tǒng)開發(fā)、域名注冊、國內(nèi)外服務(wù)器租用、視頻、平面設(shè)計(jì)、SEO優(yōu)化排名。設(shè)計(jì)、前端、后端三個(gè)建站步驟的完善服務(wù)體系。一人跟蹤測試的建站服務(wù)標(biāo)準(zhǔn)。已經(jīng)為成都格柵板行業(yè)客戶提供了網(wǎng)站開發(fā)服務(wù)。

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是一個(gè)標(biāo)識

System.IO.File.WriteAllText(Me.SaveFileDialog1.FileName, RichTextBox1.Text, System.Text.Encoding.Default) '當(dāng)標(biāo)識等于1時(shí)保存的事PlainText格式

Else '否則

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

分享題目：包含vb.net記事本保存的詞條
當(dāng)前路徑：http://chinadenli.net/article6/hjijog.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供、網(wǎng)站導(dǎo)航、外貿(mào)網(wǎng)站建設(shè)、企業(yè)建站、品牌網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計(jì)公司

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)