Private Sub Form_Load() '如果注册表的相关项不等于空那么就显示到界面上 If GetSetting("myapp", "mainform", "keytext") <> "" Then Text1.Text = GetSetting("myapp", "mainform", "keytext") End If End Sub'退出时保存 Private Sub Form_Unload(Cancel As Integer) SaveSetting "myapp", "mainform", "keytext", Text1.Text End Sub看你的程序了,一般用户设置能有多少数据?用不着数据库的,太繁杂了。
2.保存到文件。方法ini文件配置操作或者纯文本文件,自己定义格式只要自己程序能识别一一取出来就行。
'如果注册表的相关项不等于空那么就显示到界面上
If GetSetting("myapp", "mainform", "keytext") <> "" Then
Text1.Text = GetSetting("myapp", "mainform", "keytext")
End If
End Sub'退出时保存
Private Sub Form_Unload(Cancel As Integer)
SaveSetting "myapp", "mainform", "keytext", Text1.Text
End Sub看你的程序了,一般用户设置能有多少数据?用不着数据库的,太繁杂了。
[登录信息]
IP=192.168.0.1
版本=1.11
[用户信息]
用户名=Admin
密码=n/C}
一般是.ini文件,你要是用文本等别的文件也行