VB.net INI 讀寫

參考
http://chengchao.blogspot.com/2008/08/vbnet-ini.html


' vb.net 中读写 ini 文件和 vb6 中的做法是一致的，也要使用 Windows Api 的方法
' 唯一要注意的是：在 vb.net 中，api 声明中的 Long 型要改为 int32 类型。

Public Class Form1
    Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" ( _
    ByVal lpApplicationName As String, _
    ByVal lpKeyName As String, ByVal lpdefault As String, _
    ByVal lpretrunedstring As String, ByVal nSize As Int32, _
    ByVal lpFilename As String) As Int32


    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 Int32






    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WritePrivateProfileString("Section", "Key", "Value", Application.StartupPath + "\a.ini")


    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim strIni As String
        strIni = New String(" ", 100)
        GetPrivateProfileString("Section", "Key", "", strIni, 100, Application.StartupPath + "\a.ini")
        MsgBox(strIni)
    End Sub
End Class