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

当前位置:

首页 > 编程开发 > vb >

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

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

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

栏目列表