用VB操作INI文件
来源:互联网 发布:淘宝微信返利推广软件 编辑:程序博客网 时间:2024/05/18 12:44
一、实现方法如下:
1、新建一个工程/窗体(窗体取名为ini.frm),在此窗体中添加三个命令按钮控件,分别为command1、command2、command3
command1.Caption= "write"
command2.Caption= "read"
command3.Caption= "End"
2、代码部分:
Private 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
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 GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" ( _
ByVal lpApplicationName As String, _
ByVal lpKeyName As String, _
ByVal nDefault As Long, _
ByVal lpFileName As String) As Long
Private Sub Command1_Click()
Dim A As Long
'写信息
'修改ABC.INI文件中各字段中关键字的值
'如果该文件不存在会自动建立,当函数返回值为0时说明修改不成功
A = WritePrivateProfileString("系统时间", "本次操作日期", Str$(Date), App.Path & "/ABC.INI")
A = WritePrivateProfileString("系统时间", "本次操作时间", Str$(Time), App.Path & "/ABC.INI")
A = WritePrivateProfileString("窗体位置及大小", "顶部", Str$(Form1.Top), App.Path & "/ABC.INI")
A = WritePrivateProfileString("窗体位置及大小", "高度", Str$(Form1.Height), App.Path & "/ABC.INI")
A = WritePrivateProfileString("窗体位置及大小", "宽度", Str$(Form1.Width), App.Path & "/ABC.INI")
A = WritePrivateProfileString("窗体位置及大小", "左部", Str$(Form1.Left), App.Path & "/ABC.INI")
If A = 0 Then MsgBox ("写文件时出错")
End Sub
Private Sub Command2_Click()
Dim A As Long
Dim T As String
Dim x As Integer
'读取信息
Form1.Cls 'Form1清屏
T = Space$(1000) '事先定义读取值的字串宽度
'读取ABC.INI文件中TIP字段中START的值并打印出来
'当函数返回值为0时说明读取数据出错
A = GetPrivateProfileString("系统时间", "本次操作时间", "", T, 1000, App.Path & "/ABC.INI")
Print Left$(T, Len(Trim$(T)) - 1)
If A = 0 Then MsgBox "找不到所需字段": Exit Sub
x = GetPrivateProfileInt("窗体位置及大小", "高度", x, App.Path & "/ABC.INI")
Print "高度=" & x
x = GetPrivateProfileInt("窗体位置及大小", "宽度", x, App.Path & "/ABC.INI")
Print "宽度=" & x
x = GetPrivateProfileInt("窗体位置及大小", "左部", x, App.Path & "/ABC.INI")
Print "左部=" & x
x = GetPrivateProfileInt("窗体位置及大小", "顶部", x, App.Path & "/ABC.INI")
Print "顶部=" & x
If A = 0 Then MsgBox "找不到所需字段": Exit Sub
A = GetPrivateProfileString("系统时间", "本次操作日期", "", T, 1000, App.Path & "/ABC.INI")
Print Left$(T, Len(Trim$(T)) - 1)
End Sub
Private Sub Command3_Click()
Call Command1_Click
End
End Sub
Private Sub Form_Load()
Dim A As Long
Dim T As String
Dim x As Integer
'读取信息
x = 0
T = Space$(1000) '事先定义读取值的字串宽度
'读取ABC.INI文件中TIP字段中START的值并打印出来
'当函数返回值为0时说明读取数据出错
x = GetPrivateProfileInt("窗体位置及大小", "高度", x, App.Path & "/ABC.INI")
Form1.Height = x
x = GetPrivateProfileInt("窗体位置及大小", "宽度", x, App.Path & "/ABC.INI")
Form1.Width = x
x = GetPrivateProfileInt("窗体位置及大小", "左部", x, App.Path & "/ABC.INI")
Form1.Left = x
x = GetPrivateProfileInt("窗体位置及大小", "顶部", x, App.Path & "/ABC.INI")
Form1.Top = x
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Select Case UnloadMode
Case 0:
Call Command1_Click
Case 1:
Call Command1_Click
Case 2:
Call Command1_Click
End Select
End Sub
二、说明:
注意是指定数据否与函数参数类型相一致
- 用VB操作INI文件
- 用VB操作INI文件
- VB如何操作INI文件
- VB中INI文件操作
- VB.net ini文件操作
- VB操作INI文件读写示例
- VB.Net读写操作INI文件类
- VB读写ini文件
- vb读取ini文件
- VB读取INI文件
- VB读写INI文件
- VB读写INI文件
- VB 读写ini文件
- vb 读写.ini文件
- VB 读取INI文件
- vb读写ini文件
- 用FileSystemObject对象读取INI 文件 支持 VB读INI VBS读INI ASP 读INI
- 用VB.net实现对.ini文件的读写操作的类
- C#操作XML
- 两段经典的图片验证码程序之一
- [php生成无限级select]用正则遍历数组生成,只查两次数据库
- ActiveX控件的MFC设计之旅-第3步
- Java用户界面本地化实例讲解
- 用VB操作INI文件
- Solaris Server 設定方法
- 八皇后问题程序
- 浅析Asp.net中的Web.config文件
- 深入解析Java的新特性assertion
- AJAX集成数据库技术 实现实时数据传输
- DELPHI高精度计时方法
- [九歌]:湘君
- 愤懑