问题一、
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编辑过]
加好友 
发短信
Post By：2016/3/11 12:02:00 [显示全部帖子]
