Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于锁屏后不断闪烁问题！


  共有2076人关注过本帖树形打印复制链接

主题：[求助]关于锁屏后不断闪烁问题！
帅哥哟，离线，有人找我吗？
bashanren
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：316 积分：2899 威望：0 精华：0 注册：2009/7/25 18:29:00 		[求助]关于锁屏后不断闪烁问题！  发帖心情 Post By：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
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：316 积分：2899 威望：0 精华：0 注册：2009/7/25 18:29:00 		  发帖心情 Post By：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
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：316 积分：2899 威望：0 精华：0 注册：2009/7/25 18:29:00 		  发帖心情 Post By：2018/12/16 20:18:00 [只看该作者]

dt = cmd.ExecuteReader()
For Each dr As DataRow In dt.Datarows
   
未见，见后面
[此贴子已经被作者于2018/12/16 22:35:07编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
bashanren
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：316 积分：2899 威望：0 精华：0 注册：2009/7/25 18:29:00 		  发帖心情 Post By：2018/12/16 20:19:00 [只看该作者]

cmb.Items.Add(dr("Name"))
Next
cmb.SelectedIndex = 0

谢谢大师了！！
 回到顶部
帅哥哟，离线，有人找我吗？
bashanren
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：316 积分：2899 威望：0 精华：0 注册：2009/7/25 18:29:00 		  发帖心情 Post By：2018/12/16 20:20:00 [只看该作者]

真不好意思，总是传不完，提示错误，也不知是为什么，所以分好几次才传完，辛苦各位大师了！！

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/12/16 22:47:00 [只看该作者]

代码改成这样

 

If LastInputTickCount > 10000 Then   '如果在10秒没有操作
    If forms("锁屏窗口").opened = False Then
        basemainform.Visible = False  '隐藏主界面
        forms("锁屏窗口").show
        basemainform.Visible = True  '显示主界面
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
bashanren
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：316 积分：2899 威望：0 精华：0 注册：2009/7/25 18:29:00 		  发帖心情 Post By：2018/12/17 0:15:00 [只看该作者]

非常感谢“有点甜”老师，辛苦了！！！

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04102 秒, 4 次数据查询