当前位置:首页 >> 信息与通信 >>

VB读写ini


建议将变量写入 INI 文件中,下次再用时直接读取 INI 文件中变量的值。 比如一个登陆窗口需要输入用户名和密码, 但是退出系统后再次登录时还需要选择或者输入 用户名,这样很麻烦所以可以将上次登录的信息写入 INI 文件中,下次登录时直接读取 INI 文件。读写 INI 文件代码如下: Attribute VB_Name = "读写 INI 文本模块" Op

tion Explicit Public 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 Public 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 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 Long lngSuccess = WritePrivateProfileString(strSectionName, strTopic, strContent, strINIfilename) If lngSuccess = 0 Then DisplayMessage "写入 INI 文件失败!" End If Exit Sub End Sub Public Function MyReadINI(ByVal strSectionName As String, ByVal strTopic As String, ByVal strINIfilename As String) As String Dim lngRet As Long Dim buff As String buff = String(255, 0) lngRet = GetPrivateProfileString(strSectionName, strTopic, "", buff, 256, strINIfilename) If lngRet > 0 Then MyReadINI = buff End If Exit Function End Function

classIniFile.cls 的内容:

Option Explicit

'--------classIniFile.cls 代码---------------'这里定义了一个 classIniFile 类 '一个绝对经典的在 VB 中操作.ini 文件的通用类源代码 '程序编写:中国青岛·许家国 ' 2002.6.16 'E-Mail: goj2000@163.com 'HomePage: http://www.gojclub.com ' '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", "3", Text1.Text) End Sub

Private Sub Form_Load() On Error Resume Next Command1.Caption = "写入" Text1.Text = GetSetting("1", "2", "3") End Sub '把 text1 里的内容写入注册表,可以从中读取写入的内容


相关文章:
VB读写INI文件
VB读写INI文件_计算机软件及应用_IT/计算机_专业资料。VB 读写 INI 文件今天, 我们将应用 VB.NET 制作一个能够实现读写 INI 文件的应用程序。 程序运行结果 如...
VB读写ini
VB读写ini_信息与通信_工程科技_专业资料。fdsafdsa建议将变量写入 INI 文件中,下次再用时直接读取 INI 文件中变量的值。 比如一个登陆窗口需要输入用户名和密码...
VB读写ini文件
VB 读写 ini 文件(1) 2007-06-20 11:32 自从注册表诞生以来 ini 文件正在逐渐失去其市场占有率,然而基于 ini 文件的独立性,致使其还没有到达 退出历史舞台...
vb读写ini文件
vb读写ini文件_电脑基础知识_IT/计算机_专业资料。Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventAPubl...
VB读写ini文件
VB读写ini文件_IT/计算机_专业资料。VB读写ini文件 ' 定义 API 函数 Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA...
读写INI文件
读写INI文件_IT/计算机_专业资料。操作INI文件读写INI 文件 实例说明 在本实例中,我们将应用 VB.NET 制作一个能够实现读写 INI 文件的应用程序。程序运行结 果...
VB读写INI文件的四个函数
VB基础教程 67页 免费 INI文件读写 4页 免费如要投诉违规内容,请到百度文库投诉中心;如要提出功能问题或意见建议,请点击此处进行反馈。 ...
c++读写INI方法
INI 文件编程 INI 文件在系统配置及应用程序参数保存与设置方面,具有很重要的作用,所以可视化的 编程一族,如 VB、VC、VFP、Delphi 等都提供了读写 INI 文件的...
VB API 快速读写INI的模块
VB API 快速读写INI的模块_计算机软件及应用_IT/计算机_专业资料。VisualBasic 中使用API编写的模块读写INI文件的快速方法。模块可以直接拿去用。内置两个函数 Save...
C#读写INI文件
INI文件编程 INI文件在系统配置及应用程序参数保存与设置方面,具有很重要的作用,所以可视化 的编程一族,如VB、VC、VFP、Delphi等都提供了读写INI文件的方法,其中...
更多相关标签:
vb读写ini文件 | 在线翻译 | vb读写txt | vb.net ini文件读写 | vb.net 读写ini | vb ini读写 多行 | vb ini读写 多行数据 | vb ini读写 去掉空格 |