用vb.net讀取INI配置檔案的方法，使用API

因為對XML前不了解，是以對XML方式來做配置檔案我都不能很好的實作

但為了應行，隻有先使用INI的文來記錄了

也就沿用了VB6裡的INI文讀取方法

 '聲明INI配置檔案讀寫API函數

    Private Declare Function GetPrivateProfileString()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 Int32, ByVal lpFileName As String) As Int32

    Private Declare Function WritePrivateProfileString()Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Int32

    '定義讀取配置檔案函數

    Public Function GetINI()Function GetINI(ByVal Section As String, ByVal AppName As String, ByVal lpDefault As String, ByVal FileName As String) As String

        Dim Str As String = LSet(Str, 256)

        GetPrivateProfileString(Section, AppName, lpDefault, Str, Len(Str), FileName)

        Return Microsoft.VisualBasic.Left(Str, InStr(Str, Chr(0)) - 1)

    End Function

    '定義寫入配置檔案函數

    Public Function WriteINI()Function WriteINI(ByVal Section As String, ByVal AppName As String, ByVal lpDefault As String, ByVal FileName As String) As Long

        WriteINI = WritePrivateProfileString(Section, AppName, lpDefault, FileName)

    Private Sub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim path As String

        path = Application.StartupPath + "\server.ini"

        TextBox1.Text = GetINI("Server", "IP", "", path)

        TextBox2.Text = GetINI("Server", "port", "", path)

    End Sub

    Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Try

            Dim path As String

            path = Application.StartupPath + "\server.ini"

            WriteINI("Server", "IP", TextBox1.Text, path)

            WriteINI("Server", "port", TextBox2.Text, path)

            MsgBox("配置設定已經成功！！！！")

            Me.Close()

        Catch ex As Exception

            MsgBox("錯誤！！！！")

        End Try