以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  TabPage页面跳转  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=176331)
--  作者：yifan3429
--  发布时间：2022/4/8 20:25:00
--  TabPage页面跳转
 Dim pg As WinForm.TabPage = e.Form.Controls("TabControl1").TabPages.Add("客户分类", "客户分类")
pg. 怎么跳到新增的 客户分类 页面
--  作者：有点蓝
--  发布时间：2022/4/9 8:45:00
--  
http://www.foxtable.com/webhelp/topics/0832.htm

Forms("窗口1").Controls("TabControl1").SelectedPage = pg
--  作者：yifan3429
--  发布时间：2022/4/9 9:04:00
--  
 Dim pg As WinForm.TabPage  = e.Form.Controls("菜单页面").TabPages("材料分类")             
                If e.Form.Controls("菜单页面").TabPages("材料分类") IsNot Nothing Then
                    e.Form.Controls("菜单页面").SelectedPage = pg
                Else
                    pg = e.Form.Controls("菜单页面").TabPages.Add("材料分类", "材料分类")
                    Functions.Execute("材料分类_标签初始化",e)
                    e.Form.Controls("菜单页面").SelectedPage = pg
                End If
ok



[此贴子已经被作者于2022/4/9 9:10:22编辑过]