以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]请教老师导航栏如何打开对应的TabControl页签(可以关闭的) (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=185447) |
||||
-- 作者:wangtaolove -- 发布时间:2023/2/23 15:46:00 -- [求助]请教老师导航栏如何打开对应的TabControl页签(可以关闭的) 参考论坛里的分享案例,能够实现T窗口菜单按钮打开abControl页签的功能。 Itemclick代码是: Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1") If Forms.contains(e.StripItem.Name) = False Then MessageBox.Show("建设中……", "提示", MessageBoxButtons.OK, MessageBoxIcon.Warning) Return End If For i As Integer = 0 To tab.TabPages.Count - 1 If tab.TabPages(i).Name = e.StripItem.Name Then tab.SelectedIndex = i Return End If Next e.Form.StopRedraw tab.TabPages.Add(e.StripItem.Name, e.StripItem.Name) Forms(e.StripItem.Name).Open( - 1000, - 1500) Forms(e.StripItem.Name).BaseForm.TopLevel = False Forms(e.StripItem.Name).BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None Forms(e.StripItem.Name).BaseForm.Dock = System.Windows.Forms.DockStyle.Fill Forms(e.StripItem.Name).BaseForm.AutoScroll = True tab.TabPages(e.StripItem.Name).Controls.Add(Forms(e.StripItem.Name).BaseForm) tab.SelectedPage = tab.TabPages(e.StripItem.Name) BaseMainForm.Activate() e.Form.ResumeRedraw 现在想通过选择导航栏内的页面,实现打开TabControl页签的功能。代码如何修改?谢谢! 参考案例:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=179152&authorid=0&page=0&star=1
|
||||
-- 作者:有点蓝 -- 发布时间:2023/2/23 15:52:00 -- 上面第二段代码就是这功能 For i As Integer = 0 To tab.TabPages.Count - 1 If tab.TabPages(i).Name = e.StripItem.Name Then tab.SelectedIndex = i Return End If Next |
||||
-- 作者:wangtaolove -- 发布时间:2023/2/23 16:11:00 --
有点蓝老师,我上传了例子,您可以帮忙写下吗?万分感谢。能够实现通过导航栏页面打开页签。如图,选择导航的窗口2,会打开页签的窗口2. |
||||
-- 作者:有点蓝 -- 发布时间:2023/2/23 16:13:00 -- 参考:http://www.foxtable.com/webhelp/topics/0876.htm |