- Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean
- If msg.Msg = &H100 And keyData = (Keys.Shift Or Keys.Tab) Then
- If grdLog.ContainsFocus Then
- cmdClear.Select()
- End If
- End If
- Return MyBase.ProcessCmdKey(msg, keyData)
- End Function
复制代码 |