| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- [求助]关于锁屏后不断闪烁问题！ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=128851) |
| -- 作者：bashanren -- 发布时间：2018/12/16 20:14:00 -- [求助]关于锁屏后不断闪烁问题！ 各位大师晚上辛苦！！ 我做了一个超10秒隐屏代码，要求是在超10秒不动电脑时，主窗口隐藏，当重新输入密码后重显。可是在进入隐屏后总是不断闪烁，真不知道是为什么，请大师帮忙，谢谢各位了！！ If LastInputTickCount > 10000 Then \'如果在10秒没有操作 CurrentTable.Grid.Findform.Visible = False \'隐藏主界面 If forms("锁屏窗口").opened = False Then forms("锁屏窗口").show CurrentTable.Grid.Findform.Visible = True \'显示主界面 End If End If 未完，见下面
[此贴子已经被作者于2018/12/16 22:34:47编辑过]
|
| -- 作者：bashanren -- 发布时间：2018/12/16 20:16:00 -- 在“锁屏窗口”设有一个用户输入框和密码输入框，同时“AfterLoad”中的代码为： Dim cmd As New SQLCommand Dim dt As DataTable Dim cmb As WinForm.ComboBox = e.Form.Controls("UserName") 未完，见下面 [此贴子已经被作者于2018/12/16 22:34:19编辑过]
|
| -- 作者：bashanren -- 发布时间：2018/12/16 20:18:00 -- dt = cmd.ExecuteReader() For Each dr As DataRow In dt.Datarows 未见，见后面 [此贴子已经被作者于2018/12/16 22:35:07编辑过]
|
| -- 作者：bashanren -- 发布时间：2018/12/16 20:19:00 -- cmb.Items.Add(dr("Name")) Next cmb.SelectedIndex = 0 谢谢大师了！！
|
| -- 作者：bashanren -- 发布时间：2018/12/16 20:20:00 -- 真不好意思，总是传不完，提示错误，也不知是为什么，所以分好几次才传完，辛苦各位大师了！！ |
| -- 作者：有点甜 -- 发布时间：2018/12/16 22:47:00 -- 代码改成这样
If LastInputTickCount > 10000 Then \'如果在10秒没有操作 |
| -- 作者：bashanren -- 发布时间：2018/12/17 0:15:00 -- 非常感谢“有点甜”老师，辛苦了！！！ |