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 LongPublic 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 = buffEnd SubPrivate Sub Form_Unload(Cancel As Integer) '当程序退出时保存Text里面的内容到当前目录set.ini里    Dim a As Long    a = WritePrivateProfileString("配置信息", "Name", Text1.Text, App.Path & "\Set.ini")End Sub