繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP.NET > VB 从零开始编外挂(四)
- ASP.NET
- asp+文件上传增强实例
- ASP.NET学习手记:验证用户表单输入
- 关于Microsoft.NET Beta1与Visual Studio.NET Alpha不兼容
- asp+ 操作Cookie 方法大全
- asp+ 现在已经被官方正式更名为 asp.net
- 在ASP+ 中我们如何使用 Class 而不是组件
- asp+ 如何跨站抓取 页面
- 在 ASp+ 中的一些可能会用到的 小函数
- 列出asp+中所有request 的属性和数值
- 妙用asp+的global.asax
- 一个asp+ 版本的 Active Server Explorer
- asp+中的session 的使用和原理() 不需要cookie也可以使用session
- asp.net 的菜单制作(asp.net 的菜单application)
- 如何在asp+ 中使用自定义的pagelet
- 如何使用asp+ 动态创建页面元素
- 用DataGrid分页
- 给上次的DataGrid分页增加些功能!
- asp+ 利用数据绑定来处理XML文件
- 两种没有使用绑定的 数据显示
- asp+中的hash表操作
ASP.NET 中的 VB 从零开始编外挂(四)
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 97 ::
收藏到网摘: n/a
添加快捷键
--------------------------------------------------------------------------------------------------------------------------------------------------------
需要VB API函数：
GetAsyncKeyState ←判断函数调用时指定虚拟键的状态
--------------------------------------------------------------------------------------------------------------------------------------------------------
相关API声明：
GetAsyncKeyState
↓
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
Private Function MyHotKey(vKeyCode) As Boolean
--------------------------------------------------------------------------------------------------------------------------------------------------------
需要的控件：Timer（interval不为空）
--------------------------------------------------------------------------------------------------------------------------------------------------------
代码：
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
Private Function MyHotKey(vKeyCode) As Boolean
MyHotKey = (GetAsyncKeyState(vKeyCode) < 0)
End Function
'然后在循环中或Timer的Timer事件中检测:
Private Sub Timer1_Timer()
If MyHotKey(vbKeyA) And vbKeyControl Then 'ctrl+A
End '关闭
End If
'其中vbkeyA是键盘″A″的常数，其他键可按F1查得。
End Sub
--------------------------------------------------------------------------------------------------------------------------------------------------------
其它方法：
比如按下"ctrl+A"就退出!
'可以设置Form的KeyPreview属性为True，然后在Form_KeyDown事件中添加代码：
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = Asc("A") And Shift = vbCtrlMask Then unload me '如果ctrl+A键被按下就退出
End Sub
--------------------------------------------------------------------------------------------------------------------------------------------------------
点击给我留言--------------------------------------------------------------------------------------------------------------------------------------------------------
评论 (0) All
