模块中声明API函数:
Public 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
Public 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 Sub Form_Load()
Dim ret As Long
Dim buff As String
buff = String(255, 0)
ret = GetPrivateProfileString("配置信息", "Name", "", buff, 256, App.Path & "\Set.ini")
Text1.Text = buff
End Sub
Private Sub Form_Unload(Cancel As Integer) '当程序退出时保存Text里面的内容到当前目录set.ini里
Dim a As Long
a = WritePrivateProfileString("配置信息", "Name", Text1.Text, App.Path & "\Set.ini")
End Sub