別名“GetPrivateProfileStringA”(_
ByVal lpApplicationName作為字符串，_
ByVal lpKeyName As Any，_
ByVal默認為字符串，_
ByVal以字符串形式返回了壹個字符串，_
ByVal nSize As Long，_
ByVal lpFileName作為字符串)壹樣長
私有聲明函數WritePrivateProfileString _
lib " kernel 32 " u
別名“WritePrivateProfileStringA”(ByVal lpApplicationName作為字符串，_
ByVal lpKeyName As Any，_
ByVal lpString As Any，_
ByVal lpFileName作為字符串)壹樣長
-
set_ini(？? ,?？,??ü×?,?)
-
Public Sub set_ini(字符串形式的ByVal fileName、字符串形式的ByVal App、字符串形式的ByVal key、字符串形式的ByVal strValue)
長時間模糊結果
result = WritePrivateProfileString(App，key，strValue，fileName)
末端接頭
-
get_ini(？? ,?？,??ü×?,?××?óС)
-
公共函數get_ini(字符串形式的ByVal文件名，_
字符串形式的部分，_
作為字符串的鍵，_
大小與字符串壹樣長)
Dim ReturnStr作為字符串
Dim返回壹樣長
get_ini = vbNullString
ReturnStr = Space(Size)
return LNG = GetPrivateProfileString(Section，key，vbNullString，ReturnStr，Size，fileName)
get_ini = Left(ReturnStr，InStr(1，ReturnStr，Chr(0)) - 1)
結束功能
私有子命令1_Click()
寫入INI
對於i = 1到6
調用set_ini("c:\test.ini "，" strbianliang "，" bianliang " & ampCStr(壹)，" 90 " & amp科學技術委員會(壹))
然後
讀取INI
對於i = 1到6
調用set_ini("c:\test.ini "，" strbianliang "，" bianliang " & ampCStr(壹)，" 90 " & amp科學技術委員會(壹))
v = get_ini("c:\test.ini "，" strbianliang "，" bianliang " & amp科技委(壹)，4)
調試。印刷
然後
末端接頭