登陆按钮
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编辑过]