切换导航
首页
技术问答
编程语言
前端开发
移动开发
开发工具
程序设计
行业应用
CMS系统
服务器
频道导航
▸ PHP
▸ Java
▸ Java SE
▸ Python
▸ C#
▸ C&C++
▸ Ruby
▸ VB
▸ asp.Net
▸ Go
▸ Perl
▸ netty
▸ Django
▸ Delphi
▸ Jsp
▸ .NET Core
▸ Spring
▸ Flask
▸ Springboot
▸ SpringMVC
▸ Lua
▸ Laravel
▸ Mybatis
▸ Asp
▸ Groovy
▸ ThinkPHP
▸ Yii
▸ swoole
▸ HTML
▸ HTML5
▸ JavaScript
▸ CSS
▸ jQuery
▸ Bootstrap
▸ Angularjs
▸ TypeScript
▸ Vue
▸ Dojo
▸ Json
▸ Electron
▸ Node.js
▸ extjs
▸ Express
▸ XML
▸ ES6
▸ Ajax
▸ Flash
▸ Unity
▸ React
▸ Flex
▸ Ant Design
▸ Web前端
▸ 微信小程序
▸ 微信公众号
▸ iOS
▸ Android
▸ Swift
▸ Hybrid
▸ Cocos2d-x
▸ Flutter
▸ Xcode
▸ Silverlight
▸ cocoa
▸ Cordova
前端之家
VB
VB读写INI文件
VB读写INI文件
2019-10-24
VB
前端之家
前端之家
收集整理的这篇文章主要介绍了
VB读写INI文件
,
前端之家
小编觉得挺不错的,现在分享给大家,也给大家做个参考。
@H_
404
_0@
'****************************************************************************************** '* 需要注意的问题 * '****************************************************************************************** '1.INI
文件
的路径必须完整,
文件
名前面的各级目录必须存在,否则写入不成功,该
函数
返回 FALSE 值. '2.
文件
名的路径中必须为 //,因为在VC++中,// 才表示一个 / . '3.也可将INI
文件
放在程序所在目录,此时 lpFileName 参数为: ".//student.ini". '4.使用前请先初始化变量ProfileName '****************************************************************************************** '* API
函数
声明 * '****************************************************************************************** '为初始化
文件
中指定的条目取得字串 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 '为初始化
文件
中指定的条目
获取
一个整数值 Declare Function GetPrivateProfileInt Lib "kernel32" Alias _ "GetPrivateProfileIntA" (ByVal lpApplicationName As String,_ ByVal lpKeyName As String,_ ByVal nDefault As Long,_ ByVal lpFileName As String _ ) As Long '在初始化
文件
指定小节内设置一个字串 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 '
配置文件
名(包含完整路径名) Public ProfileName As String '****************************************************************************************** '
函数
名称
: iniProfileName '
函数
说明: 初始化
配置文件
名(
包括
完整路径名) '****************************************************************************************** Public Sub iniProfileName(strProfileName As String) ProfileName = strProfileName End Sub '****************************************************************************************** '过程
名称
: GetProfileValueString '过程说明:
获取
配置文件
中子键的值(字符串) '参数说明: SectionName - [部分] ' KeyWord - [关键词] ' DefString - [默认值] '返回值: 返回子键值(字符串) '****************************************************************************************** Public Function GetProfileValueString(ByVal SectionName As String,ByVal KeyWord As String,_ ByVal DefString As String) As String On Error GoTo errhandle Dim ResultString As String * 144,Temp As Integer Dim s As String,i As Integer Dim filename As String Temp% = GetPrivateProfileString(SectionName,KeyWord,"",ResultString,144,ProfileName) '检索关键词的值 If Temp% > 0 Then '关键词的值不为空 s = "" For i = 1 To 144 If Asc(Mid$(ResultString,i,1)) = 0 Then Exit For Else s = s & Mid$(ResultString,1) End If Next Else Temp% = WritePrivateProfileString(SectionName,DefString,ProfileName) '将缺省值写入INI
文件
s = DefString End If GetProfileValueString = s errhandle: If Err.Number Then Msg
Box
"读取
配置文件
出错:" & Err.Description End If End Function '****************************************************************************************** '过程
名称
: GetProfileValueInt '过程说明:
获取
配置文件
中子键的值(整型) '参数说明: SectionName - [部分] ' KeyWord - [关键词] ' DefString - [默认值] '返回值: 返回子键值(整型) '****************************************************************************************** Public Function GetProfileValueInt(ByVal SectionName As String,_ ByVal DefValue As Integer) As Integer On Error GoTo errhandle Dim d As Long,s As String d = DefValue GetProfileValueInt = GetPrivateProfileInt(SectionName,DefValue,ProfileName) If d <> DefValue Then s = "" & d d = WritePrivateProfileString(SectionName,s,ProfileName) End If errhandle: If Err.Number Then Msg
Box
"读取
配置文件
出错:" & Err.Description End If End Function '****************************************************************************************** '过程
名称
: SetProfileValueString '过程说明: 设置
配置文件
关键词的值(字符串) '参数说明: SectionName - [部分] ' KeyWord - [关键词] ' DefString - [默认值] '****************************************************************************************** Sub SetProfileValueString(ByVal SectionName As String,ByVal ValStr As String) On Error GoTo errhandle Dim res% res% = WritePrivateProfileString(SectionName,ValStr,ProfileName) errhandle: If Err.Number Then Msg
Box
"写入
配置文件
出错:" & Err.Description End If End Sub '****************************************************************************************** '过程
名称
: SetProfileValueInt '过程说明: 设置
配置文件
关键词的值(整型) '参数说明: SectionName - [部分] ' KeyWord - [关键词] ' DefString - [默认值] '****************************************************************************************** Sub SetProfileValueInt(ByVal SectionName As String,ByVal ValInt As Integer) On Error GoTo errhandle Dim res%,s$ s$ = Str$(ValInt) res% = WritePrivateProfileString(SectionName,s$,ProfileName) errhandle: If Err.Number Then Msg
Box
"写入
配置文件
出错:" & Err.Description End If End Sub
上一篇:vb随机函数
下一篇:VB 将长路径转为短路径 & 获取
猜你在找的VB相关文章
VB Format函数
Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强制返回为文本 --------------...
作者:前端之家 时间:2020-08-07
vb6/ASP FORMAT MM/DD/YYYY
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式,竟然没有好的办法, Format 或者FormatDateTi...
作者:前端之家 时间:2020-08-07
VB.net 捕获项目全局异常
在项目中添加如下代码:新建窗口来显示异常信息。 Namespace My ‘全局错误处理,新的...
作者:前端之家 时间:2020-08-07
实现用VB.Net/(C#)开发K/3 BOS 插件的真正可行方法
转了这一篇文章,原来一直想用C#做k3的插件开发,vb没有C#用的爽呀,这篇文章写与2011年,...
作者:前端之家 时间:2020-08-07
vb,wps,excel 分裂
Sub 分列() ‘以空格为分隔符,连续空格只算1个。对所选中的单元格进行处理 Dim m...
作者:前端之家 时间:2020-08-07
VB.NET MYSQL DataGridView 增删改查(INSERT,SELECT,UPDATE,DELETE)
Imports MySql.Data.MySqlClient Public Class Form1 ‘ GLOBAL DECLARATIONS ...
作者:前端之家 时间:2020-08-07
VB.NET 使用ADODB連接資料庫滙出到EXCEL
‘導入命名空間 Imports ADODB Imports Microsoft.Office.Interop Private Sub A1() Di...
作者:前端之家 时间:2020-08-07
vb.net 多线程運用 ping
Imports System.IO Imports System.Threading Imports System.Diagnostics Public Class F...
作者:前端之家 时间:2020-08-07
VB等待进程结束
VB运行EXE程序,并等待其运行结束 参考:https://blog.csdn.net/useway/article/details/5...
作者:前端之家 时间:2020-08-07
vb中去掉string数组的一部分
今天碰到一个问题,登陆的时候,如果不需要验证手机号为空,则不去验证手机号 因为登陆的时...
作者:前端之家 时间:2020-08-07
编程分类
PHP
Java
Java SE
Python
C#
C&C++
Ruby
VB
asp.Net
Go
Perl
netty
Django
Delphi
Jsp
.NET Core
Spring
Flask
Springboot
SpringMVC
Lua
Laravel
Mybatis
Asp
Groovy
ThinkPHP
Yii
swoole
最新文章
• VB Format函数
• vb6/ASP FORMAT MM/DD/YYY
• VB.net 捕获项目全局异常
• 实现用VB.Net/(C#)开发K/3
• vb,wps,excel 分裂
• VB文件 hash 查看器
• VB.NET MYSQL DataGridVie
• VB.NET 使用ADODB連接資料
• vb.net 多线程運用 ping
• VB等待进程结束
热门标签
更多 ►
文件时间
pythonm
相等性
PHP Warning
时间问题
问题解决
pcntl_signal
采样点
wav模块
动态文本
调用频率限制
对外暴露
多个访问请求
更新数据表
模型结构
type()方法
比较速度
手写体
sobel算子
保存模型
Image类
nn.Conv2d
pytorch1.0
kaggle
DCGAN
交并比
range()用法
打印模型
反卷积
卷积