vb.net读取ini

vb.net 读取ini的所有值

Dim?s?As?String()?=?System.IO.File.ReadAllLines("t.ini")?'文件

For?i?As?Integer?=?0?To?s.Length?-?1

Dim?si?As?Integer?=?s(i).IndexOf("=")

If?si?-1?Then

ListBox1.Items.Add(s(i).Substring(0,?si)?"?=?"?s(i).Substring(si?+?1))

End?If

Next

's(i).Substring(0,?si)是变量名,s(i).Substring(si?+?1)是值

【vb.net】求个用VS2013读写INI的代码

vb.net有自己的设置,不需要ini,在工程【属性】-【设置】中设置.

——————

ini设置属性.

'声明API函数

Public Function WriteINI(ByVal Section As String, ByVal AppName As String, ByVal lpDefault As String, ByVal FileName As String) As Long

Return WritePrivateProfileString(Section, AppName, lpDefault, FileName)

End Function

'调用writeini函数存储属性.

'section为节点,也就是ini中带[]符号的节点文本

'APPname为存储的名称,即ini文件中等于符号前面的文本

'ipdefault为存储的属性,即等于符号右边的文本.

'filename为存储的ini文件地址,如d:\save.ini

————————

ini返回属性.

Private Function GetINI(ByVal Section As String, ByVal AppName As String, ByVal lpDefault As String, ByVal FileName As String) As String

Dim Str As String = ""

Str = LSet(Str, IniCount)

GetPrivateProfileString(Section, AppName, lpDefault, Str, Len(Str), FileName)

Return Microsoft.VisualBasic.Left(Str, InStr(Str, Chr(0)) - 1)

'调用getini函数

'说明同上.

谁给个vb.net用api函数读ini文件的例子?

Public Function ReadINI(ByVal Section As String, ByVal AppName As String, ByVal lpDefault As String, ByVal FileName As String) As String

WriteINI = WritePrivateProfileString(Section, AppName, lpDefault, FileName)

vb.net 如何读取ini文件定义的ForeColor颜色值

土嘎嘎的粉丝们大家好,我不知道你是用什么方法保存的,不过.net里的color有一个方法是Color.FromArgb 你可以这么做,dim c as color=richtextbox1.ForeColor dim colorstring as string=c.ToArgb().ToString colorstring就是颜色的值（字符串）再把colorstring保存到ini文件加载颜色的时候,从ini里读取colorstring 具体是：dim RtextColor as color=Color.FromArgb（cint(colorstring))richtextbox1.ForeColor =RtextColor

求大神指点 vb.net 怎么读 ini 配置呢

VB.NET读写INI配置文件

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim path As String

path = Application.StartupPath + "\Send.ini"

TextBox1.Text = GetINI("Send", "Send1", "", path)

Dim IsSms As Integer = GetINI("Send", "IsSms", "", path)

If (IsSms = 1) Then

Me.RadioButton1.Checked = True

ElseIf (IsSms = 0) Then

End If

End Sub

Public Function GetINI(ByVal Section As String, ByVal AppName As String, ByVal lpDefault As String, ByVal FileName As String) As String

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Try

WriteINI("Send", "Send1", TextBox1.Text, path)

If (Me.RadioButton1.Checked = True) Then

WriteINI("Send", "IsSms", 1, path)

WriteINI("Send", "IsSms", 0, path)

MsgBox("配置设置已经成功！！！！")

Catch ex As Exception

MsgBox("错误！！！！")

End Try

vb.net读写ini文件问题

以下是我的办法:OK!

写:

WritePrivateProfileString("存储", "账号", textbox1, Application.StartupPath "\song.ini")

读:

dim s as string

GetPrivateProfileString("存储", "账号", s, s.Length, Application.StartupPath + "\song.ini")

textbox1 =s

以上就是土嘎嘎小编为大家整理的vb.net读取ini相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦！！