一、实现方法如下：1、新建一个工程/窗体(窗体取名为ini.frm)，在此窗体中添加三个命令按钮控件，分别为command1、command2、command3command1.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 LongPrivate Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As LongPrivate Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" ( _    ByVal lpApplicationName As String, _    ByVal lpKeyName As String, _    ByVal nDefault As Long, _    ByVal lpFileName As String) As LongPrivate 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 SubPrivate Sub Command2_Click()Dim A As LongDim T As StringDim 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 Subx = GetPrivateProfileInt("窗体位置及大小", "高度", x, App.Path & "\ABC.INI")Print "高度=" & xx = GetPrivateProfileInt("窗体位置及大小", "宽度", x, App.Path & "\ABC.INI")Print "宽度=" & xx = GetPrivateProfileInt("窗体位置及大小", "左部", x, App.Path & "\ABC.INI")Print "左部=" & xx = GetPrivateProfileInt("窗体位置及大小", "顶部", x, App.Path & "\ABC.INI")Print "顶部=" & xIf A = 0 Then MsgBox "找不到所需字段": Exit SubA = GetPrivateProfileString("系统时间", "本次操作日期", "", T, 1000, App.Path & "\ABC.INI")Print Left$(T, Len(Trim$(T)) - 1)End SubPrivate Sub Command3_Click()Call Command1_ClickEndEnd SubPrivate Sub Form_Load()Dim A As LongDim T As StringDim x As Integer'读取信息x = 0T = Space$(1000) '事先定义读取值的字串宽度'读取ABC.INI文件中TIP字段中START的值并打印出来'当函数返回值为0时说明读取数据出错x = GetPrivateProfileInt("窗体位置及大小", "高度", x, App.Path & "\ABC.INI")Form1.Height = xx = GetPrivateProfileInt("窗体位置及大小", "宽度", x, App.Path & "\ABC.INI")Form1.Width = xx = GetPrivateProfileInt("窗体位置及大小", "左部", x, App.Path & "\ABC.INI")Form1.Left = xx = GetPrivateProfileInt("窗体位置及大小", "顶部", x, App.Path & "\ABC.INI")Form1.Top = xEnd SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)Select Case UnloadModeCase 0:    Call Command1_ClickCase 1:    Call Command1_ClickCase 2:    Call Command1_ClickEnd SelectEnd Sub二、说明：注意是指定数据否与函数参数类型相一致

评论