Private Sub f01Location_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
Try
Select Case e.KeyCode
Case Keys.Return
If dgv01Location.Focused Then
e.SuppressKeyPress = True
pShowViewMode()
Else
System.Windows.Forms.SendKeys.Send("{TAB}")
End If
System.Windows.Forms.SendKeys.Send("{TAB}")
Case Keys.Escape
Call btnExit_Click(sender, e)
End Select
Catch ex As Exception
MsgBox("<f01Location.f01Location_KeyDown> " & ex.Message)
End Try
End Sub
Try
Select Case e.KeyCode
Case Keys.Return
If dgv01Location.Focused Then
e.SuppressKeyPress = True
pShowViewMode()
Else
System.Windows.Forms.SendKeys.Send("{TAB}")
End If
System.Windows.Forms.SendKeys.Send("{TAB}")
Case Keys.Escape
Call btnExit_Click(sender, e)
End Select
Catch ex As Exception
MsgBox("<f01Location.f01Location_KeyDown> " & ex.Message)
End Try
End Sub