컨트롤이 탭 페이지에 추가되지 않았습니다. VB.NET

Question

창 생성자에서 다음 코드를 실행합니다. '라벨'이 추가되지만 다른 컨트롤은 화면에 표시되지 않습니다. newTab.Controls를 디버깅 할 경우 컨트롤이 여러 개 있습니다. 왜 그들은 화면에 나타나지 않고 "레이블"컨트롤 만 볼 수 있습니다.

감사

Dim graphlist As ArrayList = New ArrayList 
    For Each funct As TL_FUNCTION In functionlist 
     If (funct.functionname = functi) Then 
      If Not (graphlist.Contains(funct.picture)) Then 
       graphlist.Add(funct.picture) 
      End If 
     End If 
    Next 
    For Each picture In graphlist 
     Dim NewTab As New TabPage 
     NewTab.Name = picture 
     NewTab.Text = NewTab.Name 
     Me.TabControl1.Controls.Add(NewTab) 
     Me.TabControl1.SelectedIndex = Me.TabControl1.TabCount - 1 
     For Each func As TL_FUNCTION In functionlist 
      If (func.picture = picture) Then 
       Dim label As Label = New Label 
       label.Text = func.curve.ToString 
       NewTab.Controls.Add(label) 'This label shows up 
       Dim key As String 
       Dim values() As String 
       For Each key In func.values.Keys 
        values = func.values.GetValues(key) 
        For Each value As String In values 
         Dim label2 As New Label 
         label2.Text = key.ToString 
         Dim textb As TextBox = New TextBox 
         textb.Text = value 
         NewTab.Controls.Add(label2) 'this one is not shown on the tab 
         NewTab.Controls.Add(textb) 'this one is not shown on the tab 
        Next value 
       Next key 
      End If 
     Next 
    Next 

Answer 1

당신은 새로운 라벨과 글 상자 당신이 자신의 위치를 ​​설정하지 않기 때문에 당신은 TabPage에서 볼 수있는 새 레이블 아래 을 배치하는, 그래서 점 기본값은 (0, 0).

는 컨트롤의 위치를 ​​설정하십시오 :

For Each value As String In values 
    Dim label2 As New Label 
    label2.Text = key.ToString 
    label2.Location = New Point(10, NewTab.Controls.Count * 24) 

    Dim textb As TextBox = New TextBox 
    textb.Text = value 
    textb.Location = New Point(label2.Right + 4, label2.Top) 

    NewTab.Controls.Add(label2) 
    NewTab.Controls.Add(textb) 
Next value