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

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



HTML5规范尘埃落定,5个开发工具推荐 盘点最受开发者喜爱的Android 5.0 Lollipop API IoE Day侧记:想开发智能硬件?先要弄明白这几个问题 【问底】许鹏:使用Spark+Cassandra打造高性能数据分析平台(二) 微软承诺所有Lumia WP8设备将升级至Win10,用户会买账吗? 周末,深圳微信开发者大会等您来!(参会必读+名单) 营造云安全生态链 第五届云安全联盟高峰论坛在京顺利召开 中国大数据六大技术变迁记 【最具价值CTO评选秀】当当网CTO熊长青:结合行业及技术发展,规划技术方向 社交颠覆传统,环信技术交流沙龙纪实(组图) 揭秘经典案例炼成之道 微信开发者大会精华回顾 从一家电子商务网站学到的经验教训 【最具价值CTO评选秀】极路由CTO康晓宁:极客转型CTO的感悟 盘点这些年来的“微信万能论” 《近匠》亲加通讯云:IM即时通讯API的极致服务者 TCL杯HTML5智能电视开发大赛完美落幕,8项获奖应用大揭晓! Xcode 6.2 Beta发布,支持WatchKit的iOS 8.2 SDK来了! 【最具价值CTO评选秀】携程高级技术副总裁叶亚明:从呼叫中心到移动互联网的演进 为什么靠谱的公司都应该参加CTO评选? 【深度剖析】微软开源.NET:战略重心已从PC转移到云端 专访POWER 8编程挑战赛选手黄文超:非科生的编程算法之路 BDTC 2014干货精彩不断,四大全天技术论坛议题全面曝光 全功能API!开源2D游戏引擎Firmament 微信公众平台新增“微信连Wi-Fi”功能,打通线上线下闭环 马化腾:微信在一线城市活跃 QQ增长从城市到农村 承包MIPS开发!Imagination发布双Codescape MIPS SDK 不任性了!Google Play宣布开通国内开发者通道 脑洞大开!用Swift写个Material Design组件库 美国最大婚恋网站eHarmony利用Hadoop、OpenStack重构自己 每个Java开发者都应该知道的5个JDK工具 异构计算应用研讨暨OpenCL编程培训在上海和西安成功举行! 关于Socket编程的几个问题 哪里有莫文蔚的《the way you make me feel》国语版的? 切~~~~~~~~菜~~~~~~~~~ 斑竹,我觉得这几天CSDN上很无聊,怎么老有人弱智地问重复的或者以前已有答案的问题?他们不知道可以search先? 谁知道哪里有bmp图片可以下载,给个详细网址,多谢 VC 兼职? 荷兰国旗问题 ASP刚学,用什么方式好吗 斑竹!!!!!!!!!!!!!!!! 关于IE浏览 请问vb如何访问foxpro 6.0的数据库,最好有源程序,谢谢. he_cti@163.net 算了,散分 我散,我散,我散散散 散3 发分!!!! 发分!!!!! 发分!!!!!!!! 发分!!!!!!!!!!!! 发分!!!!!!!!!!!!!!!!!!! 请问如何去掉测试版软件的“购买”提示框???急急急急!!! 有关获取HTML中Frames的问题? 给分!!!!!啊 给分!!!!!啊!! 给分!!!!!啊!!!!!! 给分!!!!!啊!!!!!!!!!!!!! 给啊!!!!!!!!!!!!! 不是俺蓄意谋两位帮主的反,实在是 ... APPLET连接数据库。。。(我已经每粉了) 千分散尽不复来!!! 千分散尽不复来!!!! 千分散尽不复来!!!!! 千分散尽不复来!! 千分散尽不复来!!!!!!!! 千分散尽不复来!!!!!!!!! 千分散尽不复来!!!!!!!!!!!!! 用分把灌水乐园咽死!!!!! 千分散尽不复来!!!!!!!!!!!!!!!!! 千分散尽不复来!!!!!!!!!!!!!!!!!! 千分散尽不复来!!!!!!!!!!!!!!!!!!! 千分散尽不复来!!!!!!!!!!!!!!!!!!!!! 千分散尽不复来~ 千分散尽不复来~! 请教数据窗口的问题 千分散尽不复来? 千分散尽不复来?! 有LVS_OWNDATA属性的CListCtrl 加图标的问题,25分 在做会员注册时,在添加新数据页,程序一运行就在RS.updata出错,为什么(原程序) 高手请你回答我啦!!!! 我要回家了,第一个给300 哪有msproxy下载????? 请问要怎么样才能在自己写的程序运行时让用户无法使用开始菜单? 甲数的五分之三等于乙数的三分之二 甲数是60乙数是多少 甲数的16%,等于乙数的32%,甲数是80,乙数是( ),如果乙数是80,甲数是( ) 数学有三个未知数的均值不等式的题怎么做.例:a、b、c属于R,证明:a方+b方+c方大于等于ab+bc+ca 我太笨 甲数的五分之一等于乙数的三分之一,甲数是60.乙数是多少 已知甲数的五分之二等于乙数的二十五分之八,甲乙两数的比是多少?如果甲数是80则乙数是多少 cosA等于11\14,A等于多少, 甲数的3分之2等于乙数的5分之4,乙数是60,甲数是( ) 已知甲数的5分之2等于乙数的25分之8,甲数是80,则乙数是几?要全 a-a方等于多少 甲数的20%与4的和等于乙数的3分之2,甲数是80,求乙数? 甲数是24,乙数的3分之1等于甲数的8分之1,乙数是多少 √3+1分之2等于几(要求过程) 甲数比乙数多60%,乙数比甲数少百分之几? 甲数的4分之3等于乙数的5分之3,甲数是80,乙数是()是100还是150或者80 3—3分之3—2分之一等于多少? 32吨比60吨少百分之几?(百分号前保留一位小数);甲比乙多40,乙是80,甲比乙多百分之几?甲数是20,乙数是30,乙数比甲、乙两数的和少百分之几? 今天1元人民币等于多少日元? a 分之2等于b 分之3,那么a :b 等于( ):( 甲数是80的5分之4,乙数的百分之60是12,甲数比乙数多多少 现在4万日元等于多少人民币 10分之1除于10等于多少? 甲桶油是乙桶油的80%,乙桶是甲桶的百分之几?甲桶油比乙桶油少百分之几?乙桶比甲桶多百分之几? 今日日元汇率 1日元等于多少人民币? 1加1等于几有几种答案 甲数是乙数的倒数,乙数扩大10倍后是50,甲数是() 1600的80%怎么算 1.25等于什么分数 甲数是50,比乙数大10,甲数是乙数的( )%,乙数是甲数的( )%;甲数比乙数多()%;乙数比甲数少() 1600乘百分之四十等于? 1+1为什么等于2? 甲数是乙数的倒数,乙数扩大到原来的10倍后是50,甲数是 一人数的8倍加上68等于80的百分之九十这个数是几 5分之一减6分之一等于【用分数解答】 甲数的5分之1等于乙数的6分之1,乙数是10,求甲数 90加百分之60X等于102,解方程 4个5怎么算等于8 甲数的50%等於乙数的5分之4,如果甲数是10,乙数书多少?如果乙数是10,甲数是多少? 用+ 、-、×、÷、( )和分数把六个6组成四个算式,使运算的结果等于25. 4个五怎样算等于8 甲数是50,甲数的10分之1和乙数的2分之1相等,乙数是多少 2,4,6,8中间用+-×÷只能一次算要结果等于25怎么算? 4个8怎么算等于888 甲数的50%等于乙数的5分之4,如果甲数是10,乙数是多少?如果乙数是10,甲数是多少?要列式计算,不要方程 a,5,b,c,d,e,3要求相邻3个数和相等,a,d各等于多少 8000秒等于多少小时 5是10的50%,10是5的()% 甲数是40,乙数是50,甲数是乙数的(). π等于多少{1000位或以上} 649980秒等于多少小时?如何计算?我不知道这个时间应该怎么计算成小时?是按照传统的那种算法吗? 已知甲数的8分之1等于乙数的10分之1甲数是80则乙数是多少 角A加角B加角c加角d加角e 等于? 150000秒等于几个小时怎么计算的? 甲数是乙数的60%乙数比甲数多百分之几 甲乙两个两位数,甲数的9分之8等于乙数的80%,甲数最大是(),乙数最小是() 在数学中e等于多少 已知甲数的4分之1等于乙数的3分之2,如果乙数是60,那么甲数是几 甲数是乙数的80%,乙数是甲数的()%我要式子, 用C++编程用while循环,要求求e的值,e约等于1+1/1!+1/2!+1/3!+.+1/N! 要求直至最后一项的值小于10^- 甲数的三分之二等于乙数的60%,那么甲数与乙数的比是( ):( ) 甲数是乙数的125%,那么乙数是甲数的80%,请能仔细讲解为什么是甲数是5,乙数是4,怎么算的 单纯是不是就等于笨啊?单纯等于笨?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn