創建文本框動態，並將它們添加到一個到一個TabControl

Question

我使用下面的代碼在運行時創建文本框和它的工作完美：

MarginTextbox.Name = "mid" & id 
    MarginLabel.Name = "ML" & id 
    MarginTextbox.Font = New System.Drawing.Font("Verdana", 10, Drawing.FontStyle.Regular) 
    MarginLabel.Location = New Point(15, (80 + (counter * 24))) 
    MarginTextbox.Location = New Point(110, (80 + (counter * 24))) 
    MarginLabel.BackColor = Me.BackColor 
    MarginTextbox.Size = New Size(56, 20) 
    MarginLabel.Size = New Size(150, 20) 
    MarginTextbox.AutoSize = False 
    MarginLabel.Text = "Supplier " & id 
    Controls.Add(MarginTextbox) 
    Controls.Add(MarginLabel) 

我不想把他們放在窗體，而是在TabControl選項卡中。我怎樣才能做到這一點？

Answer 1

一個TabControl包含一個或多個的TabPage。
TabPage有一個Controls對象集合，可用於添加您的文本框。

所以（假設你已經添加了一個名爲tabControl1的TabControl）：

Dim tp as TabPage = tabControl1.TabPages(0) ' 0 is the index of the page required' 
tp.Controls.Add(MarginTextbox) 
tp.Controls.Add(MarginLabel) 

Answer 2

，而不是添加控件到您Form的的Controls，將其添加到您的TabPage的Controls：

Controls.Add(MarginTextbox) Controls.Add(MarginLabel) 
Me.TabPageWhatever.Controls.Add(MarginTextbox) 
Me.TabPageWhatever.Controls.Add(MarginLabel)