ini读写.frm

Windows API函数,希望大伙有用哦

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   2160
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   3975
   LinkTopic       =   "Form1"
   ScaleHeight     =   2160
   ScaleWidth      =   3975
   StartUpPosition =   3  '窗口缺省
   Begin VB.Frame Frame1 
      Caption         =   "项目选择"
      Height          =   1575
      Left            =   300
      TabIndex        =   1
      Top             =   210
      Width           =   1245
      Begin VB.CheckBox Check2 
         Caption         =   "项目 2"
         Height          =   375
         Left            =   180
         TabIndex        =   3
         Top             =   900
         Width           =   855
      End
      Begin VB.CheckBox Check1 
         Caption         =   "项目 1"
         Height          =   375
         Left            =   180
         TabIndex        =   2
         Top             =   330
         Width           =   885
      End
   End
   Begin VB.CommandButton Command1 
      Caption         =   "退  出"
      Height          =   315
      Left            =   2280
      TabIndex        =   0
      Top             =   1320
      Width           =   1065
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
' API 函数声明
Private Declare Function GetPricateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault 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 INIFileName As String
Private Sub Form_Load()
    Dim ChkState As Integer
    INIFileName = App.Path + "\" + "aaa.ini"
    '读取复选框 1  数据并按读取的数据设置复选框的状态
    ChkState = GetINI("复选框1", "Value", 0)
    Check1.Value = ChkState
    '读取复选框 2  数据并按读取的数据设置复选框的状态
    ChkState = GetINI("复选框2", "Value", 0)
    Check2.Value = ChkState
End Sub
Private Sub Command1_Click()
    ' 将复选框 1 的状态写入INI文件
    SetINI "复选框1", "Value", Check1.Value
    ' 将复选框 2 的状态写入INI文件
    SetINI "复选框2", "Value", Check2.Value
    Unload Me
    End
End Sub
Private Sub Form_Unload(Cancel As Integer)
    ' 将复选框 1 的状态写入INI文件
    SetINI "复选框1", "Value", Check1.Value
    ' 将复选框 2 的状态写入INI文件
    SetINI "复选框2", "Value", Check2.Value
    Unload Me
    End
End Sub
Private Function GetINI(ByVal SectionName As String, ByVal KeyWord As String, ByVal Int1 As Integer) As Integer
    GetINI = GetPricateProfileInt(SectionName, KeyWord, 0, INIFileName)
End Function
Private Sub SetINI(ByVal SectionName As String, ByVal KeyWord As String, ByVal ValInt As Integer)
Dim S As String
    S = CStr(ValInt)
    WritePrivateProfileString SectionName, KeyWord, S, INIFileName
End Sub