VB_识别多按键同时按下

fieldmax

1. 
   
2. [i]'[/i][i]*****************************************************************
   
3. '本函数用于识别多按键同时按下，最多支持同时按下128个按键
   
4. '编写时间：2005年6月10日，编写人：田野（Field MAX）
   
5. '
   
6. '函数用法：KeyClick([KeyDown][KeyUp])
   
7. 'KeyDown 按下的KeyPass（可选）
   
8. 'KeyUp   抬起的KeyPass（可选）
   
9. '
   
10. '使用方法：分别在KeyDown和KeyUp事件内使用本函数即可获得案件码。
    
11. '          获取案件码时可不输入附加值。
    
12. '
    
13. '*****************************************************************
    
14. Public AllKeyPass(127) As Integer
    
15. Public Function KeyClick(Optional ByVal KeyDown As Integer = 0, Optional ByVal KeyUp As Integer = 0) As String
    
16. Dim i As Long
    
17. Dim NewKeyPass As String
    
18.     For i = 0 To 127
    
19.         If KeyDown <> 0 And AllKeyPass(i) = KeyDown Then Exit Function
    
20.     Next
    
21.     For i = 0 To 127
    
22.         If AllKeyPass(i) = 0 Then
    
23.             AllKeyPass(i) = KeyDown
    
24.             Exit For
    
25.         End If
    
26.     Next
    
27.     For i = 0 To 127
    
28.         If AllKeyPass(i) = KeyUp Then AllKeyPass(i) = 0
    
29.         If AllKeyPass(i) <> 0 Then
    
30.             NewKeyPass = NewKeyPass & AllKeyPass(i) & ","
    
31.         End If
    
32.     Next
    
33.     If Len(NewKeyPass) = 0 Then
    
34.         KeyClick = "0"
    
35.     Else
    
36.         KeyClick = Left(NewKeyPass, Len(NewKeyPass) - 1)
    
37.     End If
    
38. End Function
    
39. ----------------------------------------------------------------------
    
40. '演示
    
41. Private Sub Command1_Click()
    
42. Debug.Print KeyClick
    
43. End Sub
    
44. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    
45.     Debug.Print KeyClick(KeyCode)
    
46. End Sub
    
47. Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    
48.     Debug.Print KeyClick(, KeyCode)
    
49. End Sub
    
50. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    
51.     Debug.Print KeyClick(Button)
    
52. End Sub
    
53. Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    
54.     Debug.Print KeyClick(, Button)
    
55. End Sub[/i]
    

复制代码

SKY定格

很好很强大  我试试   

SKY定格

不懂不明白  求解   窗体上建立一个label  怎么控制他的上下左右

fieldmax

把MouseDown事件的X、Y转化为公共变量，在MouseMove事件通过前面的X、Y进行差值运算就可以移动了

SKY定格

田野老师  那个多键按下你这个代码 我实在搞不好    我照你以前说的写的代码识别多键按下的  其他的基本上都好的 就是还有点小小问题   
我在窗体上建了个label  名字叫c1
按下多键时如果首先松开最后按下的那个键c1停止移动  如果先松开前面按的键则正常
如首先按上  再按右     如果先松开右  则停止移动（理想中应该继续向上移动）  如果先松开上则继续向右移动正常。
vb万分迷惑  求解