VB实际读写INI文件

在窗体上画两个按钮(Command1、Command2)，一个输入框(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

'注：写入与读取的[主项名]和[子项名]一定要相同！
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 '读取
'定义读取字符串的长度，“Space$"取实际字符去掉字符后面多余的空格。txtBuff=Space$(1000)
'读取INI文件(主项名,子项名,空,读取子项名值,读取字符串长度,路径)
Call GetPrivateProfileString(txtym1, txtym2, “”, txtBuff, Len(txtBuff), ULR)
'显示实际字符串。取"txtBuff"左边的字符串(取得的字符串,字符串总长度(去掉字符串右边多余的空格字符(取得的字符串))得出字符串实际长度多一个，因此减1)
txtBuff = Left$(txtBuff,Len(RTrim$(txtBuff)) - 1)
'把读取到的字符串传递到"STRYMINI"函数
STRYMINI = txtBuff
Else
'把字符串写入INI文件(主项名，子项名，值，保存INI文件的路径)
Call WritePrivateProfileString(txtym1, txtym2, txtym3, ULR)
End If
End Function

'写入数据：
Private Sub Command1_Click()
Call STRYMINI(“主项名”, “子项名”, Text1.Text, False)
End Sub

'读取数据
Private Sub Command2_Click()
Dim Txt As String
Txt = STRYMINI(“主项名”, “子项名”, “”, True)
If Txt <> “” Then Text1.Text = Txt
End Sub