Private Declare Function GetPrivateProfileString Lib “kernel32” Alias “GetPrivateProfileStringA” (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
'上读INI’下写INI
Private Declare Function WritePrivateProfileString Lib “kernel32” Alias “WritePrivateProfileStringA” (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Integer
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
Dim strIni As String
strIni = New String(" ", 100)
' WritePrivateProfileString("AppName", "KeyB", "MyValue", Application.StartupPath & "/a.ini") ’写入置制的方法
GetPrivateProfileString("AppName", "KeyA", "", strIni, 100, Application.StartupPath & "/a.ini") '读取配制的方法
MessageBox.Show(strIni)
End Sub