[求助]请教保存用户名代码是否正确？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

问题一、

If e.Form.Controls("CheckBox1").Checked = True Then
SaveConfigValue("最后用户", _UserAccount & Vbcrlf & GetConfigValue("最后用户", "").Replace(_UserAccount,""))
Else
SaveConfigValue("最后用户", GetConfigValue("最后用户", "").Replace(_UserAccount,""))
End If

但是发现，当我第二次登录不选择checkbox，即属性为false，用户名为空

请问需要作何修改吗？！

需求应该是，当第一次保存用户名后，除非第二次有变更，重新勾选保存，也就是替换了saveconfigvalue的值，第二次登录正常，单不勾选保存，第三次登录就为空值了

是不是因为第二次登录的时候，由于未保存，此时记录的“最后用户”为null导致的？！

问题二：

设置了窗口透明，窗口背景色选择Lavender，

代码如下：

e.Form.BaseForm().TransparencyKey = Color.Lavender
e.form.baseform.Opacity = 0.9 '窗口透明度(0.1-??)

forms("用户登录").baseform.ShowInTaskBar = True
e.Form.BaseForm.FormBorderStyle = Windows.Forms.FormBorderStyle.None '消除窗口的边框
myform = e.Form.BaseForm
Dim WS_SYSMENU As Integer = &H00080000
Dim Min As Integer = &H00020000
Dim windowLong As Integer = GetWindowLong(new HandleRef(e.Form.Baseform, e.Form.Baseform.Handle), -16)
SetWindowLong(new HandleRef(e.Form.Baseform, e.Form.Baseform.Handle), -16, windowLong Or WS_SYSMENU Or min)

WIN7/WIN8/WIN10测试透明效果正常，但在XP系统下，背景色没有变成透明，是何原因呢？

[此贴子已经被作者于2016/3/11 12:05:17编辑过]

1、保存是否勾选，打开窗口的时候，自动勾选一下

If e.Form.Controls("CheckBox1").Checked = True Then
SaveConfigValue("最后用户", _UserAccount & Vbcrlf & GetConfigValue("最后用户", "").Replace(_UserAccount,""))

SaveConfigValue("勾选", true)
Else
SaveConfigValue("最后用户", GetConfigValue("最后用户", "").Replace(_UserAccount,""))

SaveConfigValue("勾选", false)
End If

2、 TransparencyKey

该特性只被XP以上的Windows系统支持

保存已勾选，我的想法是，第一次登陆，写入用户名，密码，点击勾选，登陆；第二次登录，用户名已经成功显示，不勾选；第三次登录，用户名依然显示，但问题就出现在，第三次登录，用户名就为空了！

您刚刚增加的代码SaveConfigValue("勾选", True) “勾选”应该是保存名称，true为值，但这个代码应该并没有给e.Form.Controls("CheckBox1").Checked这个控件赋值吧？！另外，如果默认勾选，感觉有点本末倒置了，一般的都默认不勾选，需要保存的话，才将其保存，以备下次调用。

汗。登陆的时候，没有勾选，就会清空用户名啊。不这样勾选一次以后，就一直显示么？怎么取消？

主题：[求助]请教保存用户名代码是否正确？