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

VB如何过滤键盘录入

HTML文档下载 WORD文档下载 PDF文档下载
VB如何过滤键盘录入
在 VB 的应用得到以前就处理键盘动作, 实现对键盘的全面控制, 可过滤任意的键。 下面的例子过滤了 CTRL+C 键, 并把该键模拟为在 Command1 上单击。
Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Const WH_KEYBOARD = 2
Public Const KBH_MASK = &H20000000
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Global hHook As Long
'KeyboardProc 在 VB 应用动作前发生
Public Function KeyboardProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If nCode >= 0 Then
'处理你希望过滤的键
If wParam = Asc("C") And (lParam And KBH_MASK) <> 0 Then
If (lParam And &HC0000000) = 0 Then
'模拟在Command1 中单击
Form1.Command1.SetFocus
Call PostMessage(Form1.Command1.hwnd, WM_LBUTTONDOWN, 0, &H20002)
Call PostMessage(Form1.Command1.hwnd, WM_LBUTTONUP, 0, &H20002)
KeyboardProc = 1
Exit Function
End If
End If
End If
KeyboardProc = CallNextHookEx(hHook, nCode, wParam, lParam)
End Function
 
Private Sub Form_Load()
'将 KeyboardProc 连接到中断上
hHook = SetWindowsHookEx(WH_KEYBOARD, AddressOf KeyboardProc, 0&, App.ThreadID)
End Sub
Private Sub Form_Unload(Cancel As Integer)
Call UnhookWindowsHookEx(hHook)
End Sub



工程师谈在Facebook工作最糟糕的事情 用Scala重构19楼——SDCC 2013讲师王治专访 10款最新且超实用的开发框架 创业公司为什么应该写博客? 向iOS SDK看齐:Facebook Android SDK迎来重大更新 闯向海外:对话AppFlood产品总监陈霄 高手爱跨界:联想智能桌面,27寸大Pad抢先试玩 惠普第三季度收入272亿美元同比下降8% 高管重新布局 原来我们会出这个价钱购买“廉价”iPhone Web设计过程中该做和不该做的 新细节披露:通过电信合作 美国75%网络遭NSA监控 实时Bug检测工具Bugsnag发布API更新 【观察】一大三小:亚马逊,微软、谷歌、IBM ,IaaS四足鼎立 “化云为雨”一小滴:北京,3G手机+蓝牙打印机实现智能抄表 金山云与蓝汛联合提供云基础设施服务 MongoDB出新招,增加对Hive的支持 编程语言收入榜 Java排第三 直接拿来用!10段超有用的Git命令行代码 Google Cast SDK正式版发布:自动适配,修复Bug 频受红杉资本青睐,商业智能初创公司Birst靠的是什么? 2013百度世界大会要点精华回顾 WebApp开发框架Clouda、轻应用... 对新手有用的JavaScript开发小建议 磨剑三载,且看从容应对14.3万TPS的Twitter是怎样炼成的! 兰亭集势:被高估的“长尾式采购” 谁说WP手机不行?微软称已成拉丁美洲第二大移动平台 Windows 8之父Steven Sinofsky加盟风投机构A16Z SDCC 2013演讲议题抢先看 腾讯、阿里、支付宝、网易…… [开源推荐]Google开源基于Deep Learning的word2vec工具 【开源专访】DWZ团队:致力打造最简单的Web前端开发方式 Linux黑客车库创业:服务器操作系统CoreOS颠覆互联网 时间序列数据处理的角逐:MongoDB vs. Cassandra VC中的ADO事件编程 我想获得机器可用的最后一个盘符,我用GetLogicalDriveStrings返回a:\ 谁有指纹里脊检测的有效算法?给出论文名字我去找。。。 谁知道怎样在XSL里引用JavaScript的变量?? 有关文档存储的问题 怎样响应WM_NOTIFY消息?我的这个做法错在哪里? 不是ASP.NET的高手不要进来, 怎样将对话框放在所有窗口的最顶部? 关于二级联动下拉列表,请教高手!! 如何获取网页中的数据,请教各位大侠??? VB编程如何实现菜单及打印等功能 ehlib 2.0表格为什么导出到Excel中是空表的? VBA操作excel 请问什么函数可以实现 类似于用note打开一个文本文件 怎样把查询结果写到缓冲里 请教一个delphi 安装问题 请问,你们都用现成的数据库还是自己定义?(大家讨论讨论) 程序员的未来! 谁有《将标准C++视为一个新语言》一文? 求助 为什么装上Framework以后不能正确运行.ASPX文件? 要想学好vb.net,首先要学好什么???? 请各位帮忙:apache 支持asp 吗? 麻烦大家帮我看看这个历遍 尴尬中..... 2000系统中 这个进程占了CPU 99% 且不能结束!!!是什么进程??? 急!!!!!!!!!!!在线等待 抱错:在获得新的之前,必须释放所有ROW句柄 如何使用ASP进行文件上传代码的编写? 哪里能找到好一点版本的江湖下载啊? 小弟初学汇编,问大家一个基础的问题,请指教! 狂风系列问题:在ASP.NET中怎样写这样的SQL语句? Ehlib或其他Grid控件, 如何实现点击表头排序 ?要求不能重新重新执行SQL语句 请大家试试,google是不是不能用了??郁闷ing.... 怎么google打不开了? 这段代码出什么问题了?大家帮看一看。 如何察看源代码? 大家好啊!我有一个非常……的问题!是一个关于主机板的CPU温度测试问题! 怎么老是游人不停的ping我的80端口 Windows位图的数据结构 我为用户做了一个员工输入模块,但客户想把excel里面的表复制进我的员工输入摸块里面去 一个小问题。急 创建启动等待窗口,工程文件要添加哪些内容 只要有人可以把狗屎说成是精神 关于windows和Linux的问题 如何调用其他事件的过程?? 如何查询员工表中所有本月所生职工 哪位老兄用过intel的jpg库? 请教一下 viewstate在 Not (IsPostBack) 情况下是读不出的? 如何用VB打包控件,以便ASP自动安装? 请问怎样实现SQL数据库再本机上的备份与恢复?救急!!! 丹霞地貌是怎么形成的? 晚上,在桌面上铺一张白纸.把一小块平面镜放在纸上,让手电筒的光正对桌面照射,从侧面看去,白纸被照亮而平面镜却比较暗.从正面看上去,平面镜被照亮,而白纸却比较黑.请说明上述现象 (2011•玉溪)2006年我市在全国率先成为大面积实施“三免一补”的州市,据悉,2010年我市筹措农村义务教育经费与“三免一补”专项资金3.6亿元【由中央、省、市、县(区)四级共同投入, 母亲的爱 物理光学方面的两道题、、、、、1.1-光年是一个非常大的时间单位2-坐井观天,所见甚小 隐含了光的直线传播原理3-平静湖面上得到应,说明平面镜成‘与物等大正立的像’的规律不成立4-透过 小灯泡上标有2.5V 0.3A 为什么锅炉水中要去除离子 晚上,桌面上铺上一张白纸,把一小块平面镜放在纸上,让手电筒的光正对着平面镜照射,从侧面看去,白纸被照亮,而平面镜却比较暗.试用光学知识解释,这是为什么? 请问“3.8V 0.3A”是灯的铭牌,表示什么意思请具体回答 经常会做梦梦到自己会飞,可是每次都飞不起来,请问代表什么意义吗?这样的梦会断断续续的做,有什么意义吗? 中学物理光学实验有哪些 几道初一几何题,已知AC⊥BC,AV=BC,BE是∠ABC的平分线,AE⊥BF,交BE的延长线于点F,求证:AF=0.5BE.在△ABC中,AB=AC,AD=AE,∠CAD=40°,求∠EDB的度数.已知△ABC中,BD⊥AC,E为AB的中点,EF‖BC,∠A=2∠C,求证 为什么阴天大气逆幅射强? 1.在等腰直角棱镜CAB中 其中C是直角 现一束白光垂直AC边入射 入射点为O 若让白光束以O为轴 顺时针转动 则从AB边首先射出的光线是( )请分析一下原因 2.一束单色光斜射到厚平板玻璃的一个表 文学家 画家 音乐家 科学家 军事家 哲学家 思想家,每个找5个,并弄一些事迹或简介.作文素材积累用! 为什么晴天的白天要比阴天的白天温度高? 在暗室的桌面上铺一张白纸,把一小块平面镜放在纸上,让手电筒正对着平面镜照射,从侧面看上去()?A.平面镜比较亮,它发生了镜面反射.B.平面镜比较暗,它发生了镜面反射.C.白纸比较亮,它发 我想问下,塔吊臂长50米,基本高度70米的,大约多少钱? 丹霞地貌属于哪种地质作用形成的 冬天为什么那么冷呢? 小灯泡上标有3.8v 0. 丹霞地貌形成的地质作用过程是什么?简要回答解析谢谢. 与根毛细胞吸收水和无机盐功能直接有关的细胞器是? 小灯泡上标有“2.5V 0.3A”字样.小明问 过老师后,知道这些数字表示的意思.他想 实际测量这个小灯泡的额小灯泡上标有“2.5V 0.3A”字样.小明问过老师后,知道这些数字表示的意思.他想实际测 有谁知道丹霞地貌的形成背景,要具体点的哦! 与胚胎干细胞吸收无机盐离子有关的细胞器 德国文学家德国 名人(文学家 音乐家 科学家等,除了明星) 有哪些?请说明年代 作品 物体对眼睛所成视角的大小不仅和___有关,还和___有关? 胚胎干细胞中与吸收无机盐离子有关的细胞器主要有什么? 1 参见图1 已知S abe=1/3S abcd,S adf=2/5S abcd ,Scef=5 求Sabcd2 参见图2 已知bd=ed=ce,ag=gf=fc S abc=1 求S pecf3 参见图3 已知ae=be ad:dc=2:3 Sabc=40 求S aefd4 参见图4 图中所标数字即为相应三角面积 求S abc5 参见图1 眼睛能看到 物体的尺寸大小就是不借助显微镜 土壤中水和无机盐进入根毛细胞的途径是?土壤溶液——( )——细胞膜——( )——( ) 请问这句德语表达什么意思?Das Model hat die Kleidung mit dem Futter(,das eine andere Farbe ist,) angezogen.Deshalb erscheint es einfach verschiedener als meine Fotos. 如图所示,物体对眼睛所成的视角决定了物体在视网膜上所成像的大小,视角越大,所成的像越 得分 1、在桌面上铺一张白纸,绝纸上竖一块玻璃板作为平面镜,在纸上记下平面镜的位置; 2、把一支点燃的 得分 1、在桌面上铺一张白纸,绝纸上竖一块玻璃板作为平面镜,在纸上记下平面镜 能不能帮我找几道关于初一的几何题目? mò mo 怎么写?快! 在桌面上铺一张大白纸,纸上竖立一块玻璃板,作为平面镜.在纸上记下平面镜的位置然后把一支点燃的蜡烛放在玻璃板的前面,可以看到玻璃板后面的像.在 像 处放一只没点燃的同样的蜡烛在纸 这句德语想要表达什么?Für eine Hose brauche ich 1,40x2,30 oder 1,50x2,05.Ich bin Anfänger und frag mich,ob das geht und was das dann kostet.. 视角的大小与物体到眼睛的距离有什么关系 找几道初一下的几何题越多越好, 中国的政治家.教育家.科学家.文学家有哪些? 视角的大小除了与物体到眼睛的距离有关,还和什么有关 海南靠近什么海 我国的政治家、教育家、科学家、文学家有哪些 什么鸟什么凤的四字词语 海南岛是什么海的南面? 科学家能成为政治家么?当科学家好还是政治家好?我本立志成为一名科学家,但现在越来越发现:科学总是受制于政治,科学家有点太憋屈了, 甲乙两个修路队从两端修一段公路,在距离中点15米处相遇,已知甲修了全长的40%,求全长.答对重金奖励.谢2,师徒二人公生产零件若干个,徒弟生菜的零件占零件总数的40%,若徒弟给师傅15个,则徒 海南岛与哪个海洋濒临,最近的是哪个海?具体是西还是南太平洋呀? 中国历史上出现过的政治家、教育家、科学家、文学家都有哪些?稍多一点,要>10个,<20个就差不多, 这个题的步骤是什么啊?简单说下让求的是那段就行. 海南那边的海就是南海么如题 有个人非要跟我争论说海南这边的海是南海 到底是不是 请问这段德语表达的是什么意思?Kann ich für den Stoff Krepp mit Erdbeeren für 23,77 mehr haben? speziell für abgebildetes Kleid Grösse 38? 晚上,在桌面上铺一张白纸,把一小块平面镜放在纸上,让手电筒的光正对桌面照射,则从侧面看上去? 高压锅的锅盖上有一个空心柱为排气孔 为什么将铝片和镁片分别投入浓naoh溶液,只有AL片表面产生h2 下列哪些是与全反射有关的A 露水或喷泉的水珠,在阳光照耀下格外明亮B 口渴的沙漠旅行者,往往会看到前方有一潭亮晶晶的池水,当他们喜出望外地奔向那谭池水时,池水总是遥不可及C D都对 (2006•天津)已知关于x的方程x2-(a+2)x+a-2b=0的判别式等于0,且x= 1 2 是方程的根,则a+b的值为我想请问判别式算式(a+2)²-4(a-2b)=0 为什么不在这里下结论说a+2=0 a-2b=0 而是要展开再继 写四条尊师名言,写出作家介绍.如德国音乐家 贝多芬.
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘