vb 的ini 文件的读写方法

首先要引用系统的函数
Option Explicit
'获取ini文件中的数据
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias _
"GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As _
String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As _
Long, ByVal lpFileName As String) As Long
' 写入到ini文件中的数据
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias _
"WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As _
String, ByVal lpString As String, ByVal lpFileName As String) As Long

写入操作：
' 将text1值写入到ini文件中
其中的F,dl0是任意定义的，读取或写入的变量名，要统一，是唯一的。
Dim F, dl0 As String
F = App.Path & "\" + App.EXEName + ".ini"
dl0 = WritePrivateProfileString("AAA", "m0", Text1.Text, F)
读出操作：
'从ini文件中，读出text1的值
Dim F, dl0 As String, nStr As String, nSize As Long, S As Long
Dim dl203, dl204 As String
F = App.Path & "\" + App.EXEName + ".ini"
nSize = 255: nStr = String(nSize, 0)

dl0 = GetPrivateProfileString("AAA", " m0", vbNullString, nStr, nSize, F)
'显示出来
Label5.Caption = nStr