Re: [VB6 ] 關於用Keydown讓圖片移動

[secobarbital (M.E)]

程式碼如下:

 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 a=1000
 Select Case (KeyCode)
 Case vbKeyLeft
     Image1.Left = Image1.Left + a
 Case vbKeyRight
     Image1.Left = Image1.Left - a
 Case vbKeyUp
     Image1.Top = Image1.Top - a
 Case vbKeyDown
     Image1.Top = Image1.Top + a
 End Select
 End Sub

按下方向鍵讓image1移動a的距離...此部份執行時沒有問題。
可是如果我在表單上面放了一個按鈕(command1)之後，
執行後變成按下方向鍵都沒有反應...很顯然是按鈕的問題..

於是我用一個解決方法是先把command1的Enabled先設為False
在程式碼裡在加上以下內容:

 Private Sub Form_MouseMove(Button As Integer, ....
 If X > Command1.Left And X < Command1.Left + Command1.Width And _
 Y > Command1.Top And Y < Command1.Top + Command1.Height Then
 Command1.Enabled = True
 Else
 Command1.Enabled = False
 End If
 End Sub

當滑鼠移動到command1按鈕時才可以使用按鈕...但同時image1卻不能用方向鍵移動
除非滑鼠移開...


請問有沒有其他方法可以解決我的問題呢?
需要設定哪邊嗎?
不好意思，請前輩們回答..謝謝^^




--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.127.228.49
※ 編輯: secobarbital    來自: 140.127.228.49       (01/17 00:56)
推 dunn:FORM的屬性裡面有個KEYPREVIEW設定成TRUE 試看看吧^^
推 secobarbital:剛剛試了還是不行..不過還是謝謝回答^^
推 fumizuki:不要把command1.enabled設成false
推 secobarbital:可是這樣就不能按方向鍵讓image移動了..T_T