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

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

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 教程 目录

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值