作者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