使用 ini 格式文件,用 API 函数读写。
Public Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long
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注意,写入时只能采用字符串方式。下面是 ini 文件格式和读取参数的例子:
[owner]
name=John Doe
organization=Acme Widgets Inc.
 
[database]
; use IP address in case network name resolution is not working
server=192.0.2.62     
port=143
file="payroll.dat"
Dim dbserver As String, dbport As Long
dbserver = Space(255)
Call  GetPrivateProfileString("database", "server", "127.0.0.1", dbserver, Len(dbserver), App.Path & "\dbsettings.ini")
dbport = GetPrivateProfileInt("database", "port", 143, App.Path & "\dbsettings.ini")