以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]“最后用户”代码的问题。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=73069)
--  作者：liuxianjie1980
--  发布时间：2015/8/11 20:17:00
--  [求助]“最后用户”代码的问题。

以下代码是某大侠提供的“登录用户设置”项目中登录窗口afterload事件中的：

 

e.Form.Controls("UserName").ComboList = GetConfigValue("最后用户", "").Replace(Vbcrlf,"|")

 

想问的是：“最后用户”在哪里？
--  作者：大红袍
--  发布时间：2015/8/11 20:34:00
--  

登陆按钮

 

Dim str As String = GetConfigValue("保存的用户", "")
str = ("|" & str & "|").replace("|" & _UserName & "|", "|")
str = _UserName & "|" & str.trim("|")
SaveConfigValue("保存的用户", str.trim("|"))
msgbox(str)

 

AfterLoad事件

 

Dim str As String =GetConfigValue("保存的用户", "")

e.Form.Controls("UserName").ComboList = str

If str > "" Then

    e.Form.Controls("UserName").SelectedIndex = 0

End If

[此贴子已经被作者于2015/8/11 20:36:45编辑过]
--  作者：liuxianjie1980
--  发布时间：2015/8/12 20:54:00
--  
"保存的用户"是单独做一个表还是怎么设置？
--  作者：大红袍
--  发布时间：2015/8/12 20:56:00
--  
直接写代码就行了
--  作者：liuxianjie1980
--  发布时间：2015/8/12 21:07:00
--  
按照上述代码，登录窗口无法关闭了
--  作者：大红袍
--  发布时间：2015/8/12 21:09:00
--  
你要看懂代码啊，msgbox那种代码要删除掉的。
--  作者：liuxianjie1980
--  发布时间：2015/8/12 21:09:00
--  
晕了。大意了！
--  作者：liuxianjie1980
--  发布时间：2015/8/12 21:10:00
--  
是在不好意思，红袍兄！
--  作者：liuxianjie1980
--  发布时间：2015/8/12 21:35:00
--  

Dim str As String = GetConfigValue("保存的用户", "")
str = ("|" & str & "|").replace("|" & _UserName & "|", "|")
str = _UserName & "|" & str.trim("|")
SaveConfigValue("保存的用户", str.trim("|"))
Dim lbl As WinForm.Label
lbl = e.Form.Controls("Label5")
lbl.text = str

 

红袍兄帮我看看，我想赋值给label5，取最后一个登陆用户，红色部分有误。
--  作者：大红袍
--  发布时间：2015/8/12 21:47:00
--  

lbl.text = str.split("|")(0)