一个让人困惑的问题

[mingyuebin]

在我的FORM1中有一个tabcontrol1和一个commandbutton1,在tabcontrol1中有一个tabpage(tabpage1)，tabpage上有一些控件。在command_click事件中，我写了下面的代码，但是结果让果让我困惑。

dim _tp as tabpage
_tp=tabcontrol1.controls(0)'也度过写成_tp=tabcontrol1.tabpages(0)，结果都一样
_tp.text="test"
tabcontrol1.controls.add(_tp)

结果是tabcontrol1中的原来的tabpage1上的控件都不见了，而且tabcontrol1上的两个tabpage的TEXT都变成了test

请各位帮帮忙

[TonyTonyQ]

你要實現什麽功能，你的代碼出現那種情況確實是正常的。
dim _tp as tabpage '聲明一個tabpage的引用
_tp=tabcontrol1.controls(0) '_tp是對tabcontrol1.controls(0)，也就是對tabpage1的引用
_tp.text="test" '實際上是將tabpage1的text設置為"test"，因爲_tp是對tabpage1的引用
tabcontrol1.controls.add(_tp) '將tabpage1加入tabcontrol1，就出現了2個一樣的tabpage1了，而且標題都是"test"


如果你是想在增加一個tabpage頁的話，應該這樣：
Dim _tp As New TabPage '加上 NEW 關鍵字，説明是新實例
_tp.Text = "test"
TabControl1.Controls.Add(_tp)
這樣會出現一個空白的新tabpage頁

如果你想增加一個和tabpage1有著一樣子控件的_tp的話，那就是在TabControl1.Controls.Add(_tp)之前，在_tp.controls中加入這些子控件。

[thinkingforever]

要假如一个新的TabPage,必须创建一个他的实例,你那样只是对TabPage1的引用,所有的改动都会影响TabPage1
Private Sub MyTabs()
Me.tabControl1 = New TabControl()
Dim tabPageName As String = "myTabPage"

' Constructs a TabPage with a TabPage.Text value.
Me.tabPage1 = New TabPage(tabPageName)

Me.tabControl1.Controls.Add(tabPage1)
Me.tabControl1.Location = New Point(25, 25)
Me.tabControl1.Size = New Size(250, 250)

Me.ClientSize = New Size(300, 300)
Me.Controls.Add(tabControl1)
End Sub

[mingyuebin]

to qzj(SoldierQ) 、thinkingforever(努力学习)
我是想添加一个和tabpage1完全一样的tabpage，因为在tabpage1中我想列出某个customer的详细信息，当用户再双击某个coustmer时我想tabcontrol1添加一个和tabpage1完全一样的tabpage用于显示另一个customer的信息而不必每次都要重复添加控件到tabpage中

[AntingZ]

'add:
tabcontrol1.TabPages.Remove(_tp)

'or:
_tp.parent=nothing

before tabcontrol1.controls.add(_tp)

[mingyuebin]

to AntingZ(夕惕若) 按昭你的方法并没有把tabpage添加进去

[TonyTonyQ]

TO mingyuebin(明月)
那样你必须添加控件到新的tabpage中去，并设置相应控件的位置。似乎不能用简单的方法clone一个tabpage出来，呵呵