积极答复者
vb2008中,如何控制TabPage中的控件?

问题
答案
-
- 已标记为答案 feiyun0112Moderator 2009年9月10日 6:16
-
If myChildForm Is Nothing Then Exit SubFor Each tb As TabPage In TabControl1.TabPagesIf tb.Text = strText ThenIf tb.Tag = TabControl1.TabPages.Count - 1 ThenmyChildForm.Dispose()myChildForm = NothingExit SubEnd IfFor Each tbx As TabPage In TabControl1.TabPagesIf Val(tbx.Tag) > Val(tb.Tag) ThenIf tbx.Tag = TabControl1.TabPages.Count - 1 ThenIf tbx.Controls(0).Controls("ToolStrip1") IsNot Nothing ThenToolStripManager.RevertMerge(ToolStrip1, tbx.Controls(0).Controls("ToolStrip1"))End IfEnd Iftbx.Tag = Val(tbx.Tag) - 1End IfNextIf tb.Controls(0).Controls("ToolStrip1") IsNot Nothing Then ToolStripManager.Merge(tb.Controls(0).Controls("ToolStrip1"), ToolStrip1)tb.Tag = TabControl1.TabPages.Count - 1TabControl1.SelectedTab = tbmyChildForm.Dispose()myChildForm = NothingExit SubEnd IfNextFor Each tb As TabPage In TabControl1.TabPagesIf tb.Tag = TabControl1.TabPages.Count - 1 ThenIf tb.Controls(0).Controls("ToolStrip1") IsNot Nothing ThenToolStripManager.RevertMerge(ToolStrip1, tb.Controls(0).Controls("ToolStrip1"))End IfEnd IfNextDim myTab As New TabPageIf myChildForm.Controls("ToolStrip1") IsNot Nothing Then ToolStripManager.Merge(myChildForm.Controls("ToolStrip1"), ToolStrip1)TabControl1.TabPages.Add(myTab)myTab.Tag = TabControl1.TabPages.Count - 1myTab.Text = strTextTabControl1.SelectTab(myTab)myChildForm.Text = strTextmyChildForm.FormBorderStyle = Windows.Forms.FormBorderStyle.NonemyChildForm.TopLevel = FalsemyChildForm.Dock = DockStyle.FillmyTab.Controls.Add(myChildForm)myChildForm.Show()If BtClose.Visible = False Then BtClose.Visible = True这是我的代码,请帮忙看看,例外上面的问题我解决啦dim frm as form1= TabPage.Controls(0)with frm.......end with
- 已标记为答案 Weber Li 2009年9月10日 6:20
全部回复
-
- 已标记为答案 feiyun0112Moderator 2009年9月10日 6:16
-
If myChildForm Is Nothing Then Exit SubFor Each tb As TabPage In TabControl1.TabPagesIf tb.Text = strText ThenIf tb.Tag = TabControl1.TabPages.Count - 1 ThenmyChildForm.Dispose()myChildForm = NothingExit SubEnd IfFor Each tbx As TabPage In TabControl1.TabPagesIf Val(tbx.Tag) > Val(tb.Tag) ThenIf tbx.Tag = TabControl1.TabPages.Count - 1 ThenIf tbx.Controls(0).Controls("ToolStrip1") IsNot Nothing ThenToolStripManager.RevertMerge(ToolStrip1, tbx.Controls(0).Controls("ToolStrip1"))End IfEnd Iftbx.Tag = Val(tbx.Tag) - 1End IfNextIf tb.Controls(0).Controls("ToolStrip1") IsNot Nothing Then ToolStripManager.Merge(tb.Controls(0).Controls("ToolStrip1"), ToolStrip1)tb.Tag = TabControl1.TabPages.Count - 1TabControl1.SelectedTab = tbmyChildForm.Dispose()myChildForm = NothingExit SubEnd IfNextFor Each tb As TabPage In TabControl1.TabPagesIf tb.Tag = TabControl1.TabPages.Count - 1 ThenIf tb.Controls(0).Controls("ToolStrip1") IsNot Nothing ThenToolStripManager.RevertMerge(ToolStrip1, tb.Controls(0).Controls("ToolStrip1"))End IfEnd IfNextDim myTab As New TabPageIf myChildForm.Controls("ToolStrip1") IsNot Nothing Then ToolStripManager.Merge(myChildForm.Controls("ToolStrip1"), ToolStrip1)TabControl1.TabPages.Add(myTab)myTab.Tag = TabControl1.TabPages.Count - 1myTab.Text = strTextTabControl1.SelectTab(myTab)myChildForm.Text = strTextmyChildForm.FormBorderStyle = Windows.Forms.FormBorderStyle.NonemyChildForm.TopLevel = FalsemyChildForm.Dock = DockStyle.FillmyTab.Controls.Add(myChildForm)myChildForm.Show()If BtClose.Visible = False Then BtClose.Visible = True这是我的代码,请帮忙看看,例外上面的问题我解决啦dim frm as form1= TabPage.Controls(0)with frm.......end with
- 已标记为答案 Weber Li 2009年9月10日 6:20
-
你好,弱弱的问下楼主你是怎样将Form包含在TabPanel中的?
Wenn ich dich hab’,gibt es nichts, was unerträglich ist.坚持不懈!http://hi.baidu.com/1987raymond