以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  嵌套的窗口没有办法用enter切换控件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=77517)
--  作者：kaituozhe
--  发布时间：2015/11/19 16:42:00
--  嵌套的窗口没有办法用enter切换控件
我设计了一个主窗口，在主窗口中打开订单窗口，订单窗口的几个textbox之间不能用enter键切换，单独打开订单窗口时没有问题，这是怎么回事？怎么才能使用enter切换
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:产品7.zip
--  作者：大红袍
--  发布时间：2015/11/19 17:01:00
--  
Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
If tab.TabPages("订单窗口" ) IsNot Nothing Then
    tab.SelectedPage = tab.TabPages("订单窗口")
Else
    Dim Name As String = "订单窗口"
    tab.TabPages.Add(name,name)
    Dim pb = tab.BaseControl
    Forms(Name).OPEN(-1000,-1500)
    Forms(Name).BaseForm.TopLevel = False
    Forms(Name).BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
    Forms(Name).BaseForm.Dock = System.Windows.Forms.DockStyle.Fill
    PB.TabPages(name).Controls.Clear
    PB.TabPages(name).Controls.add(Forms(Name).BaseForm)
    tab.SelectedPage = tab.TabPages(name)
    tab.Select
    Sendkeys.Send("{tab}")
End If