说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB如何让Window不接受键盘输入及Mouse Click

HTML文档下载 WORD文档下载 PDF文档下载
VB如何让Window不接受键盘输入及Mouse Click


就好比呼叫MsgBox之後,Form就不接受Mouse Click与KeyPress,但是Form仍可处於Activate的状态,即我们暂停了Mouse Click,KeyPress,等待我们要做事都做完了,再将之回复。不过Mouse仍可自由的移动,若要让Mouse也不能动,就使用JournalPlayBack Hook,而不是使用本方法。

EnableWindow()可达目的,第二个叁数传0进入则不能输入,传1则相反

Private Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
Call EnableWindow(Me.hwnd, 0)
Me.Caption = "现在拒绝KeyPress, MouseClick"
Dim i As Long
For i = 1 To 100
Call Sleep(100)
DoEvents '虽有DoEvents,会发现,按Form的任何地方都没有反应
Next i
Me.Caption = "现在解除了"
Call EnableWindow(Me.hwnd, 1)
End Sub

断开与 Internet 的连接 -VB资料 发送电子邮件附件-VB资料 VB获得用户网络登录名 基 于Win95 的VB5 串 口 通 信 程 序 基于Win95的VB5串口通信程序 怎么只能选取视图中的一个文档? 有谁做过服务器托管 过程中的值引用问题,问过3遍了,还没解决 请问有谁研究过智能agent或移动agent,大家交流一下? 请教错误的原因 能给我解释一下下句吗? insmod bcm5700 不成功,高手看看我列出的错误. 这是真的假的? 跪求适用汽车客运站的物流系统(或者叫行包快件)的数据库设计?UP者有分。 麻烦大家分析一下这个英语句子的语法结构whethe 向量a=(2,3) 向量b=(3,k) 若向量a与 麻烦看下此英语句,看语法是否正确.Thank go 编写一个程序,分别用for,while和do..w 设A是n阶方阵,|A|=0,且A中有一个元素的代数 描写战争场面的语段 描写战争画面的语段有哪些 分数的分子和分母都乘(或除以)一个不为0的数,那么 分数的基本性质是:分数的分子或分母同时乘或除以一个 奥巴马提名两名竞选支持者为美国驻外大日研究机构预测南海沟大震将致大阪132012年恐怖袭击遇难者超1.5万人加拿大修订创业移民计划 对申请者设学埃及将出台指导政府消费具体规定 大幅美国2名警察盘查车辆时遭枪杀 3名嫌买完学区房,“虎妈”烧钱的方式还有…“康熙”终究要让位“康熙”终究要让位滞销多年 法国阵风终于“刮起来”逆武成神君临星辰天下珍玩网游之道仙我的老婆是特种兵乃钦康桑雪山旅游玉皇山旅游大樟溪休闲游乐区旅游铜鼓包旅游蟹岛度假村旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘