处理系统热键

最新推荐文章于 2025-06-17 15:22:57 发布

原创最新推荐文章于 2025-06-17 15:22:57 发布 · 606 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#integer #function #编程

  Protected   Overrides   Function   ProcessCmdKey(ByRef   msg   As   System.Windows.Forms.Message,   ByVal   keyData   As   System.Windows.Forms.Keys)   As   Boolean
                  Dim   WM_KEYDOWN   As   Integer   =   256     '可参考win32编程的文章
                  Dim   WM_SYSKEYDOWN   As   Integer   =   260
                  If   ((msg.Msg   =   WM_KEYDOWN)   Or   (msg.Msg   =   WM_SYSKEYDOWN))   Then
                          Select   Case   keyData
                                  Case   Keys.Alt   +   Keys.F4
                                          MsgBox("^_^   ！",   ,   "Hehe")
                                          Return   (True)
                          End   Select
                  End   If
          End   Function