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

看板Visual_Basic作者secobarbital (M.E)時間19年前 (2006/01/17 00:46)推噓4(4推 0噓 0→)

留言4則, 3人參與討論串1/1

程式碼如下: 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)