vb万分迷惑 求解

SKY定格

1. 
   

复制代码

1. Dim mkey() As Integer
   
2. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   
3.     If UBound(mkey) = 0 Then GoTo l
   
4.         If mkey(UBound(mkey) - 1) <> KeyCode Then
   
5. l:
   
6.             mkey(UBound(mkey)) = KeyCode
   
7.             ReDim Preserve mkey(UBound(mkey) + 1) As Integer
   
8.             mkey(UBound(mkey)) = 0
   
9.         End If
   
10. For i = 0 To UBound(mkey)
    
11. If mkey(i) = 37 Then c1.Left = c1.Left - 20
    
12. If mkey(i) = 40 Then c1.Top = c1.Top + 20
    
13. If mkey(i) = 39 Then c1.Left = c1.Left + 20
    
14. If mkey(i) = 38 Then c1.Top = c1.Top - 20
    
15. Next i
    
16. Dim aaa As String
    
17.     For i = 0 To UBound(mkey)
    
18.      aaa = aaa & mkey(i) & " | "
    
19.     Next
    
20.     Debug.Print aaa
    
21. End Sub
    
22. Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    
23. For i = 0 To UBound(mkey) - 1
    
24.     If mkey(i) = KeyCode Then
    
25.         If UBound(mkey) = 1 Or UBound(mkey) = 0 Then
    
26.             ReDim mkey(0) As Integer
    
27.             mkey(0) = 0
    
28.         Else
    
29.             For a = i To UBound(mkey) - 1
    
30.                 mkey(a) = mkey(a + 1)
    
31.             Next a
    
32.         ReDim Preserve mkey(UBound(mkey) - 1) As Integer
    
33.         End If
    
34.     End If
    
35. Next i
    
36. End Sub
    
37. Private Sub Form_Load()
    
38. ReDim mkey(0) As Integer
    
39. End Sub
    

复制代码

窗体有一label  名为c1
运行 后  按上下左右  实现多键控制  
错误：
按下多键时如果首先松开最后按下的那个键c1停止移动  如果先松开前面按的键则正常
如首先按上  再按右     如果先松开右  则停止移动（理想中应该继续向上移动）  如果先松开上则继续向右移动正常。
求解

SKY定格

求解答  找高手

SKY定格

Dim mkey() As Integer
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If UBound ...[/quote]
人才啊  我一直在看我的程序那里错了  改了又改还是不对    原来是这个原因。。  我再想想怎么解决
谢啦    你哪位？

SKY定格

Dim mkey() As Integer
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If UBound ...[/quote]
我加了个timer  可以实现我的要求了   不过感觉不太好    再求更简单有效的方法

1. Dim mkey() As Integer
   
2. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   
3.     If UBound(mkey) = 0 Then GoTo l
   
4.         If mkey(UBound(mkey) - 1) <> KeyCode Then
   
5. l:
   
6.             mkey(UBound(mkey)) = KeyCode
   
7.             ReDim Preserve mkey(UBound(mkey) + 1) As Integer
   
8.             mkey(UBound(mkey)) = 0
   
9.         End If
   
10.         
    
11.     '我一开始移动的代码放在这里的  但是有点问题  上面说过了  所以我的方法是
    
12.     '放在timer里面  求更好的方法
    
13.         
    
14.         'For i = 0 To UBound(mkey)
    
15.             'If mkey(i) = 37 Then c1.Left = c1.Left - 20
    
16.             'If mkey(i) = 40 Then c1.Top = c1.Top + 20
    
17.             'If mkey(i) = 39 Then c1.Left = c1.Left + 20
    
18.             'If mkey(i) = 38 Then c1.Top = c1.Top - 20
    
19.         'Next i
    
20. Dim aaa As String
    
21.     For i = 0 To UBound(mkey)
    
22.      aaa = aaa & mkey(i) & " | "
    
23.     Next
    
24.     Debug.Print aaa
    
25.     Form1.Cls
    
26.     Print aaa
    
27.    
    
28. End Sub
    
29. Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    
30. For i = 0 To UBound(mkey) - 1
    
31.     If mkey(i) = KeyCode Then
    
32.         If UBound(mkey) = 1 Or UBound(mkey) = 0 Then
    
33.             ReDim mkey(0) As Integer
    
34.             mkey(0) = 0
    
35.         Else
    
36.             For a = i To UBound(mkey) - 1
    
37.                
    
38.                 mkey(a) = mkey(a + 1)
    
39.                
    
40.             Next a
    
41.         ReDim Preserve mkey(UBound(mkey) - 1) As Integer
    
42.         
    
43.        Dim bbb As String
    
44.     For n = 0 To UBound(mkey)
    
45.      bbb = bbb & mkey(n) & " | "
    
46.     Next
    
47.     Print bbb
    
48.    
    
49.         End If
    
50.     End If
    
51. Next i
    
52. End Sub
    
53. Private Sub Form_Load()
    
54. ReDim mkey(0) As Integer
    
55. Timer1.Enabled = True
    
56. Timer1.Interval = 33
    
57. End Sub
    
58. Private Sub Timer1_Timer()
    
59. For i = 0 To UBound(mkey)
    
60. If mkey(i) = 37 Then c1.Left = c1.Left - 20
    
61. If mkey(i) = 40 Then c1.Top = c1.Top + 20
    
62. If mkey(i) = 39 Then c1.Left = c1.Left + 20
    
63. If mkey(i) = 38 Then c1.Top = c1.Top - 20
    
64. Next i
    
65. End Sub
    

复制代码

SKY定格

一种新方法  也可以实现这个功能而且代码更简单   给大家提个思路
窗体上一个时钟控件  一个label  名字lb

1. Option Explicit
   
2. Dim Keys(255) As Byte '255应该够用了
   
3. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   
4.     Keys(KeyCode) = 1
   
5. End Sub
   
6. Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
   
7.     Keys(KeyCode) = 0
   
8. End Sub
   
9. Private Sub Form_Load()
   
10.     Timer1.Interval = 10
    
11.     Timer1.Enabled = True
    
12. End Sub
    
13. Private Sub Timer1_Timer()
    
14.     If Keys(vbKeyLeft) Then
    
15.         Lb.Left = Lb.Left - 100
    
16.         If Lb.Left < 0 Then Lb.Left = Me.ScaleWidth
    
17.     End If
    
18.     If Keys(vbKeyRight) Then
    
19.         Lb.Left = Lb.Left + 100
    
20.         If Lb.Left > Me.ScaleWidth Then Lb.Left = 0
    
21.     End If
    
22.     If Keys(vbKeyUp) Then
    
23.         Lb.Top = Lb.Top - 100
    
24.         If Lb.Top < 0 Then Lb.Top = Me.ScaleHeight
    
25.     End If
    
26.     If Keys(vbKeyDown) Then
    
27.         Lb.Top = Lb.Top + 100
    
28.         If Lb.Top > Me.ScaleHeight Then Lb.Top = 0
    
29.     End If
    
30. End Sub

复制代码