Foxtable(狐表)用户栏目专家坐堂 → [求助]怎样保存用户设置的信息


  共有1984人关注过本帖树形打印复制链接

主题:[求助]怎样保存用户设置的信息

帅哥哟,离线,有人找我吗?
lianghanyu
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:248 积分:2230 威望:0 精华:0 注册:2020/6/28 8:43:00
[求助]怎样保存用户设置的信息  发帖心情 Post By:2020/8/22 16:38:00 [只看该作者]

文件下载管理器

 

有一个“路径”,点按钮,会弹对话框 ,设置路径,返回值赋给 一个文本框。  可以实现这个功能 了,

 

但是每次关闭后,这个设置的路径又会归零的,有没有没办法保存?

 

我的原意是,每个用户根据自己的实际情况,可以设置默认下载路径。

 

 


图片点击可在新窗口打开查看此主题相关图片如下:111.gif
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106680 积分:542589 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/8/22 17:03:00 [只看该作者]

保存到设置信息中:http://www.foxtable.com/webhelp/topics/1544.htm

窗口打开时从设置中取值放到文本框中,路径按钮选择后保存后设置中

 回到顶部
帅哥哟,离线,有人找我吗?
lianghanyu
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:248 积分:2230 威望:0 精华:0 注册:2020/6/28 8:43:00
  发帖心情 Post By: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

 

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106680 积分:542589 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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


 回到顶部