Private Sub Form_Load()
Dim ls_Content() As String
Dim a As String, b As String
Open App.Path & "\setting.ini" For Input As #1
ls_Content = Split(StrConv(InputB(LOF(1), #1), vbUnicode), vbCrLf)
Close #1
a = ls_Content(0)
b = ls_Content(1)
Text1.Text = a
Text2.Text = b
End Sub
在同目录下建立一个setting.ini文件,第一行写入一串字符,回车写入第2行,窗体启动则将Text1.Text内容设置为第一行的,将Text2.Text设置为第二行的, 以次类推扩展。
当然在你按下command时可以将text1.text内容写入ini,方法类似 |