vb.net 如何存儲(chǔ)用戶數(shù)據(jù)？

這個(gè)你可以用 api操作ini文件來(lái)實(shí)現(xiàn)。ini是windows系統(tǒng)的配置文件。

吳忠網(wǎng)站建設(shè)公司創(chuàng)新互聯(lián)公司,吳忠網(wǎng)站設(shè)計(jì)制作，有大型網(wǎng)站制作公司豐富經(jīng)驗(yàn)。已為吳忠成百上千提供企業(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\成都外貿(mào)網(wǎng)站制作要多少錢(qián)，請(qǐng)找那個(gè)售后服務(wù)好的吳忠做網(wǎng)站的公司定做！

'首先聲明這兩個(gè)api

Private Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long

Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

VB.NET編程中用戶的數(shù)據(jù)應(yīng)該怎么保存?

在游戲退出時(shí)將得分、玩家名、關(guān)數(shù)、級(jí)別這些數(shù)值保存到一個(gè)

數(shù)據(jù)文件

，下次運(yùn)行時(shí)再讀取這些數(shù)據(jù)就可以恢復(fù)上次游戲的狀態(tài)。

vb.net儲(chǔ)存文本數(shù)據(jù)方法

Private Sub Command1_Click()

'寫(xiě)文件示例

Dim strFileName As String '文件名

Dim lngHandle As Long '句柄

Dim strWrite As String '要寫(xiě)入的文本內(nèi)容

strFileName = App.Path "\a.txt"

''''''''App.Path "\a.txt"相對(duì)路徑

''"c:\w.txt"絕對(duì)路徑

lngHandle = FreeFile() '取得句柄

'準(zhǔn)備要寫(xiě)入的內(nèi)容

strWrite = Text1.Text '或者 strWrite = "這些文字將被寫(xiě)入文件。"

'For后面的參數(shù)表示以何種方式打開(kāi)文件，Input是讀取，Output是覆蓋寫(xiě)入，Append是追加寫(xiě)入

''''''append是每次在文件末尾寫(xiě)入,不刪除其它已經(jīng)存在的文件.如果換成output則刪除其它文件后再寫(xiě)入

''''''print#1,text1.text ''''''如果print換成write則寫(xiě)進(jìn)txt中后自動(dòng)加雙引號(hào)

Open strFileName For Output As lngHandle '打開(kāi)文件

Print #lngHandle, strWrite '寫(xiě)入文本

Close lngHandle '關(guān)閉文件

End Sub

Private Sub Command2_Click()

'讀文件示例

Dim strFileName As String '文件名

Dim lngHandle As Long '文件句柄

Dim strAll As String '所讀取的文本文件的所有內(nèi)容

Dim strLine As String '在循環(huán)中存放每行的內(nèi)容

strFileName = App.Path "\a.txt"

'獲得文件的句柄

lngHandle = FreeFile()

'For后面的參數(shù)表示以何種方式打開(kāi)文件，Input是讀取，Output是覆蓋寫(xiě)入，Append是追加寫(xiě)入

Open strFileName For Input As lngHandle

'循環(huán)直到文件尾

Do While Not EOF(lngHandle)

'每次讀取一行存放在strLine變量中

Line Input #lngHandle, strLine

'每次讀取都把所讀到的內(nèi)容連接到strAll變量，由于Line Input去掉了換行符，所以這里補(bǔ)上

strAllstrAll = strAll strLine vbCrLf

Loop

'顯示得到的全部分內(nèi)容

MsgBox strAll

End Sub

Private Sub Command1_Click()

Open App.Path "\a.txt" For Output As #1

Print #1, Text1.Text '這里可以是數(shù)據(jù)本身也可以是目標(biāo)控件的屬性

Close #1 '關(guān)閉打開(kāi)的文件

End Sub

'For后面的參數(shù)表示以何種方式打開(kāi)文件，Input是讀取，Output是覆蓋寫(xiě)入，Append是追加寫(xiě)入

append是每次在文件末尾寫(xiě)入,不刪除其它已經(jīng)存在的文件.如果換成output則刪除其它文件后再寫(xiě)入 print#1,text1.text 如果print換成write則寫(xiě)進(jìn)txt中后自動(dòng)加雙引號(hào)，以上就是數(shù)據(jù)保存為VB.NET TXT文件的代碼。

分享文章：vb.net儲(chǔ)存數(shù)據(jù) vbnet imports
網(wǎng)站URL：http://jinyejixie.com/article44/ddcceee.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供軟件開(kāi)發(fā)、網(wǎng)站內(nèi)鏈、品牌網(wǎng)站設(shè)計(jì)、微信小程序、ChatGPT、網(wǎng)站制作

廣告

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