VB.NET 对ini配置文件操作类

Dim a As New cls_ini
a.insert_ini("vb小源码公众号", "vb小源码公众号作者", "巴西_prince")
TextBox1.Text = a.getstr_ini("vb小源码公众号", "vb小源码公众号作者", "")

Imports System.IO
<p>Public Class cls_ini
''' <summary>
''' 定义获取ini整数型的ini值
''' </summary>
''' <param name="node_ini">节点名</param>
''' <param name="key_ini">配置项名</param>
''' <param name="get_value">要获得的值</param>
''' <param name="path_ini">文件路径</param>
''' <returns></returns>
''' <remarks></remarks>
Private Declare Function get_int<em>ini Lib "kernel32" Alias "GetPrivateProfileIntA" </em>
(ByVal node_ini As String, ByVal key_ini As String, ByVal get<em>value As Integer, ByVal </em>
path_ini As String) As Integer</p><pre class="brush:php;toolbar:false;"><pre class="brush:php;toolbar:false;">''' <summary>
''' 定义获取ini字符串类型的值
''' </summary>
''' <param name="node_ini">节点名</param>
''' <param name="key_ini">配置项名</param>
''' <param name="get_value">要获得的值</param>
''' <param name="buf_value">获得缓冲值</param>
''' <param name="buf_length">获得缓冲值长度</param>
''' <param name="path_ini">文件路径</param>
''' <returns></returns>
''' <remarks></remarks>
Private Declare Function get_str_ini Lib "kernel32" Alias "GetPrivateProfileStringA" _
    (ByVal node_ini As String, ByVal key_ini As String, ByVal get_value As String, ByVal _
    buf_value As String, ByVal buf_length As Integer, ByVal path_ini As String) As Integer

''' <summary>
''' 定义向ini写入字符串值
''' </summary>
''' <param name="node_ini">节点名</param>
''' <param name="key_ini">配置项名</param>
''' <param name="set_value">要写入的值</param>
''' <param name="path_ini">文件路径</param>
''' <returns></returns>
''' <remarks></remarks>
Private Declare Function insetr_value_ini Lib "kernel32" Alias "WritePrivateProfileStringA" _
    (ByVal node_ini As String, ByVal key_ini As String, ByVal set_value As String, ByVal path_ini _
    As String) As Integer

''' <summary>
''' 从INI配置文件中获取类型为Int的配置项的值
''' </summary>
''' <param name="node_name">节点名</param>
''' <param name="key_Name">配置项名</param>
''' <param name="get_Value">获取值</param>
''' <returns></returns>
''' <remarks></remarks>
Public Function getint_ini(ByVal node_name As String, ByVal key_Name As String, ByVal get_Value As Integer) As Integer
    getint_ini = get_int_ini(node_name, key_Name, get_Value, create_ini)
End Function

''' <summary>
''' 从INI配置文件中获取类型为string的配置项的值
''' </summary>
''' <param name="node_name">节点名</param>
''' <param name="key_Name">配置项名</param>
''' <param name="get_Value">获取值</param>
''' <returns></returns>
''' <remarks></remarks>
Public Function getstr_ini(ByVal node_name As String, ByVal key_Name As String, ByVal get_Value As String) As String
    Dim buf_value As String
    Dim get_str As Integer
    buf_value = Space(256)
    get_str = get_str_ini(node_name, key_Name, get_Value, buf_value, buf_value.Length, create_ini)
    getstr_ini = Left(buf_value, InStr(buf_value, vbNullChar) - 1)
End Function

''' <summary>
''' 向INI配置文件中写入类型为string的配置项的值
''' </summary>
''' <param name="node_name">节点名</param>
''' <param name="keyName">配置项名</param>
''' <param name="set_value">设置值</param>
''' <returns></returns>
''' <remarks></remarks>
Public Function insert_ini(ByVal node_name As String, ByVal keyName As String, ByVal set_value As String) As Integer
    Dim get_str As Integer
    get_str = insetr_value_ini(node_name, keyName, set_value, create_ini)
    If get_str Then
        get_str = 1
    End If
    insert_ini = get_str
End Function

Private Function create_ini() As String
    Dim path As String = ""
    Dim fd_path As String = ""
    fd_path = "C:\Users\" & Environment.UserName & "\AppData\Roaming\vb_小源码\"
    path = "C:\Users\" & Environment.UserName & "\AppData\Roaming\vb_小源码\vb_小源码.ini"
    If Directory.Exists(fd_path) = False Then Directory.CreateDirectory(fd_path)
    If Not File.Exists(path) Then File.Create(path)
    Return path
End Function