vb中ini文件写入

来源：百度知道 编辑：UC知道 时间：2024/05/21 08:42:35
一个按钮，按下后将text1和text2的内容写入ini文件，ini文件可以设置。
我是菜鸟，请大家帮我写出代码。谢谢。

建两个文本框
Private Sub Form_Load()
On Error Resume Next'可不要
Dim myfile1, mypath1
myfile1 = Dir(App.Path & "\path.ini", vbNormal)
If myfile1 = "path.ini" Then
Dim TextLine
Open App.Path & "/path.ini" For Input As #2 ' 打开文件。
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
Line Input #2, textline2

Close #2 ' 关闭文件。
Text1.Text = TextLine
Text2.Text = textline2
End If

Private Sub Form_Unload(Cancel As Integer)
Open App.Path & "/path.ini" For Output As #2
Print #2, Text1.Text '退出时将text1.text上面浏览到的文件路径保存到同一目录下的text.ini文件中
Print #2, Text2.Text
Close #2
End Sub