vb.net中使用GetPrivateProfileString访问INI文件

        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

        Private m_filename As String = "c:\椅子\slcuserinfo.ini"

        Public Function GetiniValue(ByVal lpKeyName As String, ByVal strName As String) As String

        Dim strTmp As String

        'Dim fileTmp As String

        'fileTmp = m_filename

        strTmp = New String(" ", 100)

        'Call GetPrivateProfileString(lpKeyName, strName, "", strTmp, Len(strTmp), fileTmp)

        Call GetPrivateProfileString(lpKeyName, strName, "", strTmp, Len(strTmp), m_filename)

        GetiniValue = Left$(strTmp, InStr(strTmp, vbNullChar) - 1)

        End Function

        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

        Private m_filename As String = "c:\椅子\slcuserinfo.ini"

        Public Function GetiniValue(ByVal lpKeyName As String, ByVal strName As String) As String

        Dim strTmp As String

        'Dim fileTmp As String

        'fileTmp = m_filename

        strTmp = New String(" ", 100)

        'Call GetPrivateProfileString(lpKeyName, strName, "", strTmp, Len(strTmp), fileTmp)

        Call GetPrivateProfileString(lpKeyName, strName, "", strTmp, Len(strTmp), m_filename)

        GetiniValue = Left$(strTmp, InStr(strTmp, vbNullChar) - 1)

        End Function