API 读写配置文件

模块中声明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