设为首页
|
收藏本站
|
繁体中文
|
手机版
整站搜索
资讯
技巧
源码
行业
设备(待改)
资源
信息库(待改)
产品
作品(待改)
活动
培训(视频)
平台(待改)
二级(待改)
互动(作废)
交易
Access培训
-
Access开发平台
-
Access行业开发
首页
资讯
技巧
源码
行业
资源
活动
关于
培训
Access企业培训(现场)
Access在线培训
Access中级培训
Access高级培训
Access定制培训
Access树控件与BOM高级技巧
Access公开课
Access免费公开课视频
Access培训(VIP)
Access培训优惠信息
热门文章
Access VBA 动态..
ADP如何开发mdb数据库..
学习ACCESS的十大
如何用Access作为客户..
VBA你不得不听的一些技巧..
Access使用treev..
最新文章
Access组合框List..
Access设计我的工具箱..
Access文本文件读写[..
VBA开发神器第一版发布及..
Access使用treev..
Access使用treev..
联系方式
Access交流网(免费Access交流)
QQ:18449932
网 址:
www.access-cn.com
当前位置:
首页
>
培训
>
Access免费公开课视频
Access免费公开课视频
test
Public Function gf_GetKeyVal(ByVal strFileName As String, ByVal strSection As String, ByVal strKey As String)
On Error GoTo Err_Handler
Dim strRetVal As String
Dim strWorked As Integer
'判断当前路径INI文件是否存在
If Dir(strFileName) = "" Then
'MsgBox "未发现INI文件,请确认文件名或路径是否正确 !", vbCritical, "系统提示:": Exit Function
gf_GetKeyVal = ""
Exit Function
End If
'.....代码太长,省略部分代码,详细代码请:
联系作者>>
strWorked = GetPrivateProfileString(strSection, strKey, "", strRetVal, Len(strRetVal), strFileName)
'判断键值字符数,0则键值为空键值,否则赋值函数输出获得键值
If strWorked = 0 Then
gf_GetKeyVal = ""
Else
'InStr函数用于获得指定字符的起始位置,Chr(0)代表空字符
'
.....代码太长,省略部分代码,详细代码请:
联系作者>>
End If
Exit_Handler:
Exit Function
Err_Handler:
gf_MsgBox Err.Description
Resume Exit_Handler
End Function
'=============================================================================================
'函数名称: gf_AddToINI (可以实现创建抱括 INI文件本身,以及节区、子键、键值) 版本:1.01
'调用示例: gf_AddToINI(strFileName,strSection,strKey,strKeyValue)
'
'输入参数: (必需)strFileName String INI文件完整路径
' (必需)strSection String 节区名
' (必需)strKey String 子键名
' (必需)strKeyValue String 键值
'返 回: Integer
'适应版本: 97,2000,XP,2003,2007,2010,compatible
'作 者: 网络 整理:TM_彬 王宇虹
'关 键 字: INI
'推荐指数: 2
'难度等级: 2
'适应场合: INI
'说 明: 可以实现创建抱括 INI文件本身,以及节区、子键、键值
'=============================================================================================
'GUID: B64717EA-D7E0-43B5-BDE3-8A74D80B32DD 编码:1223233325 创建:2013/02/26 更新:2013/02/26
'=============================================================================================
Public Function gf_AddToINI(ByVal strFileName As String, ByVal strSection As String, ByVal strKey As String, ByVal strKeyValue As String) As Integer
On Error GoTo Err_Handler
'调用API函数不仅能实现(创建INI文件,添加新的节,添加新的子键,添加对应键值)
WritePrivateProfileString strSection, strKey, strKeyValue, strFileName
'函数返回1则表示操作成功,返回0为不成功
gf_AddToINI = 1
Exit_Handler:
Exit Function
Err_Handler:
gf_MsgBox Err.Description
Resume Exit_Handler
End Function
'=============================================================================================
'函数名称: gf_DeleteSection (删除指定节区及其所属所有子键(含键值)) 版本:1.01
'调用示例: gf_DeleteSection(strFileName,strSection)
'
'输入参数: (必需)strFileName String INI文件完整路径
' (必需)strSection String 节区名
'返 回: Integer
'适应版本: 97,2000,XP,2003,2007,2010,compatible
'作 者: 网络 整理:TM_彬 王宇虹
'关 键 字: 删除
'推荐指数: 1
'难度等级: 1
'适应场合: ini
'说 明: 删除指定节区及其所属所有子键(含键值)
'=============================================================================================
'GUID: C546004B-FE39-413C-AFD6-545F91A1B252 编码:1223233325 创建:2013/02/26 更新:2013/02/26
'=============================================================================================
Public Function gf_DeleteSection(ByVal strFileName As String, ByVal strSection As String) As Integer
On Error GoTo Err_Handler
'判断INI文件是否存在,不存在提示并退出函数
If Dir(strFileName) = "" Then MsgBox "未发现INI文件,请确认文件名或路径是否正确 !", vbCritical, "系统提示:": Exit Function
'.....代码太长,省略部分代码,详细代码请:
联系作者>>
WritePrivateProfileString strSection, vbNullString, vbNullString, strFileName
'赋值函数输出为1,表示操作成功.
gf_DeleteSection = 1
Exit_Handler:
Exit Function
Err_Handler:
gf_MsgBox Err.Description
Resume Exit_Handler
End Function
Office Excel及Access公开课免费
培训
报名 加群及YY使用方法,请查看下贴:
http://www.office-cn.net/thread-117308-1-1.html
发布人:zstmtony
分享到:
点击次数:
更新时间:2015-01-10 09:54:35 【
打印此页
】 【
关闭
】
上一条:
office的程序如何发布打包-免费Access培训公开课[14]
下一条:
Access使用treeview树控件之二-免费Access培训公开课[19]
相关文章
•
Access组合框ListBox数据交互(可多选)[经典源码剖析30]
•
Access设计我的工具箱[经典源码剖析29]
•
Access文本文件读写[经典源码剖析28]
•
VBA开发神器第一版发布及培训-平台插件VBA伴侣[经典源码剖析24.25]
•
Access使用treeview树控件之二-免费Access培训公开课[19]
•
Access使用treeview树控件之一-免费Access培训公开课[18]
•
Excel与Access 巅峰对决系列之二-免费Access培训公开课[17]
•
Access数据自动排名深入研究-免费Access培训公开课[16]
热门文章
[2015-04-09]
VBA开发神器第一版发布及培训-平台插件VBA伴侣[经典源码剖析24.25]
[2014-12-15]
Access使用treeview树控件之二-免费Access培训公开课[19]
[2014-12-15]
Access使用treeview树控件之一-免费Access培训公开课[18]
[2014-12-15]
巧用Access系列-Access辅助试题出卷-免费Access培训公开课[11]
[2022-12-10]
Access VBA 动态创建窗体-免费Access培训公开课[9]
[2015-06-08]
Access设计我的工具箱[经典源码剖析29]
热门产品