《VB读写ini》word版

1、.建议将变量写入INI文件中，下次再用时直接读取INI文件中变量的值。比如一个登陆窗口需要输入用户名和密码，但是退出系统后再次登录时还需要选择或者输入用户名，这样很麻烦所以可以将上次登录的信息写入INI文件中，下次登录时直接读取INI文件。读写INI文件代码如下：Attribute VB_Name = "读写INI文本模块"Option ExplicitPublic Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA&qu

2、ot; (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"

3、 (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'参数

4、： strSectionName -要在其中写入新字符串的小节名' strTopic -小节中的要设置的项目标题,用vbNull String可删除这个小节的所有设置项.' strContent -指定为对应项目标题写入的字符串内容,用vbNull String可删除这个项目现有的字符串.' strINIfilename- .ini文件的(完整)名称,如果没有找到,函数会创建它.'*Dim lngSuccess As LonglngSuccess = WritePrivateProfileString(strSectionName, strTopic, strC

5、ontent, 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 = GetPr

6、ivateProfileString(strSectionName, strTopic, "", buff, 256, strINIfilename)If lngRet > 0 Then MyReadINI = buffEnd IfExit FunctionEnd Function  classIniFile.cls的内容：   Option Explicit  '-classIniFile.cls 代码-  '这里定义了一个classIniFile类  '一个绝对经典的在VB中操作.

7、ini文件的通用类源代码  '程序编写：中国青岛·许家国  ' 2002.6.16  'EMail: goj2000  'HomePage:   '  'Private member that holds a reference to  'the path of our ini file  Private strINI As String  'Windows API Declares  Private Declare Fu

8、nction 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 GetPrivateProfi

9、leString _  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 Stri

10、ng, _ 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 Defaul

11、t As String = "" _) As String 参数 AppName必选。String 表达式，包含其键设置被请求的应用程序或项目的名称。Section必选。String 表达式，包含可在其中找到键设置的节的名称。Key必选。String 表达式，包含要返回的键设置的名称。Default可选。表达式，如果 Key 设置中没有设置值，则包含要返回的值。如果省略，则假定 Default 为零长度字符串 ("")。Private Sub Command1_Click()Call SaveSetting("1", "2", "3", Text1.Text)End SubPrivate Su