无边框窗口 如何响应任务栏 系统菜单 上的 关闭(Alt+F4)选择?

Question

谢谢,请问怎么实现?
 Alt+F4快捷键可以实现,
 可是任务栏图标右键菜单上的 关闭(Alt+F4)不起作用了,
 谢谢

Answer 1

处理按键事件，接收到的键为(Alt+F4)时，调用：Unload Me

Answer 2

没有其他的方法吗?
   在 KeyDown处理按键事件可以, 可 鼠标选择 Alt+f4就没有反应,有办法吗

Answer 3

//可 鼠标选择 Alt+f4就没有反应,有办法吗
在鼠标选择的事件响应中call一下KeyDown处理按键事件不就可以了?

Answer 4

Option ExplicitPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyF4 And Shift = vbAltMask Then
        Unload Me
    End If
End Sub

Answer 5

楼上的正解。。其实把代码放在Form_KeyDown事件和Form_Up事件中都这样。
不过要先设置窗体的Keypreview属性为True，让其事件响应最优先。不然达不到效果！

Answer 6

Option Explicit
Private Sub Form_Load()
  Me.KeyPreview = True
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyF4 And Shift = vbAltMask Then
        Unload Me
    End If
End Sub
这样也能起到你说的那个作用.呵

Answer 7

呵呵，放在Key_up中比放在Key_Down中要安全些~~~~~~~~~~~~~~~~