全局代码：
'热键处理代码==============================================================================
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
加好友 
发短信
Post By：2014/6/12 12:37:00 [显示全部帖子]
