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

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



屏蔽GitHub是互联网时代的“闭关锁国”吗? 巧妙利用空白设计案例分享(多图) 用友发布2013/新三年业务策略 力推UAP/CSP云平台 AWS集群计算新增内存分析EC2实例 手游:鼓足力气,掰弯传统3D游戏大作 LBA兴起:未来移动广告将基于地理位置 苹果发布2013财年Q1财报:iPhone销量及营收低于预期 不再被墙后 一个全新GitHub到来 与乔布斯并肩作战的日子 Google抛弃Exchange ActiveSync WP用户获DAV支持 Facebook真的要做“Facebook Phone”? 程序员,都去写一写前端代码吧 清除山寨和广告应用,“豌豆洗白白”服务上线 谷歌另类“开源” 程度仍不及Facebook和Twitter 想在云中分一份蛋糕? 不妨试试“山寨” 为何乔布斯脾气怪糟 却能让一群最优秀的人为他卖命? 单页Web设计案例+技巧攻略(多图) IE10里的捕捉模式和响应式设计 在“亚马逊商店”出售自己:产品经理这么找工作 【CTO俱乐部第92期】大规模存储与电商架构演化实战分享 刘黎明:PaaS是非主流业务,要与IaaS融合 个人手机游戏开发者之死 为什么苹果的应用审核是个笑话? 程序员性格怪癖是才华横溢的表现,还是危险分子的征兆? JavaScript Source Map详解 8条学习编程的可靠建议 一周消息树:亲爱的GitHub,我们怎么访问不了你? [回顾] 2012年几大编程语言就业趋势分析 研发周报:微软无视W3C 拒绝遵循WebRTC标准 移动周报:夫妻档闯江湖 事业爱情双丰收 当服务器遇见锤子:第六届AWS全球创业大赛落幕 河南的程序员考试成绩出来了没有?都快把大家急疯了! 一个类的四个问题?this指针等等,欢迎大家的光临。 请大家帮个忙!我的PARADOX数据库有660M,但是在读取的时候出现‘BLOB HAS BEEN MODIFIED‘!! 请问哪里有ado数据库引擎下载,谢谢~! BDE错误$2109 如何得到“我的文档”里的IShellView指针? SOS!各位帮帮我呀!“实现汉诺塔” 幫忙看一下下面這段代碼有什么問題? 改进后的开开关关窗口特别酷 请问在VB6与VB.NET在数据库方面有多大的区别呀?? 关于C语言 寻找将 AUTOCAD 文件格式转换成 PDF 格式的软件 谁有包含开发接口的OCR软件? 求助:没有紧急修复软盘,怎样恢复win2kserver的双启菜单。 请问怎么得到DATAGRID1中记录的总条数! 转发:一粒沙子的爱情故事 公司發過年禮物了 ,哎 ,原來是一塊石英表 ,雖然是情侶表 ,卻只發一塊 ,不是一對 ,你們呢!..... ??有解密高手吗?或者哪里有这样的论坛?? 怎样用多线程显示多个form? VB串口发送大数据量时其他程序没有反应? 这句sql语句怎么写?低手请教! 数据库高手请进,报表问题!!! 请介绍VC测试内存泄漏的好工具. select number from table需要分别得到所有的值,如果做? 请问如何将下载的控件加到delphi的控件面板上?先谢谢了!!! 一个form里面如何将6个radiobottom 分成两组? 开开关关IE窗口的小程序 请各位高手介绍一下win2K,wingate,sygate这些做上网服务器各使用什么技术?NAT?SOCK5? WIN2000 PRO. 怎样才能通过 NT4+MSPROXY 上网? ASP中如何实现等待几秒再执行下一步的功能? 数据库的烦恼之二 如何在程序中播放Power Point? 散分,帮我看看主机链接是否正常 BDE数据库的问题。 win2000中怎样配置开机启动文件(如98下的Msconfig) 痛苦的人请看 http://www.csdn.net/expert/topic/425/425671.shtm (UP者有分!) 关于strlen函数 高手请进 vc中是否有函数readline(),该如何调用, 如何将我写好的.java文件编译在单片机的系统中? 下载的.rar格式的文件怎样打开 怎么是查询(select)不受更新(update)的阻塞? 请老大帮帮我啊 怎样获得WIN98系统的日期格式啊? 超级终端的传输格式 关于strlen函数的问题 请教:关于soft-ice软件的问题 谁有Exange 2000操作手册之类的东东?还有下载ftp地址和密码,谢谢!收到马上给分!急用! NetUserAdd怎么用,我下面是否用错了,结果会蓝屏,dump!!(KMODE_EXCEPTION_NOT_HANDLED) 以超级终端YModem协议传输文件时,数据包的格式 想知道到底有多少公司用到ejb,j2ee,rmi? asp:HyperLinkColumn中的DataNavigateUrlFormatString如何带多个参数? 多少克的氧气可跟多少克的氢气完全反应,生成18克的水? 萝卜与白菜的杂交结果萝卜体细胞内有9对染色体,白菜体细胞内有9对染色体,现将萝卜和白菜杂交培育出新作物,这种作物最少应有染色体多少条? 为什么会打雷下雨 为什么会有冬季春天 白菜的拉丁文学名是什么?注意,是白菜,不是其他的什么…… “菜园里有白菜 萝卜 青菜等蔬菜”一题顿号怎么加?这题主要是顿号放在后面怎么加? 6根萝卜换2个白萝卜,9个白萝卜换3颗白菜,6颗白菜换( )萝卜 什么是拉丁学名 生苍蝇的原因.寝室忽然多了好多小苍蝇,不知道是怎么出来的.没有烂的东西.该怎么办,不知道根源在哪. 一棵白菜和6个萝卜一起卖4角6分,一棵白菜和3个萝卜一起卖3角,那两棵白菜和两个萝卜应该卖多少呢?请大家帮忙 什么是植物拉丁语?种的拉丁学名由哪几部分组成? 苍蝇会生小苍蝇么? 白菜的根还能长出白菜吗 植物学名是否是拉丁名? 养鸡场有母鸡3600只,比公鸡多八分之一,公鸡有多少只?( 列方程求解)五年级《自主学数学》50页(6)题 老奶奶家有16个鸡蛋 还有一只一天下一个蛋的鸡 她一天吃两个 问能连续吃几天 请问这种植物叫什么名字,学名,还有拉丁名什么的,具体点.谢谢! 养鸡场有母鸡3600只,比公鸡多1/8,公鸡有多少只?请帮我列方程, 春天为什么会下雨? 肯德基原料用的是六只翅膀和六条腿的变异鸡,真的吗 6根胡萝卜换2个大萝卜,9个大萝卜换3棵大白菜,6棵大白菜换多少根胡萝卜? 春天为什么一直下雨? 小兔种的白菜是萝卜的5倍,白菜重量比萝卜的重量多208千克.白菜和萝卜各多少千克? 2个大萝卜换6根胡萝卜,9个大萝卜换3棵大白菜,5棵大白菜可以换多少根胡萝卜 春天为什么老是下雨呢 菜站为部队配送蔬菜,菜箱中的白菜比萝卜多60千克,白菜旳千克数是萝卜的3倍.菜箱的白菜和萝卜各重多少千克.请使用五年级水平 冬天为什么没有打雷现象包括闪电? 为什么春天总下雨 菜站为部队配送蔬菜,菜箱中的白菜比萝卜多60千克,白菜的千克数 为什么夏天下雨打雷`闪电,而冬天没有? 为什么春天就要下雨呢?为什么人伤心就会难受呢? 植物的学名跟拉丁学名一样吗? 提问问题9根胡萝卜换3个大萝卜,12个大萝卜换6个大白菜.9个大白菜换多少根胡萝卜 下雨和下雪 喜欢哪一个天气? 英语翻译M.denudata Desr M.sprengeri Pamp.Castanea henryi ( Skam ) Rehd.Et Wils.Cornus paucinervis HanceL indera ery throcarpaMakinoCarpinus turczan inow ii Hance.M 9根胡萝卜可以换3根大萝卜,6根大萝卜可以换3棵白菜,8棵白菜一换多少跟胡萝卜? 王奶奶家有12个鸡蛋,还养了两只老母鸡,每只老母鸡1天下1个蛋,王奶奶家一天要吃三个蛋.问:王奶奶家能连续吃几天?不要方程哦! 养鸡场今年养鸡4900只比去年多养5分之2去年养鸡多少只 为什么夏天下雨会打雷闪电?天上的云为什么会有电能 为什么会有下雨 下雪的天气呢! 一个养鸡场今年养鸡比去年养鸡多百分之20,今年是去年养鸡的百分之几?急 下雨为什么会打雷?为什么下雨前会有闪电? 王奶奶家现存有40个鸡蛋,还养了一只每天都要下一个蛋的老母鸡,如果王奶奶每天吃3个鸡蛋,那么她可以这样连续吃多少天? 某养鸡场去年养鸡2.8万只,今年比去年少五分之一,今年养鸡多少只? 养鸡场养母鸡和公鸡一共是1920只,公鸡只数是母鸡只数的60%,公鸡和母鸡各有多少只?养鸡场养母鸡比公鸡多1200只,公鸡只数是母鸡只数的60%,公鸡和母鸡各有多少只?小军读一本故事书,第一天共 有随着天气变化的壁纸没有就是天气下雨它下雨天气下雪它下雪 比较优美的比喻句.【不要太长】 某养鸡场今年养鸡28万只,比去年多五分之二,去年养鸡多少只? 养鸡场养母鸡比公鸡多1200只,公鸡只数是母鸡只数的60%,公鸡和母鸡各有多少只 优美的比喻句 1、红花养鸡场共养鸡6000只,其中的5分之3是鸡蛋.蛋鸡有多少只?还有第二道 现在就要啊!1、红花养鸡场共养鸡6000只,其中的5分之3是鸡蛋.蛋鸡有多少只?2、一辆汽车每小时行100k,从甲站到乙站行 养鸡场养的公鸡比母鸡少20只,养公鸡的只数是母鸡只数的80%,养母鸡多少只?用方程解. 形容愉快心情的比喻句,要优美,有深度,最好长一点. 一块地,划出他的6分之1种白菜,3分之1种萝卜,其他的种西红柿,种西红柿的地战这快地的几分之几?快回答急 冬天打雷闪电正常不?为什么?RT 谁优美的比喻句? 某养鸡场第一天卖出鸡的总只数的40%,第二天卖出剩下只数的2/3,还剩1200只鸡.养鸡场共养鸡多少只?要说明为什么 怎么冬天下雨不会打雷闪电啊? 优美比喻句要是一句比喻句,优美一些 王阿姨的菜园里种满了三种蔬菜,分别是白菜、萝卜和大蒜,其中白菜和大蒜的面积占总面积的十六分之十一,萝卜和大蒜的面积占种面积的四分之三,大蒜的种植面积占总面积的几分之几 现在下雨还tm打雷,不科学啊,不是打雷是春天,和夏天才打雷吗?怎么都快冬天了还打雷
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn