分類: 電腦/網(wǎng)絡(luò) 程序設(shè)計(jì) 其他編程語言
成都創(chuàng)新互聯(lián)公司長(zhǎng)期為上千多家客戶提供的網(wǎng)站建設(shè)服務(wù),團(tuán)隊(duì)從業(yè)經(jīng)驗(yàn)10年,關(guān)注不同地域、不同群體,并針對(duì)不同對(duì)象提供差異化的產(chǎn)品和服務(wù);打造開放共贏平臺(tái),與合作伙伴共同營(yíng)造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為湖口企業(yè)提供專業(yè)的成都網(wǎng)站制作、成都網(wǎng)站建設(shè),湖口網(wǎng)站改版等技術(shù)服務(wù)。擁有十載豐富建站經(jīng)驗(yàn)和眾多成功案例,為您定制開發(fā)。
問題描述:
一個(gè) vb 程序中,想在程序關(guān)閉的時(shí)候保存一些變量,在下次打開的時(shí)候可以繼續(xù)使用,請(qǐng)問應(yīng)該怎么做?vb 中是否有現(xiàn)成的和函數(shù)可用?
解析:
有,使用app.config或自定義xml文件或讀寫注冊(cè)表或用數(shù)據(jù)庫,看MSDN
1、首先,點(diǎn)擊保存按鈕后應(yīng)檢查文本框內(nèi)容。
2其次,如果在文本框4中輸入的值以400開頭則保存反之更改為400。
3、最后,再次檢查文本框5如果文本框5中的值為29或31則保存反之則更改即可。
VB6.0
寫入:
Open "D:\123.txt" For Output As #1 '打開XXX路徑的XXX文件(雙引號(hào)里表示文件位置和文件名)
Print #1, Text1.Text '寫入Text1的Text內(nèi)容
Close #1 '關(guān)閉
讀取:
Open "D:\123.txt" For Input As #1 '打開打開XXX路徑的XXX文件(雙引號(hào)里表示文件位置和文件名)
Do While Not EOF(1)
Line Input #1, s
Text1.Text = s
Loop 'Do...Loop表示循環(huán)讀取文件的內(nèi)容,并讓Text1.Text=內(nèi)容
Close #1 '關(guān)閉
VB.net中讀寫文件主要使用System.IO命名空間。
① 使用?File.ReadAllText 讀取
Dim s As String = System.IO.File.ReadAllText("C:\a.txt")
② 使用 StreamReader 讀取,注意編碼格式和寫入的編碼保持一致。
Dim sr As StreamReader = New StreamReader("C:\a.txt", System.Text.Encoding.UTF8)
Dim s As String = sr.ReadToEnd()
sr.Close()
你就不能這樣保存么? ↓
Static SaveNumber as Integer
SaveNumber += 1
Dim SavePath as String = "C:\ytakqi" SaveNumber ".png"
bit.Save(SavePath)