Windows10下VB6.0开发——ini文件存储参数信息

前言：在使用VB编写上位机程序时，想要实现一个功能——每次修改Text文本框中的值后，使得关闭程序后该数值能够保存，在下次打开时可以直接使用。本文介绍了INI文件对该功能的支持。

1.INI文件

.ini文件是Initializaton File的缩写，即初始化文件，是windows系统配置文件采用的存储格式。

1.1 ini文件格式

INI文件由段、键、值组成。

段
用[ ]包括段名，如：[section]
键值对
一个键对应一个值的索引对，用=连接，如：keyname = value
注释
注释使用;表示，在该符号后直至该行结束的位置，都为注释

1.2 ini文件实例

下面是一个ini文件的例子：

工程部]
经理=张三
技术员=李四
工人=王五
[市场部]
经理=刘备
售后前台=关羽
业务员=张飞

2.VB操作

2.1 API声明调用

VB操作ini文件需要通过windows的API来操作。Windows提供了两个API函数对ini文件进行读写操作。
要调用这两个API,需要先将这两个函数声明加到程序开头(所有函数过程之前)：

Private 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
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

这两个API返回值都是Long类型，非零表示成功，零表示失败，并设置 GetLastError 。

2.2 写ini文件——WritePrivateProfileString

关于对ini文件的读写操作，提供的API中有很多参数，对于工程应用来说，逐个解释即繁琐又无必要，下面直接以实例展示出来，再标注下需要注意的地方。

Dim writeOK As Long'参数一： Section Name (段的名称)。'参数二： 节下面的键名称。'参数三： 键值的内容。'参数四： ini配置文件的路径名称。
writeOK = WritePrivateProfileString("工程部", "经理", "张三", ".\set1.ini")

注：

参数类型：除了段的名称和ini文件名称外，键值对的参数类型不固定，可为任意类型。但在文本形式存储格式中，建议统一存储成字符串格式。
文件：在写文件名时候，建议用相对路径代替绝对路径，即使用".\"，便于程序移植。使用上述API写ini文件时，该目录下不存在该文件，则会创建新文件写入。

2.3 读ini文件——GetPrivateProfileString

Dim readOK As Long
Dim stttr As String'参数一： Section Name (段的名称)。'参数二： 节下面的键名称。'参数三： 找不到键值时候填充的默认值。'参数四： 接收键值的字符串数组。'参数五： 从键值中获取几个字符。'参数六： ini配置文件的路径名称。
stttr = String(260, 0)  '字符数组
readOK = GetPrivateProfileString("工程部", "经理", "默认值", stttr, 22, ".\set1.ini")

注：

字符数组：参数四必须为字符数组，便于操作可将其设为定长字符数组。
字符数：参数五是从键值中截取的字符数，英文占1个字符，中文占2个字符，每个字符串结束后还有一个’\0‘,都需要计算进去。

Windows10下VB6.0开发——ini文件存储参数信息相关推荐

Windows10下VB6.0开发——写入数据到文件操作
前言:我们在编程中会经常需要将采集到的数据或者设置的参数保存到文件,在此进行VB的文件操作记录. VB保存参数到文件 VB中保存数据到文件的一种操作如下: Dim nHandle As Integ ...
Windows10下VB6.0开发——常见控件使用整理
前言:以下整理了一些常见控件的使用,关于串口通信的控件的使用,在之前文章介绍过. 1. 单选按钮 -- OptionButton 有很多场景中会需要用到单选按钮,使用单选按钮的基本原则是:在同一个 ...
Windows10下VB6.0开发——常用数值处理函数工具
前言:下面记录整理了VB中经常使用用于数据转换的工具函数. 数值处理 1. 取不大于n的最大整数--Int a = Int(-5.6) '=-6 a = Int(4.88) '=4 2. 四舍五入取整 ...
Windows10下VB6.0开发——常用的字符串处理函数工具
前言:下面记录整理了VB中经常使用用于字符串转换的工具函数. 字符串处理 1. 获取字符串长度--Len Len函数中的一个参数是目标字符串,返回目标字符串的长度,例如num = Len(&quo ...
Windows10下VB6.0开发——利用PictureBox控件实现数据点实时绘图
前言:VB中可以利用PictureBox控件实现数据点实时绘图功能. 1. 控件PictureBox 下面是PictureBox的图标: 将该控件拖到目标位置后调整它的形状大小,修改它的背景色 ...
Win10下VB6.0开发之串口通信基础(二)代码功能篇
MSComm控件串口通信开发 1. MSComm控件的处理流程 MSComm在适当时候引发控件的处理流程主要分为两步: 1)通过事件驱动处理连接端口通信在收发一个字符或者生一个事件时,不管是 ...
Win10下VB6.0开发之错误--无法打开对象窗口和代码窗口
错误:Win10下使用VB6.0打开一个.vbp文件时,打不开对象窗口和代码窗口解决办法:找了很久之后才发现,笔者所用笔记本外接了扩展显示屏,在断开外接显示屏连接后,打开VB,再重新外接显示屏即可. ...
Win10下VB6.0开发之串口通信基础(一)控件属性篇
前言:VB串口通信的方法一般有两种:一是通过Windows的通信API进行通信:另一种是通过VB的标准控件MSComm来实现.这篇文章要讲的是上位机如何通过VB的串口控件MSComm和下位机进行串口通 ...
Windows下VB6.0开发——关于String类型数据的思考
前言:之前做工程时候出现了打不开VB工程或者EXE文件打开就闪退的现象,最后一步步调试发现是程序出错.出错的地方竟然是一个小小的String类型数据处理引起的,记录下来. 1. 字符数组和字符串 1. ...