web学习吧　2006-12-16　来源:　收藏本文

用API （GetAsyncKeyState）实现，在WIN 2K，XP 下有效：

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Const VK_LSHIFT = &HA0
Private Const VK_RSHIFT = &HA1
Private Const VK_LCTRL = &HA2
Private Const VK_RCTRL = &HA3
Private Const VK_LMENU = &HA4
Private Const VK_RMENU = &HA5

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyShift And Shift = vbShiftMask And (GetAsyncKeyState(VK_LSHIFT) And &H8000) Then MsgBox "you click the Left Shift"
If KeyCode = vbKeyShift And Shift = vbShiftMask And (GetAsyncKeyState(VK_RSHIFT) And &H8000) Then MsgBox "you click the RIGHT Shift"

If KeyCode = vbKeyMenu And Shift = vbAltMask And (GetAsyncKeyState(VK_LMENU) And &H8000) Then MsgBox "you click the Left ALT" ' only ALT was pressed
If KeyCode = vbKeyMenu And Shift = vbAltMask And (GetAsyncKeyState(VK_RMENU) And &H8000) Then MsgBox "you click the RIGHT ALT" ' only ALT was pressed

If KeyCode = vbKeyControl And Shift = vbCtrlMask And (GetAsyncKeyState(VK_LCTRL) And &H8000) Then MsgBox "you click the Left CTRL"
If KeyCode = vbKeyControl And Shift = vbCtrlMask And (GetAsyncKeyState(VK_RCTRL) And &H8000) Then MsgBox "you click the Right CTRL"

End Sub

Private Sub Form_Load()
Me.KeyPreview = True
End Sub

• ·公共配置底层代码
• ·显示进程、关闭进程
• ·公共配置对话框
• ·将OLE StdFont字体结构转换到API的LOGFONT
• ·获取配置文件中configSections的配置信息！
• ·在标题栏支持32位图标文件
• ·基于面向对象技术的异构系统整合
• ·删除自己
• ·在场景中输出横向或纵向压缩的中文字符
• ·图片的平滑切换处理技术
• ·利用LineDDA函数做简单动画
• ·为您的图片添加电灯光照效果
• ·Sender代表什么
• ·为您的应用程序建立投影式立体窗口(阴影)
• ·将字符串分段，取得每段内容
• ·[English]直接内存读取处理图象(DMA