0

我的应用程序中有两个表单我正在从母版页一起调用两个表单。我在我的主寻呼机工具条菜单事件中编写了代码,如下所示:

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 应用程序。:stackoverflow.com/questions/17918902/... – user2674855 在此链接中,您可以看到我的母版页设计

4

1 回答 1

0

在代码窗口的顶部

Dim frm1 As FrmrecievedDelivaryRequest  
Dim frm2 As FrmDelivary    

在工具条菜单的点击事件中

frm1 = New FrmrecievedDelivaryRequest  
frm1.Location = New Point(625, 225)  
frm1.MdiParent = Me
frm1.Show()
frm2 = New FrmDelivary    
frm2.Location = New Point(965, 0) 
frm2.MdiParent = Me 
frm2.show()

在 frmMaster KeyDown 中(另外,确保 frmMaster.KeyPreview 设置为 True

If e.Control And e.KeyCode = Keys.R Then 'revised to include control key
    frm1.Show() 
    frm1.txtTicket.Focus() 
    Cursor.Position = frm1.txtTicket.Location 
end if
'add other keycode events similar to above

如果您希望快速键也可以在子表单中使用,则将 KeyPreview 设置为 true 并为 KeyDown 事件添加代码

于 2013-08-14T12:40:47.103 回答