以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- TabControl中的tabpages窗口切换 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=72418) |
-- 作者:blackwolf -- 发布时间:2015/7/30 1:49:00 -- TabControl中的tabpages窗口切换 直接上传例子,例子中有三个按钮控件,前两个按钮报错,最后一个按钮没有报错,也能实现。 但是,我的tabpages子页面有很多,不可能用0,1,2,3....等等来切换,我想要实现的功能是,0=页面的名称 第一个和第二个的报错图片 第三个为正常图片 上传例子 望解答!其中如果代码中 直接写Form("窗口名").open 则会闪屏 修改为 Form(“窗口名”).open(-1000,-1500) 则不会闪屏 |
-- 作者:大红袍 -- 发布时间:2015/7/30 10:23:00 -- Dim tab1 As object = e.Form.Controls("TabControl1").basecontrol Forms("窗口2").Open(-1000,-2000) Dim tab2 As object = Forms("窗口2").Controls("TabControl2").basecontrol Dim p = tab1.Tabpages.Add(tab2.TabPages(0)) Forms("窗口2").Close tab1.SelectedIndex = p |
-- 作者:blackwolf -- 发布时间:2015/7/31 2:22:00 -- 一直点击按钮会无限制的添加页面,能否做个判断,当前tabcontrol控件中已存在要添加的页面则不执行代码并切换到当前页面。 红色代码这里就不执行了。没辙了,本来还想添加 Exit For和Continue For 来做终止以及循环。就是这里卡壳了!请指教
Dim tab1 As object = e.Form.Controls("TabControl1").basecontrol \'定义主独立窗口tbacontrol1控件为tab1 For Each pg As WinForm.TabPage In tab1.TabPages \'遍历tab1控件tabpages页面集合中的所有tabpage(单独页面) Forms("窗口2").Open(-1000,-2000) \'打开下面要用到的tabcontrol2控件的窗口 Dim tab2 As object = Forms("窗口2").Controls("TabControl2").basecontrol \'定义独立窗口2中的tbacontrol1控件为tab2 For Each pg1 As WinForm.TabPage In tab2.TabPages \'遍历tab2控件tabpages页面集合中的所有tabpage(单独页面) If pg.text = "人员管理" <> pg1.text = "" Then \'判断pg页面标题为人员管理 不等于 pg1中所有页面中的标题 Dim pg3 As WinForm.TabPage pg3 = Forms("窗口2").Controls("TabControl2").TabPages(0) Dim p =tab1.Tabpages.Add(pg3) tab1.SelectedIndex = p Forms("窗口2").Close End If Next Next |
-- 作者:大红袍 -- 发布时间:2015/7/31 9:51:00 -- Dim tab1 As object = e.Form.Controls("TabControl1").basecontrol Forms("窗口2").Open(-1000,-2000) Dim tab2 As object = Forms("窗口2").Controls("TabControl2").basecontrol Dim flag As Boolean = False For Each pg1 As WinForm.TabPage In tab1.TabPages If pg1.tag = "窗口2" & tab2.tabpages(0).text flag = True tab1.SelectedTab = pg1 Exit For End If Next If flag = False Dim p = tab1.Tabpages.Add(tab2.TabPages(0)) tab1.SelectedIndex = p tab1.SelectedTab.Tag = "窗口2" & tab1.SelectedTab.text End If Forms("窗口2").Close |