版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。

 

接前面两小节，看看ini文件的实际运用：

 

 

设计界面：

 

目的是实现界面根据用户需要显示不同的语言。需要制作两个ini文件：

 

language_ch.ini：存放中文内容。具体内容如下：

 

[gui]

appname=这是我的程序

language=选择语言

Save=保存

Open=打开

Exit=退出

 

 

language_en.ini：存放英文内容。具体内容如下：

[gui]

appname=This is my App

language=Choose Language

Save=Save

Open=Open

Exit=Exit

 

两个ini文件相比较，节名称相同，键名称相同，键值不同。

 

新建工程后添加一个模块，主要放置要调用的api函数声明，由于本节教程只有一个窗体，也可以将api函数的声明放在窗体中。内容如下：

 

Module Module1

 

    Public 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

 

    Public 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

 

End Module

根据选择的语言，载入相应的ini文件：

 

    Private Sub rbChinese_CheckedChanged(sender As Object, e As EventArgs) Handles rbChinese.CheckedChanged, rbEnglish.CheckedChanged

        If rbChinese.Checked = True Then

            getGuiLanguage("d:\language_ch.ini")

        Else

            getGuiLanguage("d:\language_en.ini")

        End If

    End Sub

实际载入ini内容的方法：

 

    Private Sub getGuiLanguage(ByVal filename As String)

        lblAppName.Text = getKeyValue("gui", "appname", filename)

        gbChooseLanguage.Text = getKeyValue("gui", "language", filename)

        btnSave.Text = getKeyValue("gui", "Save", filename)

        btnOpen.Text = getKeyValue("gui", "Open", filename)

        btnExit.Text = getKeyValue("gui", "Exit", filename)

 

    End Sub

 

读取ini文件键值：

 

Private Function getKeyValue(ByVal sectionName As String, ByVal keyName As String, ByVal filename As String) As String Dim Rvalue As Integer Dim BufferSize As Integer BufferSize = 255 Dim keyValue As String keyValue = Space(BufferSize) Rvalue = GetPrivateProfileString(sectionName, keyName, "", keyValue, BufferSize, filename) If Rvalue = 0 Then keyValue = "(没有获得相应的值)" Else keyValue = keyValue.Substring(0, Rvalue) End If Return keyValue End Function

 

 

 

当窗口载入时，默认载入中文：

 

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

        getGuiLanguage("d:\language_ch.ini")

    End Sub

 

 

所有的代码都写完了。

 

但是，以上代码实际是存在问题的。

在getKeyValue（）方法   keyValue = keyValue.Substring(0, Rvalue)一句设置断点进行调试会发现，使用substring方法返回来的数据并不正确：调用GetPrivateProfileString获得的数据：

 

 

 

获得数据的长度：

 

 

 

 

 

 

 

使用substring截取后的内容：

 

 

 

根据GetPrivateProfileString返回的内容，可以看出只需要获得vbNullChar，实际就是chr(0)之前的内容就可以了：

 

    '===== 截断chr0

    Private Function GetIniValue(ByVal msg As String) As String

        Dim PosChr0 As Integer

        PosChr0 = msg.IndexOf(Chr(0))

        If PosChr0 <> -1 Then msg = msg.Substring(0, PosChr0)

        GetIniValue = msg

    End Function

 

 

keyValue = keyValue.Substring(0, Rvalue)

替换为：

 

 keyValue = GetIniValue(keyValue)

 

 

最后看看运行情况：

 

 

最后再次吐槽一下csdn新的文章编辑器。实在是难用，没有之前的那个好用。

当编辑到这一句时候，居然导致了我的edge浏览器没有响应，幸好自动保存功能有作用，保存到了草稿，不然就得重头再来。

 

 

 

由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供参考。

 

学习更多vb.net知识，请参看vb.net 教程 目录

————————————————

版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

原文链接：https://blog.csdn.net/uruseibest/article/details/79313154