老师你好：我做了个登录窗口，其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
不知啥原因，请指正。谢谢！
加好友 
发短信
Post By：2018/10/26 11:52:00 [显示全部帖子]
