作者secobarbital (M.E)
看板Visual_Basic
標題Re: [VB6 ] 關於用Keydown讓圖片移動
時間Tue Jan 17 00:52:20 2006
程式碼如下:
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)
1F：推 dunn:FORM的屬性裡面有個KEYPREVIEW設定成TRUE 試看看吧^^ 01/17 02:02
2F：推 secobarbital:剛剛試了還是不行..不過還是謝謝回答^^ 01/17 02:44
3F：推 fumizuki:不要把command1.enabled設成false 01/18 09:36
4F：推 secobarbital:可是這樣就不能按方向鍵讓image移動了..T_T 01/18 10:48