-2

如果我单击该工具条，我有一个工具条，它将打开两个单独的页面，我在工具条中给出了如下代码：

    Dim frm As New frmKeyAssignBoard
      frm.Location = New Point(0, 0)
      frm.MdiParent = Me
      frm.Show()
    Dim frm1 As New FrmrecievedDelivaryRequest
      frm1.Location = New Point(365, 0)
      frm1.MdiParent = Me
      frm1.Show()

实际上这两个表单是我的子表单，打开这两个表单后我想设置快捷键，我的意思是如果我点击 K 光标应该专注于 frmKeyAssignBoard 中的特定文本框，如果我点击 R 光标应该专注于特定文本框FrmrecievedDelivaryRequest..
我怎么能做到这一点，我正在使用 vb.net 代码

4

1 回答 1

0

试试这个：覆盖主窗体中的ProcessCmdKey方法并处理事件。

你说你想要 K 和 R 键的快捷键，我假设你的意思是Ctrl+K和Ctrl+R 

Protected Overrides Function ProcessCmdKey(ByRef msg As Message, keyData As Keys) As Boolean
    Select Case keyData
        Case (Keys.Control Or Keys.K)
            ' focus on particular text box in frmKeyAssignBoard
            Return True
        Case (Keys.Control Or Keys.R)
            ' focus on particular text box in FrmrecievedDelivaryRequest
            Return True
        Case Else

    End Select

    Return MyBase.ProcessCmdKey(msg, keyData)

End Function
于 2013-07-30T10:06:47.680 回答