api函数定义:
lpApplicationName :ini文件节名称
lpKeyName:ini文件,lpApplicationName节下的键名称
lpString:要写入的键值
lpFileName:ini文件全路径,如果不是全路径,那么程序将使用Windows系统的路径。
<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。
如果写入错误返回0,否则返回非0。
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
运行时如下图:
为了简化起见,没有使用除错。
由于.net平台下C#和vb
.NET很相似,本文也可以为C#爱好者提供参考。
学习更多vb.net知识,请参看vb.net 教程 目录
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。