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的{{1}}，而是将其添加到Controls的{{1}}：

TabPage

动态创建文本框并将其添加到TabControl

2 个答案: