Question

VB.net如何使Panel获得焦点以接受键盘事件？

我有写Panel.focus()但是按键时不执行PreviewKeyDown事件，而是由窗体接受，网上说panel其实是并不可以获得焦点的，但我用panel.focused检测值为true。所以要怎么弄才能让panel接受键盘事件？注意是vb.net。我用vs2010开发的

Answer 1

测试focus为true时，previewkeydown可以执行。

追问

没有执行啊，直接执行窗体的键盘事件了，没有执行panel的previewkeydown事件

追答

panel点击事件，设置panel。focus。
代码：
Private Sub Panel1_Click(sender As Object, e As EventArgs) Handles Panel1.Click
Panel1.Focus()
End Sub
Private Sub Panel1_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles Panel1.PreviewKeyDown
MsgBox(e.Alt)
End Sub
点击后，按任意键，msgbox弹出来。

追问

但是panel获得焦点以后，我按键仍然是由窗体接受事件，panel的键盘事件并没有执行啊？

追答

难道你那边，按键后，msgbox没反应？

追问

哦，是有反应，但是我在窗体的键盘事件也有代码，我按键的时候他同时也执行窗体的键盘事件了是怎么回事？焦点明明不在窗体上啊，这样子如果在窗体键盘事件和panel键盘事件都有设按同一个键的代码，那不是两个事件都执行，等于焦点没有用了？（我是在窗体的键盘事件里写me.close()，所以刚开始我按的时候他直接关了我就以为没执行panel的键盘事件）

追答

在窗体键盘事件中，判断窗体是否有焦点吧。
不过，panel得到焦点后，窗体好像就得不到焦点了。也就不会响应按键。
最好是别设置同一个快捷键，响应两个事件。

追问

检测me.focused值为false。但在窗体的键盘事件设置断点会在按键时中断。
我不能不设置同一个快捷键啊，我是设窗体按esc时关闭窗体，panel按esc时使panel消失，不好换其他键啊。实在不行的话，有什么办法让窗体暂时禁止接收键盘事件呢，这样就可以只执行panel键盘事件？

追答

Me.KeyPreview 为假。
————————
判断鼠标可以吗？鼠标在panel上，则响应panel的键盘时间。重点应该是如何区分窗体和panel的范围，什么时候响应panel按键，什么时候响应窗体按键。
光设置焦点显然不行，焦点给panel后，窗体得不到了。

追问

判断鼠标的话，那该怎么写代码让它能判断是要响应哪个事件？focus肯定是不行了，只能用其他的方法来控制。

追答

Private Sub Panel1_Click(sender As Object, e As EventArgs) Handles Panel1.Click
Panel1.Focus()
End Sub
Private Sub Panel1_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles Panel1.PreviewKeyDown
Dim r As New Rectangle(Panel1.Location, Panel1.Size)
If r.Contains(Me.PointToClient(MousePosition)) Then
MsgBox(Me.PointToClient(MousePosition).ToString & sender.ToString & sender.Focused.ToString)
End If
End Sub
Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
Dim r As New Rectangle(Panel1.Location, Panel1.Size)
If Not r.Contains(Me.PointToClient(MousePosition)) Then
MsgBox(Me.PointToClient(MousePosition).ToString & sender.ToString & sender.Focused.ToString)
End If
End Sub
类似这样吧，鼠标在panel上点击获得焦点后，（不移动鼠标）再按键会响应panel事件，否则视为在窗体上点击，再按键响应窗体事件。
msgbox弹出时，用enter确认，因为当鼠标移动去确认时，坐标改变了。

追问

这样还是不行啊，因为我在panel中按esc让panel消失后，鼠标位置就到form上了，而程序在执行完panel键盘事件后，立刻执行form键盘事件，因而此时form_Keydown检测出鼠标在form上，就执行了接下来的事件了。主要是程序好像是先执行panel的键盘事件，后立刻执行form的键盘事件，有这样的顺序。这样好像无论如何form的代码都会执行了啊？

追答

还是一个用ESC，一个用shift+ESC，或ctrl+ESC吧。我不知道你的“消失"是怎么回事，因此没法测试

追问

啊现在我自己弄好了。。。原来我是把form的键盘事件放在KeyDown下，我把它移到PreviewKeyDown下就一切正常了，只在有焦点时form才会接受事件。窗体的keydown和previewkeydown是什么区别啊？keydown不就不能用了么

追答

当有焦点和有按键发生时，previewkeydown是在keydown之前响应。