在窗體上畫兩個(gè)按鈕(Command1、Command2)，一個(gè)輸入框(Text1),代碼如下：
Option Explicit
Private Declare Function GetPrivateProfileString Lib “kernel32” Alias “GetPrivateProfileStringA” (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize 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

'注：寫入與讀取的[主項(xiàng)名]和[子項(xiàng)名]一定要相同！
Private Function STRYMINI(txtym1 As String, txtym2 As String, txtym3 As String, ONOFF As Boolean) As String
Dim ULR As String
ULR = App.Path & “\1.ini” 'INI文件路徑
Dim txtBuff As String
If ONOFF = True Then '讀取
'定義讀取字符串的長(zhǎng)度，“Space$"取實(shí)際字符去掉字符后面多余的空格。txtBuff=Space$(1000)
'讀取INI文件(主項(xiàng)名,子項(xiàng)名,空,讀取子項(xiàng)名值,讀取字符串長(zhǎng)度,路徑)
Call GetPrivateProfileString(txtym1, txtym2, “”, txtBuff, Len(txtBuff), ULR)
'顯示實(shí)際字符串。取"txtBuff"左邊的字符串(取得的字符串,字符串總長(zhǎng)度(去掉字符串右邊多余的空格字符(取得的字符串))得出字符串實(shí)際長(zhǎng)度多一個(gè)，因此減1)
txtBuff = Left$(txtBuff,Len(RTrim$(txtBuff)) - 1)
'把讀取到的字符串傳遞到"STRYMINI"函數(shù)
STRYMINI = txtBuff
Else
'把字符串寫入INI文件(主項(xiàng)名，子項(xiàng)名，值，保存INI文件的路徑)
Call WritePrivateProfileString(txtym1, txtym2, txtym3, ULR)
End If
End Function

'寫入數(shù)據(jù)：
Private Sub Command1_Click()
Call STRYMINI(“主項(xiàng)名”, “子項(xiàng)名”, Text1.Text, False)
End Sub

'讀取數(shù)據(jù)
Private Sub Command2_Click()
Dim Txt As String
Txt = STRYMINI(“主項(xiàng)名”, “子項(xiàng)名”, “”, True)
If Txt <> “” Then Text1.Text = Txt
End Sub

總結(jié)

以上是生活随笔為你收集整理的VB实际读写INI文件的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。