返回首页
当前位置: 主页 > 编程语言 > VB教程 >

在VB中INI文件的读写教程

时间:2014-10-08 00:06来源:电脑教程学习网 www.etwiki.cn 编辑:admin

很多时候我们编一个程序不一定要用到注册表来保存设置(如果说一个程序没有

设置就不算好程序了)。
INI是一个很好的选择。有人说,Savesetting是一个不错的选择,但是我了解到

,不能永久的保存(起码在系统重装的时候会丢失)。于是Ini作为一个Windows

配置文件,可以放在本地路径,优势就呈现出来。下面讨论一下这个问题。

1,模块:
Declare Function GetPrivateProfileString Lib "Kernel32" Alias

"GetPrivateProfileStringA" (ByVal lpApplicationName As String,

lpKeyName As Any, ByVal lpDefault As String, ByVal lpRetunedString As

String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Declare Function SaveINI Lib "Kernel32" Alias

"WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal

lpKeyName As Any, ByVal lpString As Any, ByVal lplFileName As String)

As Long
Function GetINI(AppName As String, KeyName As String, filename As

String) As String
Dim RetStr As String
RetStr = String(10000, Chr(0))
GetINI = Left(RetStr, GetPrivateProfileString(AppName, ByVal

KeyName, "", RetStr, Len(RetStr), filename))
End Function

2,调用:
读:Rtn=GetINI(appname, keyname, filename)
写:SaveINI appname,keyname,string,filename

调用例子:SaveINI "main","FontColor","801085","D:\"


3,参数解释:
例如INI文件中有这么一块:
[main]
FontColor=801085

其中:
main .................是appname
FontColor ..........是KeyName
801085 ...............是String
Filename ............INI的绝对路径


怎么,是不是现在可以用INI文件保存你的设置啦。

顶一下
(0)
0%
踩一下
(0)
0%
标签(Tag):vb教程
------分隔线----------------------------
------分隔线----------------------------
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
表情:
验证码:点击我更换图片
推荐内容