邪言灵师番外莲洛:vb 读写ini文件

来源:百度文库 编辑:九乡新闻网 时间:2024/04/28 17:28:35
Dim locbuffer As String   '读入参数时,临时打开的内存
'对api函数的声明
Private 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
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Long
'声明
Dim ret As Long
'写入ini文件
WritePrivateProfileString "四角吃水比重值", "a", Lab_gravity.Caption, App.Path & "\cotms.ini"      '将比重值写入cotms.ini
'读入ini文件给texset
locbuffer = String(255, " ")
ret = GetPrivateProfileString("四角吃水比重值", "a", "", locbuffer, 256, App.Path & "\cotms.ini")   '读ini文件
locbuffer = Trim(locbuffer)    '去掉空格
locbuffer = Left(locbuffer, Len(locbuffer) - 1)   '去掉最后一位结束符
TexSet.Text = locbuffer
locbuffer = " "