说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB使用INI文件

HTML文档下载 WORD文档下载 PDF文档下载
VB使用INI文件
INI文件是Win16时代程序记录自身信息的方式,尽管当时的Windows 3.1也有注册表。在Win32时代,INI文件依然有其生存知道。比如一个绿色软件等等。
下面是读写INI文件的方法,为此我写了两个函数。
首先,声明两个API函数WritePrivateProfileString和GetPrivateProfileString,一下是代码:

Private Sub WriteToIni(ByVal Filename As String, ByVal Section As String, ByVal Key As String, ByVal Value As String)
  Dim buff As String * 128
  buff = Value + Chr(0)
  WritePrivateProfileString Section, Key, buff, Filename
End Sub
Private Function ReadFromIni(ByVal Filename As String,ByVal Section As String, ByVal Key As String) As String
  Dim i As Long
  Dim buff As String * 128
  GetPrivateProfileString Section, Key, "", buff, 128, Filename
  i = InStr(buff, Chr(0))
  ReadFromIni = Trim(Left(buff, i - 1))
End Function
应用举例:
一、写INI文件
Dim Counter As Long
For Counter=1 To 4
  Call WriteToIni(App.Path & "\Options.ini", "Test", "Name" & Counter, "Value" & Counter)
Next Counter
运行后Options.ini内容如下:
[Test]
Name1=Value1
Name2=Value2
Name3=Value3
Name4=Value4
二、读INI文件
Dim Counter As Long
Dim Value(3) As String
For Counter=1 To 4
  Value(Counter-1)=ReadFromIni(App.Path & "\Options.ini", "Test", "Name" & Counter)
Next Counter
VB与MS-Draw开发通用作图软件 VB中APP对象及其应用 VB中list控件的功能扩充 VB中用Multimedia MCI控件开发多媒体应用 Win Api在VB中的妙用 WINDOWS SCRIPT HOST对象在VB中的使用 安装向导生成程序组并建立多个程序项 -VB资料 保存复选框选项-VB资料 不用OCX来创建自己的控件(一)-VB资料 成组更新控件属性-VB资料 VB创建数据驱动窗体 得到鼠标位置 -VB资料 动态加入控件到VB控件数组中 对ListView中的列排序-VB资料 放一个Combo到Toolbar中 -VB资料 改进VB的驱动器列表框 给TreeView控件添加弹式菜单 -VB资料 计算从开机到现在用了多少秒-VB资料 将立体的ListView标题栏转换成平面式的标题栏 -VB资料 禁用窗体上所有控件 -VB资料 拷贝或移动列表框或组合框中的内容-VB资料 利用VB5开发ActiveX控件 利用VB三维面板控件设计流动条 浅谈用VB6.0编写BO程序 巧用Visual Basic的TIMER控件 VB取得控件绝对Top值 VB如何解决VB中的Grid 控件的打印问题 VB如果自定义 MsgBox 的按钮,标题等 VB如何创建数据绑定控件。 VB如何解决VB中的Grid控件的打印问题 VB如何强制文件对话框再次读取正确的磁盘? 动态调用DLL是出现的问题,棘手中,待解决。 我要对Spreadsheet的数据进行排序,用javascript怎么写 200分求<构建Web解决方案---应用ASP.NET和ADO.NET>电子书,不是只有源码的,谢谢 用DECS连接AS/400数据库问题 GD网站大家一起随便贴 寻人启事:我有一个侄子,网名叫穿越沦陷的爱,经常跑到这个版块来玩,谁看见了他,让他来找我,急事! 请教高手!!利用二进制文件转换成文本文件进行加密,实现理论是什么? IP包过滤程序问题!!!请大虾帮忙!! sql loader里面不支持FILLER 双系统中,如何删除WIN2000?(98+2000) 实现了第一个愿望... vc和vc.net有什么区别,学了vc有必要学vc.net吗??? 急,数据库表的问题!!! 为什么在Run ActivX程序时出现问题? DLL窗体关闭问题 setfont设置Dialog字体无效,搞不明白,大侠指点 为什么我的Web应用程序项目启动不了,总是出现错误!!! 100分求教jtable问题??? 菜鸟送分问题,请哪位大侠讲讲Inte1.ResponseCode和Inte1.ResponseInfo 声音变了!怎么办啊??? 100分 请问怎么做“索引”? make求救 用ant编译pet store 时,出现问题,提示信息见内文?请帮忙。。。高分酬谢。 三个三角了 开心ing 散分 tmd,上了vsnet2003贼船了。原来vc6的都不好用了 找在linux下免费gui?? 打开窗口获取原窗口信息的问题 Cbuilder安装问题,急! HelloWorld大全[接龙] 我要写一个程序在前台不需要运行后台运行可以:就像平时邮件服务品一样在前台不需要运行,而后台是提供服务的,要怎样来实现 临时表问题 多媒体教学系统开发 jbuilder中关于类的import问题? 有关远程控制的,例如抓屏,限制功能键,限制alt+f4,等等,请去http://hedaofeng.jahee.com 如何取得IE地址栏的输入信息? 急求一段ASP与SQLserver2000处理代码! 怎么创建win32 static library并输出函数?谢谢 !!!!求排列组合的简洁算法(80分) 我要对Spreadsheet的数据进行排序,用javascript怎么写 WIN32异常求救????!!!!!! 一个有深度的问题(对信号量操作不熟者请勿进) 知道为什么会出现iocopyout_chksum吗? 谁能给我《中文ACCESS开发指导手册》?? 从网上下的读不了 请问一个小问题 关于用Preferences存取注册表的问题 参数类型的问题 谁知道用什麽软件可以播放扩展名为1MP3的文件?(100分) 请问把一个二进制文件转换成文本文件,再把文本文件转换成二进制文件,该怎么做?求源代码?或有该代码的网址链接,多谢!不胜感激! main()函数里的两个参数argc、argv是什么意思?请赐教! 用HTTP上传文件,那位做过实际的应用的,帮忙... 大家上微软新闻组吧,感觉比这里快。 发布的近义词是什么 how much the _______ is the ruler?选择money 还是price multiple-vortex tornado什么意思 tornado frac 2道英语连词成句 1.they,accident,try,been,find,have,how,happen.2.I,catch,have,with,my,up,trouble,a,of,class,lot.可以根据需要改变词性,或者加一些助动词和the这一类的词. 同志们,这碗香菇能吃吗,刚刚泡香菇的水呈黄色. 为什么黄色的菌液划出红色的菌落我的菌液是用牛肉高蛋白胨培养的,可能在冰箱放的时间长了点,但是还是黄色,想划线在分离纯化一下,结果划出的都是红色,平板还是用牛肉高蛋白胨的~ 피알쥬얼리 커플링 리얼가죽是什么意思? 커피 使合同得以顺利的进行,英语怎么说?同上!有一种说法是什么...in a smooth way 想坐飞机逃生门附近座位?德航新规定要印尼组织攻击澳大利亚百家网站 抗议澳湖南永兴庭审致7死煤矿瓦斯事故案 1金冠网店20万元起步 揭开网店\"黑老师在大厦里办起\"培优班\" 课堂吉星鹏杀妻案开审 被告人称自首否认故伊朗称希望与“六方”就核计划开展严肃全球多地共赏日食奇观 罕见金边全环食埃及今天审判前总统穆尔西 数千支持者韩国航空国防展开幕 特种兵徒手斩酒瓶美媒:如何打赢与中国的战争学会独立,学会成熟,你才会拥有真正的美系车企2016年新车预览 多款豪车世界互联网大会开幕 易到用车承诺做“非盟官员称恐怖主义是非洲面临的重要挑京东农村金融亮相世界互联网大会 支持力盛芯微光机电洛阳产业基地引来千亿投百合网情感专家:别让远嫁的疑虑切断爱易到用车降价60% 新用户一分钱坐专丽江机场向千万级机场又进一步周雨寒:12.17现货白银行情分析及P2P“白名单”明年上线 护航系统三神鬼奇航重生法海铁剑玉佩娱乐天兴汉龙腾情与血华夏立国传王爷太诱人风灵之翼外星文明继承者商途沧源旅游曲周旅游麻栗坡旅游沙雅旅游云龙旅游惠农旅游丹寨旅游柳埠旅游原平旅游汤口旅游义县旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘