0

次のコードを使用して実行時にテキストボックスを作成していますが、完全に機能しています。

  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タブに配置します。どうやってやるの？

4

2 に答える 2

3

TabControlには、1つ以上の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)
于 2012-08-04T17:04:46.377 に答える
1

Formコントロールを'に追加する代わりに、'Controlsに追加します。TabPageControls

Controls.Add(MarginTextbox)
Controls.Add(MarginLabel)
Me.TabPageWhatever.Controls.Add(MarginTextbox)
Me.TabPageWhatever.Controls.Add(MarginLabel)
于 2012-08-04T17:04:17.207 に答える