閺€鎯版 (0) +1 鐠э拷 (0) +1 闊拷 (0) +1

正在阅读：VB经典:操作.ini文件的通用类源代码VB经典:操作.ini文件的通用类源代码

2004-03-10 09:52 出处：CSDN 作者：goj2000 责任编辑：linjixiong

'程序编写：中国青岛·许家国
' 2002.6.16
'E－Mail: goj2000@163.com
'HomePage: http://www.gojclub.com

'定义一个.ini类型的变量
Dim DemoIni As New classIniFile

Private Sub Form_Load()
'对控件进行初始化
Text1.Text = "测试一下"
List1.Clear

'定义.ini文件名,并写入一些初始数据
DemoIni.INIFileName = App.Path & "\demoini.ini"
DemoIni.WriteIniKey "系统", "启动路径", App.Path
DemoIni.WriteIniKey "系统", "可执行程序文件名", App.EXEName

'显示保存到.ini文件中的数据
Call CmdRead_Click
End Sub

'退出程序
Private Sub CmdExit_Click()
Unload Me
End Sub

'读取.ini文件中已经存在的数据并显示出来
Private Sub CmdRead_Click()
Dim TestStr As String

List1.Clear
TestStr = DemoIni.GetIniKey("系统", "启动路径")
List1.AddItem "系统 - 启动路径: " & TestStr
TestStr = DemoIni.GetIniKey("系统", "可执行程序文件名")
List1.AddItem "系统 - 可执行程序文件名: " & TestStr
TestStr = DemoIni.GetIniKey("用户自定义", "用户数据")
List1.AddItem "用户自定义 - 用户数据: " & TestStr
End Sub

'保存用户自定义数据到.ini文件中
Private Sub CmdSave_Click()
DemoIni.WriteIniKey "用户自定义", "用户数据", Text1.Text

'显示保存到.ini文件中的数据
Call CmdRead_Click
End Sub

'清除用户自定义段和段中数据
Private Sub CmdDelete_Click()
DemoIni.DelIniKey "用户自定义", "用户数据"
DemoIni.DelIniSec "用户自定义"

'显示保存到.ini文件中的数据
Call CmdRead_Click
End Sub

察看评论详细内容我要发表评论