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

发布时间：2020-12-16 23:53:46 所属栏目：大数据来源：网络整理

导读：ini文件数据的写入还是使用了api函数。本次api函数的定义使用DllImport的方式，可以参看《vb.net 教程 2-13 Windows API 函数》 api函数定义： DllImport("kernel32",EntryPoint:="WritePrivateProfileStringA",CharSet:=CharSet.Ansi,SetLastError:=True,

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,filename)
        If Rvalue = 0 Then
            MessageBox.Show("发生错误 " & Err.LastDllError)
        End If
    End Sub

运行时如下图：

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

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

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

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!