Foxtable(狐表)用户栏目专家坐堂 → 嵌套的窗口没有办法用enter切换控件


  共有2247人关注过本帖树形打印复制链接

主题:嵌套的窗口没有办法用enter切换控件

帅哥哟,离线,有人找我吗?
kaituozhe
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2234 积分:15278 威望:0 精华:0 注册:2015/7/18 10:10:00
嵌套的窗口没有办法用enter切换控件  发帖心情 Post By:2015/11/19 16:42:00 [只看该作者]

我设计了一个主窗口,在主窗口中打开订单窗口,订单窗口的几个textbox之间不能用enter键切换,单独打开订单窗口时没有问题,这是怎么回事?怎么才能使用enter切换
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:产品7.zip


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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

 回到顶部