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

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



影响互联网行业的十大API(信息图) Hadoop+GPU强强联手的性能探索 Eurora获最节能超算殊荣,中国天河2号位列第31 程序员的野心:让GPU像CPU一样运行 Gungho热潮正在逐渐消退? Thalmic创始人专访:穿戴式体感设备MYO背后的开发故事 移动周报:GSMA各种神器,Qt 5.1,Android 4.3,本周惊喜多多! 奇虎360Web平台部基础架构团队访谈:开源线上数据库中间件Atlas 化繁为简:UC优视发布“UC+”开放平台战略 从40亿美元到10亿美元 Hulu的美梦是否又一次成为泡影? 百度开发者俱乐部第六期:BAE3.0开放内测 云编程马拉松启动 微软宣布将于今年9月30日正式关闭MSN TV服务 程序员不应该再犯的五大编程错误 中国开源事业,路在何方? StackOverflow上的编程趋势 Oracle悄然将Berkeley DB许可证更改为AGPL 简单易用,保护隐私:麻省理工的邮件数据挖掘分析工具Immersion Microsoft Ventures进入中国,为云生态系统构建提供加速度! 这是场战争:盘点那些参与智能手表竞争的厂商 三星豪掷80万美元奖金 第二届全球开发者挑战赛开幕 MongoDB Map Reduce速度提升20倍的优化宝典 腾讯云总经理陈磊:可信任云服务背后的技术支撑力 “叫好不叫座”的石墨烯也许会给我们带来更清凉、更长寿的计算机 微软WPC 2013:Windows 8.1将于8月底提供给OEM合作伙伴 TIOBE 2013年7月编程语言排行榜:PHP强势回归 扁平化设计或成下一个流行趋势吗? 永生、登天、出唱片、开托儿所,IT大佬业余还玩什么? 终于盼来了:苹果iOS7 Beta 3、Xcode5预览版 可堆叠的创意 开源硬件Microduino开发团队专访 致任天堂的公开信:我想在iPhone上玩超级玛丽 为什么OpenStack被视为新的Linux? 更新后台數據,用試圖就可以,用代碼就不行? ★★★CFormView的大小,高手没必要进,低手就可以解决了! 不超过十行,但.....(C) 打到雍亲王 "准女朋友的胸太平了,我该如何取舍? " 准备结贴了,要顶的赶快顶呀,去晚了就没机会了 为什么我从数据采集仪采集到的数据是乱码? 请教:动态的下拉菜单怎样做?在线等待,答对就给分! 有谁知道用vb如何把bmp的文件转换为jpg格式?? sql server2000是不是不能在winxp 专业版下安装?? 请问大家 wait函数的使用问题(给100) 关于wait函数的使用问题(给100) 如何在xp下能够删除带子目录的文件夹? [求助]关于考试座位号随机分配问题! 无奈的我等你的帮助! 在delphi中如何建立一个doc文件? 有谁可以帮帮忙(在线等待) 请问大家如何防止DEDE的,我发现许多软件没有进行压缩也无法进行DEDE反编译,通常只能进行到一半 现代制造业企业管理系统的开发 (C++ builder) 线程设计,帮帮忙!!! 关于flash中的actionscript 如何做自动评分的考试系统?给点建议或意见! 告急!!!主从表的问题,怎样修改从表时,让主表的数据跟着变化? 刚刚在新闻组看到的东西, 让大家乐乐(转贴) 关于ASP.NET的讨论,欢迎大家指正. 再发:请教在Rave 报表中如何在每一页上都显示打印表头 关于视图的问题!!!很急,各位大哥帮帮忙!! CrystalReports(水晶报表)的版权问题 请看此贴!帮忙阿! 菜鸟问题,请问怎么让 点主from上的一个按钮就弹出另一个编好的窗体 请问能不能将网页页面内容保存为word文档输出?? 碰上大麻烦了,哥们们救救我吧!~ 请看此帖,帮忙啊! 中文打包问题 谁可以给我一个java的例子读excel的*.cvs文件,thanks 请看此帖,帮忙啊! 想请叫一个关于网站视频的问题 关于jre的2个问题 oracle错误 Memo字段(Access)的字符串搜索问题? 在线等待啊,高分!!对选题的判分。 请看此帖,帮忙啊! 我是新手 不知学习前端软件开发哪种好(vb.net / pb /?????????) 高手救急!win2000/xp安装棘手问题!在线等 我的小猫怎摸找不到了呢? 菜鸟一问:一个关于生成类似VC中WorkSpace的一个问题,救命用啊~~~请大家帮忙!! 如何在点击其他区域(非弹出菜单区域)时去掉弹出菜单? 请问可以将网页页面保存为word文档输出吗? 怎么做能得到一个文件的图标 Memo字段(Access)的字符串搜索问题? 电脑老是重开机? Thread应用时的问题 思维北征,宜先入南中思的意思 会议主席台领导坐位怎么排?按领导的左手向为大还是右手为大,总经理、党委书记、副总、工会主席位置怎么排? 等差数列 某体育馆的主席台有12排座位,第一排有24个座位,后面一排总比前面一排多3个座位,主席台有几座 臣受命之日 寝不安席 食不甘味 作文 今天我当家 并日而食 造句 “故五月渡泸,深入不毛”涉及到什么事件? 瞬间的感动作文600字初2水平今天就要自己写写得好给加分不得抄袭 自由落体运动中,平均速度v=1/2v,v=gt,这个公式是怎样得来的, 五月渡泸,深入不毛与什么战役有关 六年级清明作文,不是和同学一起去烈士陵园 , 关于 藤野先生 一课中的问题1.文章所记叙的内容变换了几个地点?2.课文是以什么为中心记叙的?主要写了作者与藤野先生相处的哪几件事?3.课文除了写藤野先生外,还写了什么内容?这些材料是 用‘小时’作‘单位时间’行吗? 汽车的车辆识别代号一个圈中间有一横的是什么符号啊?不是零啊. 《这句话让我受到启发》的作文 电功率的时间单位是秒吗?100W的时间单位是小时吗? 一个圈中间一个像A但没有下面一横的标志是什么车 黄粱一梦中的黄粱指的是? 机械表是用什么方式对应时间单位:小时,和分钟的?如果说:时针从一个数字走到下一个数字经过的这个格子对应的是时间单位(一小时),那么分针同时间走的一圈是什么意思?如果再说:分 二班听我说作文小学300字 黄粱一梦的黄粱是指什么 西班牙语cuidarte el 以辛亥革命为开端的中华民族100年来伟大复兴的历史进程 黄粱一梦中黄粱指的是什么 要求初二水平 ,正方形ABCD中,边长为4,BE=1,P是线段AC上的以动点,当P在AC上运动是,PB+PE的最小值是多少? adopted hometown 怎么翻译 第二故乡吗? 黄粱一梦中黄粱指什么 c 如何实现画抛物线 “但愿人长久,千里共婵娟.”意思相近的诗句 什么是可控边际贡献 不讲诚信的人有什么危害? 动植物体内细胞的差异与细胞分化程度有关.这句话对吗? 读完短文,你受到什么启发?《每天都做一点点》天色灰暗,几名游客驱车行驶在山中一条铺满松针的小路上.越往前去,山中的景色愈加荒凉.突然,在转过一个弯后,人们一下子震惊得喘不过气来. 求初2说明作文 from till,from to两个短语区别 the University of Texas at Arlington中文意思 写事作文最好的方法是甚么?(初2作文)写实作文的最好方法是甚么?(初2作文) 英语问题from...to...的to可以省略么Arthur was pushed from the platform in front of the train.这里的to可以省略么? 什么是边际贡献某件产品的边际贡献的多少,就能说明该产品的利润情况吗 寻求初2英语短文解释In ten years,I think l’ll live in Shanghai,because l went to Shaihai last year and fell in love with it.I think it’s really a beautiful city.As a reporter,I think l will meet lost of interesting people.I think l’ll l 第二篇短文填空,帮做下, 武则天为什么给自己立无字碑? 因为男方连续多个月赌博,被女方发现赌博单据,并且事后还不承认错误,两人已经分居半年多,男方一直也没有诚意,以托时间为主,就是不同意离婚,还动手打人,辱骂女方,曾经说过:‘我就是不 治水必躬亲中第二段的写作手法,说明了什么 2作文该怎么写 有一个与地面成30°角的斜坡,现要在斜坡上竖一电线杆,当电线杆与斜坡成( )度角时,电线杆与地面垂直.我同学都算得等于60°,我的疑惑是:为什么不能写120°?求大师解决 求一把很长的刀的符号长一点的啊 好看的 霸气的都太短 作文:第二次______怎么写? 出师表“五月渡泸,深入不毛”是三国演义中的什么故事 怎样搞一把刀的符号 顶层角柱和边柱伸入梁内的柱外侧纵筋不少于柱外侧全部面积的65% 是怎么理解的 五月渡泸,深入不毛,. 英语翻译The economic consequences of relaxing fair value accounting and impairment rules on banks during the financial crisis of 2008-2009 无字碑是哪个皇帝的杰作 湿婆神发怒是什么意思 某会议厅主席台上方(2010•定西)某会议厅主席台上方有一个长12.8m的长条形(矩形)会议横标框,铺红色衬底.开会前将会议名称用白色厚纸或不干胶纸刻出来贴于其上.但会议名称不 武泽天当了多少年皇帝?为何留下无字碑? 五月渡泸,深入不毛 指的是三国演义中的哪个故事 会议室主席台后面墙上怎样布置 武则天为什么给自己立一个无字碑呢,你是皇帝你会么 加拿大女星完美天使面容(组图)中国海警4船编队28日在中国钓鱼岛领校园摄影:日本少女萌动的青春韩国欲购美112枚爱国者导弹日本著名作家新书《混浴和日本史》揭秘澳大利亚华人金合欢艺术团悉尼举办中国希特勒未死一直活到1962年?历史学美国一学生为完成作业扮流浪汉进学校后以总理:伊朗有能力在数周内提炼武器级评论:欧债危机促欧盟内部各成员国重新塞尔维亚为铁托遗孀举行国葬 2万多人谷歌无人驾驶汽车安全性可超人类驾驶(印度发生连环爆炸 致5人死亡25人受世界最高人找到真爱将结婚 两人相差7阿根廷举行中期议会选举 执政联盟面临韩“独岛”宣传片擅自使用日剧画面 视阿根廷国会选举受瞩目 现总统或丧失部美国旧金山湾区万圣节前多起驾车枪击 潘基文强烈谴责刚果(金)反政府武装袭澳富豪小派克投资电影事业 目标瞄准中美国药监局将限制使用多种致瘾性处方止“一键报警装置”争取全覆盖娱乐知识提前高考香槟的声音缤纷儿童房 搭配有个性荔城增江将用管道天然气富力东山新天地厌倦城市生活 女汉子“丛林求生”旅 程莞工伤保险待遇有调整路边停车费一分钟搞掂“网上巡考” 谁还敢作弊入考场标配:橡皮裤带+凉鞋广发行零售占营收过半目标或提前达成怎样用好“藏宝地图”朴槿惠专机遭战机拦截“喂喂”垃圾箱 比比谁的碳币多新能源补贴或将统一 车企叫好地产租售虎中周边路段实行交通管制五色蔬菜盏“用我的爱陪你到永远”
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘