vb.net 教程 4-12 ini文件操作 2 ini文件的写入

我会带着你远行 2022-09-10 12:15 194阅读 0赞

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

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教程][vb.net] 目录  
————————————————  
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

[vb.net]: https://www.xin3721.com/eschool/vbnetxin3721