- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 分享，定义全局系统热键。 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=52267)
-- 发布时间：2014/6/12 12:37:00
-- 分享，定义全局系统热键。
全局代码：
\'热键处理代码==============================================================================
Public Sub BaseMainForm_KeyDown(ByVal Sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
Dim eSender As Windows.Forms.Form = sender
Dim ee As object = e
If ee.KeyCode = keys.F2 AndAlso ee.Control AndAlso ee.Shift Then
Dim f As WinForm.Form = Forms("窗口1")
If f.Opened = False Then
f.Open
End If
End If
End Sub
AfterOpenProject事件代码
AddHandler BaseMainForm.KeyDown, AddressOf BaseMainForm_KeyDown
-- 发布时间：2014/6/12 13:10:00
--
探索和分享，好。
-- 发布时间：2014/6/12 14:01:00
--
-- 发布时间：2017/3/20 10:32:00
--
谢谢分享。