全文预览已结束
下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
建议将变量写入INI文件中,下次再用时直接读取INI文件中变量的值。比如一个登陆窗口需要输入用户名和密码,但是退出系统后再次登录时还需要选择或者输入用户名,这样很麻烦所以可以将上次登录的信息写入INI文件中,下次登录时直接读取INI文件。读写INI文件代码如下:Attribute VB_Name = 读写INI文本模块Option ExplicitPublic 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 LongPublic Declare Function WritePrivateProfileString Lib kernel32 Alias WritePrivateProfileStringA (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As LongPublic Sub MyWriteINI(ByVal strSectionName As String, ByVal strTopic As String, ByVal strContent As String, ByVal strINIfilename As String)*功能:(建立)写入INI文件 2004-5-17参数: strSectionName -要在其中写入新字符串的小节名 strTopic -小节中的要设置的项目标题,用vbNull String可删除这个小节的所有设置项. strContent -指定为对应项目标题写入的字符串内容,用vbNull String可删除这个项目现有的字符串. strINIfilename- .ini文件的(完整)名称,如果没有找到,函数会创建它.*Dim lngSuccess As LonglngSuccess = WritePrivateProfileString(strSectionName, strTopic, strContent, strINIfilename)If lngSuccess = 0 Then DisplayMessage 写入INI文件失败!End IfExit SubEnd SubPublic Function MyReadINI(ByVal strSectionName As String, ByVal strTopic As String, ByVal strINIfilename As String) As StringDim lngRet As LongDim buff As Stringbuff = String(255, 0)lngRet = GetPrivateProfileString(strSectionName, strTopic, , buff, 256, strINIfilename)If lngRet 0 Then MyReadINI = buffEnd IfExit FunctionEnd Function classIniFile.cls的内容: Option Explicit -classIniFile.cls 代码- 这里定义了一个classIniFile类 一个绝对经典的在VB中操作.ini文件的通用类源代码 程序编写:中国青岛许家国 2002.6.16 EMail: HomePage: Private member that holds a reference to the path of our ini file Private strINI As String Windows API Declares 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 Any, _最简单的方法,用vb的SaveSetting和GetSetting对注册表进行读写Public Sub SaveSetting( _ ByVal AppName As String, _ ByVal Section As String, _ ByVal Key As String, _ ByVal Setting As String _) 参数 AppName必需。String 表达式,该设置要应用到的应用程序或项目的名称。Section必需。String 表达式,注册表项设置要保存到的节的名称。Key必需。String 表达式,包含要保存的注册表项设置的名称。Setting必需。表达式,包含 Key 的设定值。Public Function GetSetting( _ ByVal AppName As String, _ ByVal Section As String, _ ByVal Key As String, _ Optional ByVal Default As String = _) As String 参数 AppName必选。String 表达式,包含其键设置被请求的应用程序或项目的名称。Section必选。String 表达式,包含可在其中找到键设置的节的名称。Key必选。String 表达式,包含要返回的键设置的名称。Default可选。表达式,如果 Key 设置中没有设置值,则包含要返回的值。如果省略,则假定 Default 为零长度字符串 ()。Private Sub Command1_Click()Call SaveSetting(1, 2,
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 静脉丙球在传染病治疗中的关键作用
- 2024年事业单位招聘考试西藏林芝地区职业能力倾向测验题库含答案解析
- 2024年事业单位招聘考试广东省汕尾市职业能力倾向测验题库含答案解析【易错题和难点汇编】
- 2024年事业单位招聘考试江苏省镇江市职业能力倾向测验题库含答案解析【易错题和难点汇编】
- 《儿童福利机构社会工作+服务要求GT+42174-2022》详细解读
- 2023年化妆品工作总结与计划
- 2023年化学检验员工作总结
- 2023年化工新员工转正工作总结
- 会议旅游行业相关投资计划提议范本
- 时间频率计量标准器具相关项目投资计划书
- 手绘POP海报智慧树知到期末考试答案2024年
- 2024年南昌市高三二模(第二次模拟测试)历史试卷(含答案 )
- 中职《极限配合与技术测量》学业水平测试复习题库(含答案)
- 运动训练学训练课计划
- 2023年北京市安全员-C3证考试试卷及答案
- 塑料再生颗粒市场分析及行业前景展望预测报告
- 香港入职合同
- 执法细则 第三版
- 药品采购廉政风险点及防控措施一览表.xls
- 山肩邦男近似解法ppt课件.ppt
- 行车记录仪测试用例.xls
评论
0/150
提交评论