订阅专栏

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

 

ini文件数据的写入还是使用了api函数。

本次api函数的定义使用DllImport的方式，可以参看 《vb.net 教程 2-13 Windows API 函数》

 

api函数定义：

 

    <DllImport("kernel32", EntryPoint:="WritePrivateProfileStringA", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)>

    Private Shared Function WritePrivateProfileString(

        ByVal lpApplicationName As String,

        ByVal lpKeyName As String,

        ByVal lpString As String,

        ByVal lpFileName As String) As Integer

    End Function

参数说明：

lpApplicationName ：ini文件节名称

lpKeyName：ini文件，lpApplicationName节下的键名称

lpString：要写入的键值

lpFileName：ini文件全路径，如果不是全路径，那么程序将使用Windows系统的路径。

 

返回值：

如果写入错误返回0，否则返回非0。

 

 

 

当保存按钮按下时，调用 WritePrivateProfileString 将键值数据写入ini文件，当然如果调用api发生错误的话，使用 Err.LastDllError 来获得错误代码。

 

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Dim sectionName As String

        sectionName = "control"

        Dim keyName As String

        keyName = "appname"

        Dim keyValue As String

        keyValue = TextBox1.Text

        Dim Rvalue As Integer

        Rvalue = WritePrivateProfileString(sectionName, keyName, keyValue, filename)

        If Rvalue = 0 Then

            MessageBox.Show("发生错误 " & Err.LastDllError)

        End If

        keyName = "port"

        keyValue = ComboBox1.Text

        Rvalue = WritePrivateProfileString(sectionName, keyName, keyValue, filename)

        If Rvalue = 0 Then

            MessageBox.Show("发生错误 " & Err.LastDllError)

        End If

    End Sub

运行时如下图：

 

 

为了简化起见，没有使用除错。

 

同时实际之前教程中关于文本文件的读写同样可以用于读取ini文件的数据，只不过提取键值比较麻烦。

 

 

 

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

 

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

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

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

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