0

我的应用程序中有两个表单我从母版页一起调用两个表单。我在顶部的母版页中编写了代码我声明像这样的 Dim form As New FrmDelivary Dim frm1 As New FrmrecievedDelivaryRequest

在这样的工具条菜单事件中: Dim frm1 As New FrmrecievedDelivaryRequest frm1.Location = New Point(625, 225)
frm1.MdiParent = Me frm1.Show()

Dim frm2 As New FrmDelivary
frm2.Location = New Point(965, 0)
frm2.MdiParent = Me 
frm.show() 

如果我按 R 我想将光标移到特定的文本框FrmrecievedDelivaryRequest

如果我按 D 我想将光标移到特定的文本框FrmDelivary

我怎样才能做到这一点?我在事件中尝试了这样的frmMaster_KeyDown事情:但同一页面再次显示。我已经打开了 FrmDelivary 的实例,所以我不想再次显示相同的页面。我只想将光标位置移到此表单的特定文本框

If e.KeyCode = Keys.A Then

    form.Show()
    form.txtTicket.Focus()
    Cursor.Position = form.txtTicket.Location
end if

我正在开发 vb.net windows 应用程序

4

2 回答 2

0

在代码窗口顶部设置您的 frm1 和 frm2 变量,以便可以从所有 Subs 访问它们。在您的 KeyDown 事件中,将

If e.KeyCode = Keys.A Then
    frm1.Show()
    frm1.txtTicket.Focus()
    Cursor.Position = frm1.txtTicket.Location
end if

问题是您正在使用“AS NEW frmDelivery”语句实例化表单的新副本。

于 2013-08-13T14:40:18.733 回答
0

frm1.Show()

地方

frm1.txtTicket.Focus()

我认为您不需要 Cursor.Position 调用

于 2013-08-13T14:26:06.220 回答