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

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

2012世界“末日”:有经过正确的分析吗?! 23.5亿美元!谷歌出售摩托罗拉机顶盒业务 两家巨头相继放弃移动广告,移动广告形势堪忧? 应用洗牌,还能免费多久?Google推出iPad版Quickoffice 2012末日APP推荐 求生自救必备! Windows8上网利器 不卡死的IE10浏览器 为何Java程序员学习Clojure有优势? 我们是如何阅读代码的? “热水冷却”技术将主导美国国防部数据中心改造 程序员想玩转大数据:需要知晓的12种工具 2012年谷歌应用商店增长迅速 但苹果最赚钱 Apple微软Google都在竞购一家创业公司 违反新条款?苹果强行下架AppShopper 2012移动开发教程盘点:最棒的国外游戏开发站 重思JavaScript的好与坏 细数那些 NeXT 留给 OS X 的遗产 一张图让你知道大数据的生态系统 Camera360开放SDK:拍照和滤镜一行代码搞定 一周消息树:计算机将拥有五感 人类面临威胁? 通晓数学的人就可以当程序员吗? 360发布企业版4.0 可自定义软件白名单 不要总是依赖机器 MongoDB扩展彰显分片功夫 Dell与HP的OpenStack的战略:渠道对抗SLA 路况电台王雷:未来车载系统会是Android的天下 移动周报:2012移动开发工具系列盘点 谷歌不愿错失机会 Android或不再成它人独享 黑客文化:Facebook公布2012年Hackathon大赛顶级“黑客作品” 中国移动音乐开放平台正式对外开放 GitLab 4.0发布 更好地支持PostgreSQL 傻瓜式移动应用开发平台:专访摩讯创始人赵健 日本DeNA进军中国智能电视,与海信战略合作 我用标准输入输出流来输入字符串到string的对象里,为什么得不到空格和以后的字符? 转一篇文章——有关LSD的罐头 (有点长,没耐心的就不用看了^o^) 送分! 超过10个回复请勿再进!!! VC程序调试问题 懂电路分析者请进 求树型菜单的代码??马上给分!!! VC可以调试可执行文件吗??? 请高手指点迷津 :) 求树型菜单的代码?? 如何使列表控件的第一列居中(包括标题文本和内容文本)??? 用查表法按ALPHA混合R、G、B也会这么慢?奇怪!(有源码)(50 怎样用vc开发一个动态链接库让PB调用,要求参数为字符串 3dmax 的问题 关于用alert("信息!")弹出的对话框 up up up up up up up up up up up up up 请问“IE登录时”为什么Domino检测不到我的Username and password? 着急,这条sql语句怎么写?????? 爱的密码 散分啰!!统计BCB论坛现有成员... 这样的COM组件如何实现? 请教:我想学lotus,可不知哪有lotus和lotus教程下载,望指教! 多选项提交过来的值是什么类型的? ORA-03113: end-of-file on communication channel谁知道??高手救命! 星际争霸几大战略(大家切磋切磋) CHtmlView的刷新问题 关于asp.net加密的讨论 怎么样把两个ArrayList合并成一个??我在文档里找了半天也没找到!急~~!!!!!!!! 》》》菜鸟发问:SQL SERVER2000 可以对 office 文档进行全文检索吗? How to alter DBGrid Scrollheader Color? c怎样访问数据库啊?一定给分! from里的参数传递为ENCTYPE="multipart/form-data"时的问题? 网吧问题 如何在txt文件中查找字符 请问如何实现当进入一个combox时自动下拉列表框(不用用鼠标去点) 关于volatile 修饰词 过去用Delphi开发数据库都是用Access,现在急需使用SQL Server。请问:我必须掌握SQL Server中的那些内容。 如果我想删除日志文件的所有记录该怎么办?????? 怎么样把两个ArrayList合并成一个??我在文档里找了半天也没找到!急~~!!!!!!! 请问,NT4.0下怎样配置网关和路由? 请问如何知道一个弹出菜单是否以经关闭 升级后问题,奇怪,请指教? 什么是存储过程? 大侠们帮忙看看,简单问题 急:因出差,明天(12.20,第二期)的“微软.net高级程序员培训”转让(包括资料)!今晚6:00前联系,13910321169. 请问怎样才能在Access中选取指定行数的记录如第5-10条. 关于XML命名空间的疑问?请教各位高手帮帮忙!谢谢! 请问哪里有《情深深雨蒙蒙》下载??? ******斑竹快出来啊 看看我这个贴子啊!!!!!!!!!!!!!! 如何读取寄存器中的数据? 请问在数据库中如何操作日期型字段: Help,如何把本机加入主域服务器? 急:因出差,明天(12.20,第二期)的“微软.net高级程序员培训”转让(包括资料)!今晚6:00前联系,13910321169 一个底面积是300平方厘米,高10厘米的长方体里面装有5厘米的深的水,把一块石头完全浸没在水里,水面上...一个底面积是300平方厘米,高10厘米的长方体里面装有5厘米的深的水,把一块石头完全 一块三角形地的面积是0.3公顷,底边上的高是80米,底边长多少米?如题 小青想调制一种巧克力与牛奶之比为2比9的巧克力奶,现有16克巧克力,需要加多少克牛奶 其人已心怪之的“已”是什么意思? 一块三角形地的面积是0.3公顷,底边上的高是80米,底边长多少米?说理由 一个长方体水箱,从里面量长50厘米,宽40厘米,深30厘米,箱中水面高5厘米,放进一个棱 各种水果代表的含义?六月一日是儿童节,我们班决定做水果拼盘,能不能告诉我各种水果代表的含义啊?急.(要求:注意,不是生日蛋糕,如果是这种,我可以自己去找.) 一块三角形菜地的面积是0.3公顷,底是150米,它的高是多少米? 一个长方体水箱,从里面量长五十厘米,宽40厘米,深45厘米,箱中水面高10厘米,放进一个棱长是20厘米的正方体铁块后,铁块顶面高于水面.这时水面高多少厘米 一块梯形麦田,上底是600米,下底是400米,高是30米.这块麦田的面积是多少平方米?和多少公顷? 《满满一大杯牛奶》问题. 一个出身贫苦的男孩,为了积攒学费而挨家挨户地推销商品.  这天傍晚,他奔走了一整天,又累又渴又饿,可身上只剩下一毛钱.他决定向下一户人家讨一口饭吃. 梯形的面积是16.5平方米,高是3米,上底是8米,下底是多少米? 英语翻译蔬菜协会(用英语怎么说)英语翻译 一个梯想如果上底怎加5分面积增加5平方分米就成了平行四边形如果原梯形的上底是3分米那么梯形面积是多少 已知梯形的面积是100平方分米,高是8分米.这个梯形的上底与下底各是多少分米? 我不想买一些水果翻译 一瓶200ML的纯牛奶,我第一次喝了四分之一,加满水摇晃后,又喝了三分之一.这时瓶中剩下几毫升纯牛奶 一个梯形的面积是40平方分米,它的上下底和是8分米, 一个长方体水箱长80厘米,宽40厘米,高60厘米,箱面水面离箱口6厘米箱内有水多少升? 有三种盒装牛奶(200ml的2.5元 250ml的3元 190ml的2.2元)比较牛奶的净含量和售价,购买哪种更合算?急……………………急是不是用毫升除以钱数得出售价? 小丽要配制2200克巧克力奶,巧克力奶 水果店运来一些水果,菠萝的筐数比苹果少三分之二运来苹果24筐,运来的菠萝比苹果少多少筐?2、水果店运来一些水果,苹果的筐数比菠萝少三分之二,运来苹果24筐,运来的菠萝多少筐? 购买哪种牛奶比较合算 第一盒 :200ml 2.5元 第2盒 :380ml 3.8元 第3盒 :1l 9元 一个梯形,上底是12分米,下底减少2分米,就变成一个面积为36平方分米的平行四边形.梯形的面积是多少?我知道咋列式子 水果店运来一些水果.菠萝的筐数比苹果少4分之1.运来菠萝15框,运来苹果多少筐?(方程解) 直角三角形的底为6分米,求这个梯形的面积! 一个梯形的面积是4.2平方分米,它的下底与一个平行四边形的底边相等,高等于平行四边形的高,四边形面积 一个三角形图形,三角形面积是0.6公顷,底长300米,有多大? 个底为6分米,高为15分米的直角三角形右侧对接上一个梯形,拼成了一个平行四边形,求这个梯形的面积.以五年级的公式写出来行么? 一个长120厘米,宽60厘米的长方体水箱里,放入一块铁块后,水面就比原来上升2厘米,铁块的体积是多少? 一瓶色拉油有5升. 这句话对吗 用两个完全一样的梯形拼成一个平行四边形.梯形的底是18分米,高是9分米,梯形的面积是多少? 一个提醒上下底之和是36分米,是高的4倍,这个梯形的面积是( )平方分米 一个面积是2.4公顷的三角形苗圃,底边长1200米,高是多少米? 在底6米,高15米的直角三角形右侧接上一个直角梯形形成平行四边形,求梯形的面积 一个梯形上底乘高得36平方分米,下底乘高得84平方分米.这块梯形的面积是( )平方分米. 一个面积是2.4公顷的三角形苗圃,底边长1200米,高是多少米 下图石油两个完全一样的梯形拼成的平行四边形.已知每个梯形的面积是240平方米,梯形的高是多少分米?阴影部分的梯形,上底是5分米,下底是25分米 上图是由两个完全一样的梯形拼成的平 糖果店要调制5500千克巧克力奶糖他的巧克力和奶的质量比是2:9.需要巧克力和奶各多少千克? 一瓶大可乐有几升?一瓶纯净水有几毫升?家用电饭煲的容量是几升?纯净水,就是矿泉水,1.50元 的多少升啊? 一种牛奶每箱25元,现在甲乙两家商店,甲按九折出售,乙商店买10送1,哪家的牛奶便宜?这个问题没有告诉要买多少东西,题就是这样的,并不是我没写.我也为这个问题苦恼, 一个梯形的面积是24平方分米,上底和下底的和是8分米,那么高是多少分米? 一般色拉油的容量是多少? 一个梯形的面积是68.4平方分米上、下底之和是36分米,这个梯形的高是多少厘米? 一个梯形的面积是120平方分米,上底是9分米,下底是15分米,它的高是多少分米?用列方程计算说错了是用字母和数字计算 一个长50厘米,宽40厘米,高30厘米的长方体水箱,水深20厘米.如果放入一块棱长10厘米的正方体石块,那么水箱里的水面将上升多少厘米?(列式解答) 一个梯形的上底与下底的平均长度是30厘米,这个梯形的面积是多少平方分米? 一个梯形的面积是120平方分米,高是8dm.这个梯形的上底和下底的和是()dm. 霍华德 凯利医生所写的“医药费——一杯满牛奶”是什么意思? 一个长方体水箱,从里面量长40厘米,宽30厘米,深30厘米,箱中水面高10厘米,放进一个棱长20厘米的正方体后,铁块顶面仍高于水面,这时水面高多少厘米.(用方程解)今晚就要,求求各位大侠了,最 梯形的面积是120平方分米,高是8分米上底是多少分米 霍华德·凯利医生所写的一满杯牛奶什么意思 一个长方体水箱,长40厘米,宽20厘米,高30厘米,水深15厘米.现把一块棱长10厘米的正方体石块放入水中,问水箱现在的水的高度是多少? 一个梯形的面积是30平方分米,它的上底6分米,下底是9分米高是多少分米?(列方程解答)有两题在一幅地图上,用12厘米长的线段,求这幅地图的比例尺.谢谢锅位了. 已知一个梯形的面积是40平方米上底是8.5米下底是11.5米高是多少米 霍华德·凯莉医生所写的“医药费: 小清要调试2.2千克巧克力奶,需要巧克力和牛奶各多少千克?(巧克力与奶的质量比是2:9) 已知梯形的面积是36平方米,上底是3米,下底是五米高是多少米? 为什么霍华德.凯利能成为一位大名鼎鼎的医生 小青要调制2200克巧克力奶,需要巧克力和奶各多少克
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn