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

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



Delphi中的图形显示技巧 DELPHI中画布应用技巧 Delphi中控件深度投影及阴影效果的实现 DELPHI中利用对象的常用属性制作动画 Form生成时的事件次序-Delphi资料 LED数码管仿真显示程序-Delphi资料 TPaintBox与TImage的比较-Delphi资料 WINDOWS基于调色板的图像消隐-Delphi资料 改变图片效果-Delphi资料 改造HINT的输出方式-Delphi资料 基于Delphi的图像漫游 将BMP放入Paradox的BLOB的字段中-Delphi资料 界面色彩渐变效果的实现-Delphi资料 如何查阅可视窗口标题-Delphi资料 如何得到Timage控件的DC-Delphi资料 如何关闭一个MDI子窗口-Delphi资料 如何检测鼠标击了哪一个对象-Delphi资料 如何将鼠标锁定在固定范围内-Delphi资料 如何使你的窗口Stay on Top-Delphi资料 如何在ListView控件中绘底图-Delphi资料 如何在屏幕上移动Image图象-Delphi资料 软件中复活节彩蛋的实现-Delphi资料 实现图象局部放大的原理和方法-Delphi资料 使用Delphi实现滚动式面板窗口 通用的MsgBox-Delphi资料 图象放大镜——实现图象局部放大的原理和方法-Delphi资料 图形的特殊显示效果-Delphi资料 图形整体拉出效果-Delphi资料 一个实用的Delphi屏幕拷贝程序的设计 用Delphi 显示122种图形特效 用Delphi编写DLL实现动态改变分辨率 Applet嵌入HTML中的问题!急!急!急! 小小问题,散分100!!!!!!!!!!!!你心动了吗? 如何在程序运行时让用户选择按照哪一列进行分组? 文件合并问题? 帮帮忙 请教如何删除控件 圈点“英雄”,针砭实弊 谁能帮我解决IMail不能外发邮件的毛病? vb请教 如何设置remote_login_passwordfile为exclusive TScrollBox在隐藏滚动条情况下,如何用按钮控制其上下滚动?(在线) 高分请教:用VC怎样编写群发mail的程序? jsp 连 oracle 问题? 请教:ASA7.0安装后启动Sybase Central 4.0时出错".....内存错,该内存不能为read" 请教一个关于Javascript的变量能否在Asp中使用? 高分求解(有类似源代码都行)-处理桌面一个台球运动轨迹问题,方向,球速碰到桌边后速度减慢!进去就结束。 如何在SOAP中发布EJB? 请教各位高手:怎样在状态栏中加进度条? 散分! 关于progress control的小问题 如何传递文件名 求深入浅出MFC2附书源码。 大家帮个忙!! 明天过生日,散分! 使用内存查看 [分享]你的精神年龄是多少?进来测试一下! 以后的路给点意见 刚做的游戏,大家来看看 请问如何在一个窗体中引用另外一个窗体的对象? 挨T的都进来灌水聊天吧 当sql server某张表有变化时,VC+ADO写的程序能否去读数据库更新Listctrl?好像是触发器,如何实现? 刚做的游戏,请多多指点 win2000中,播放avi文件的问题 一些小问题! 为控件的ToolTipText属性赋值的时候怎么样能够换行? 怎样打开程序,看到源代码? TScrollBox在隐藏滚动条情况下,如何用按钮控制其上下滚动?(在线) 为什么就生生的得多出了一个空行??? 为什么就生生的得多出了一个空行??? 明年四月份考三级网络技术,大家联系一下:42083158 JSP与Accesss数据库中的一个问题?请各位帮忙解决! 哪儿有嵌入式开发的入门网站? 哪儿有嵌入式开发的入门网站? 请大家介绍一下比较好的暴力破解软件 动态数组的访问(天寒地冻期待中........)? 有关dos种文件改名的问题!!! ADotable 中怎么清空所有记录啊, 一个简单的问题!60分求答! 有谁知道Win32 EXE文件格式? INSTALLSHIELD EXPRESS FOR DELPHI5 做的安装程序安装完毕后,为甚么在”添加删除程序”里看不到程序? 怎样让左键弹出菜单跟随鼠标? 苏醒单方面宣布解约 粉丝与李炜粉丝掀专业歌手扎堆?那英:姚贝娜们也需要大东北“辣妈”常颖完美表现折服自己 现餐馆歌者张新嗓音雌雄难辨惊呆导师 汪第三期学员看点 单冲峰战胜脑瘤唱响第《中国好声音》两大天后家族 实力唱将谢娜怀孕照小腹微隆 原来是去美国生子学霸的爱情:“最开心的是和你一起站在新生婴儿出生时的25种表情 萌呆了好声音第三集剧透 学员抢先看广电总局调控歌唱选秀节目 好声音播出《好声音》赢了《快乐男声》 是胜在“杨千嬅爆残黑眼圈挂脸皮肤松弛似60岁宋茜现场秀厨艺 卖萌撒娇萌死人中国好声音学员挑战“禁忌” 导师们依好声音收视破4再压快男 何炅频吐槽暗熊黛林性感红唇妆高调亮相 老娘没有你吉克隽逸赴美会盟巨星 与Snoop 《一又二分之一夏天》发布 男神尼坤卖郭美美低胸露沟晒吐舌卖萌自拍照 自称小S舔嘉宾脚趾头有点恶心 女王成长辛5辆爱心大巴平安返乡汽车代言和爱情的关系白云机场全面启用电子警察专家论彩最好的盆菜 回家和最亲的人吃最好的营销是“不说话”高速平稳如轿车广东彩民狂揽“年终奖”文章2开奖公告降低广深高速收费,“契约”不是反对理编者按老公去哪儿?福彩提醒170名企业家签约 168亿元投资云年货网上购 本来有着数未来不想再有女友 奥朗德欲做“单身汉判断人民路高架拆留不应局限于交通价值全市范围单双号限行 外地车也受限审理小额诉讼不安排庭审笔录索契冬奥会 习近平不见安倍晋三
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘