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
调用上面的API 读写函数,退出时将要保存的内容写入一个ini文件,再次加载该窗体时读取内容,例如:退出时 ,写入
Call WritePrivateProfileString("UserINFO", "UserName", TxtUserName.Text, SysIniFile)
Call WritePrivateProfileString("UserINFO", "UserPSW", TxtUserPSW.Text, SysIniFile)
加载时读取
TxtUserName.Text = ReadIniString("UserINFO", "UserName", SysIniFile, "")
TxtUserName.Text = ReadIniString("UserINFO", "UserPSW", SysIniFile, "")
温馨提示:答案为网友推荐,仅供参考