| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]请教保存用户名代码是否正确？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=82094) |
| -- 作者：13865161910 -- 发布时间：2016/3/11 12:02:00 -- [求助]请教保存用户名代码是否正确？ 问题一、 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编辑过]
|
| -- 作者：大红袍 -- 发布时间：2016/3/11 13:19:00 -- 1、保存是否勾选，打开窗口的时候，自动勾选一下
If e.Form.Controls("CheckBox1").Checked = True Then SaveConfigValue("勾选", true) SaveConfigValue("勾选", false) |
| -- 作者：大红袍 -- 发布时间：2016/3/11 13:20:00 -- 2、 TransparencyKey
该特性只被XP以上的Windows系统支持 |
| -- 作者：13865161910 -- 发布时间：2016/3/11 14:29:00 -- 回复：（大红袍）1、保存是否勾选，打开窗口的时候，自... 保存已勾选，我的想法是，第一次登陆，写入用户名，密码，点击勾选，登陆；第二次登录，用户名已经成功显示，不勾选；第三次登录，用户名依然显示，但问题就出现在，第三次登录，用户名就为空了！
您刚刚增加的代码SaveConfigValue("勾选", True) “勾选”应该是保存名称，true为值，但这个代码应该并没有给e.Form.Controls("CheckBox1").Checked这个控件赋值吧？！另外，如果默认勾选，感觉有点本末倒置了，一般的都默认不勾选，需要保存的话，才将其保存，以备下次调用。 |
| -- 作者：大红袍 -- 发布时间：2016/3/11 15:31:00 -- 汗。登陆的时候，没有勾选，就会清空用户名啊。不这样勾选一次以后，就一直显示么？怎么取消？ |