订阅专栏
版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。
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版权协议，转载请附上原文出处链接及本声明。
