Foxtable(狐表)用户栏目专家坐堂 → [求助]记住用户名和密码报错


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

主题:[求助]记住用户名和密码报错

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


加好友 发短信
等级:童狐 帖子:201 积分:2085 威望:0 精华:0 注册:2018/5/4 14:45:00
[求助]记住用户名和密码报错  发帖心情 Post By:2018/10/26 11:52:00 [只看该作者]

老师你好:
我做了个登录窗口,其afterLoad事件代码:
Dim User_N As String
Dim User_P As String
e.Form.Controls("UserN").Text = getconfigvalue(User_N,"")
e.Form.Controls("UserP").Text = getconfigvalue(User_P,"")

'******进入系统按钮代码:
        Dim chk1 As WinForm.CheckBox = e.Form.Controls("CheckBox1")      '*****设置默认值
        Dim chk2 As WinForm.CheckBox = e.Form.Controls("CheckBox2")      '*****记住密码
        Dim chk3 As WinForm.CheckBox = e.Form.Controls("CheckBox3")      '*****自动登录
        If chk1.checked = True Then
            Dim User_N As String
            saveconfigvalue(User_N,e.Form.Controls("UserN").Text)
        End If
        If chk2.checked = True Then
            Dim User_P As String
            saveconfigvalue(User_P,e.Form.Controls("UserP").Text)
        End If

运行时报错:
String 引用没有设置为 String 的实例。
参数名: s

不知啥原因,请指正。谢谢!

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110744 积分:563646 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/10/26 12:06:00 [只看该作者]

e.Form.Controls("UserN").Text = getconfigvalue("User_N","")
e.Form.Controls("UserP").Text = getconfigvalue("User_P","")

'******进入系统按钮代码:
        Dim chk1 As WinForm.CheckBox = e.Form.Controls("CheckBox1")      '*****设置默认值
        Dim chk2 As WinForm.CheckBox = e.Form.Controls("CheckBox2")      '*****记住密码
        Dim chk3 As WinForm.CheckBox = e.Form.Controls("CheckBox3")      '*****自动登录
        If chk1.checked = True Then
            saveconfigvalue("User_N",e.Form.Controls("UserN").Text)
        End If
        If chk2.checked = True Then
            saveconfigvalue("User_P",e.Form.Controls("UserP").Text)
        End If


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


加好友 发短信
等级:童狐 帖子:201 积分:2085 威望:0 精华:0 注册:2018/5/4 14:45:00
  发帖心情 Post By:2018/10/26 13:59:00 [只看该作者]

哦,谢谢!

 回到顶部