- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]怎样保存用户设置的信息 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=153781)
-- 发布时间：2020/8/22 16:38:00
-- [求助]怎样保存用户设置的信息
文件下载管理器
有一个“路径”，点按钮，会弹对话框 ，设置路径，返回值赋给 一个文本框。 可以实现这个功能 了，
但是每次关闭后，这个设置的路径又会归零的，有没有没办法保存？
我的原意是，每个用户根据自己的实际情况，可以设置默认下载路径。
此主题相关图片如下：111.gif
-- 发布时间：2020/8/22 17:03:00
--
保存到设置信息中：http://www.foxtable.com/webhelp/topics/1544.htm
-- 发布时间：2020/8/24 9:18:00
--
在选择路径按钮这样写：
Dim dlg As New FolderBrowserDialog
Dim path As String
Dim userpath As String
If dlg.ShowDialog = DialogResult.Ok Then
path = dlg.SelectedPath
e.Form.Controls("下载路径").text = path
SaveConfigValue(userpath, path)
End If
在窗口加载这样写：
Dim dow As WinForm.TextBox = e.Form.Controls("下载路径")
If Dow.text = "" Then
Dow.text = GetConfigValue(userpath, path)
End If
提示我未声明变量，然后我这样写：
Dim userpath As String
Dim path As String
Dim dow As WinForm.TextBox = e.Form.Controls("下载路径")
If Dow.text = "" Then
Dow.text = GetConfigValue(userpath, path)
End If
然后又提示：
String 引用没有设置为 String 的实例。
参数名: s
-- 发布时间：2020/8/24 9:26:00
--
在选择路径按钮这样写：
Dim dlg As New FolderBrowserDialog
Dim path As String
If dlg.ShowDialog = DialogResult.Ok Then
path = dlg.SelectedPath
e.Form.Controls("下载路径").text = path
SaveConfigValue("userpath", path)
End If
在窗口加载这样写：
Dim dow As WinForm.TextBox = e.Form.Controls("下载路径")
If Dow.text = "" Then
Dow.text = GetConfigValue("userpath", "")
End If