Question

基本上我正在为组合框创建动态标签，但它只显示我创建的前10个，而下一个10不会显示。我很难搞清楚。

这是我在组合框中添加标签的方法：

 Private Sub Create_Numbered_Labels()
    Dim x As Integer

    ''10 First labels

    For x = 0 To 9
        ''Create labels (1 to 10)
        Dim lbl As Label = Custom_Label((x + 1).ToString(), "lblNumber" & (x + 1).ToString(), New Point(6, 48 + (x * 38)))
        ''Add in Groupbox
        grpEssais.Controls.Add(lbl)
    Next

    ''10 next labels

    For x = 10 To 19
        ''Create Labels (11 to 20)
        Dim lbl As Label = Custom_Label((x + 1).ToString(), "lblNumber" & (x + 1).ToString(), New Point(493, 48 + (x * 38)))
        ''Add in GroupBox
        grpEssais.Controls.Add(lbl)
    Next
End Sub

这是我的函数Custom_Label（）

   Function Custom_Label(Sent_Text As String, Sent_Name As String, Sent_Location As Point) As Label
    ''Instance
    Dim lbl As New Label()

    ''DO NOT MODIFY
    lbl.AutoSize = False
    lbl.Size = New Size(33, 29)
    lbl.TextAlign = ContentAlignment.MiddleCenter
    lbl.BackColor = Color.White


    ''MODIFY WITH PARAMETERS
    lbl.Text = Sent_Text
    lbl.Name = Sent_Name ''LabelName (Sent_Name)-->String
    lbl.Location = Sent_Location ''Location (Sent_Location)-->Point() type

    ''Return the label
    Return lbl
End Function

Answer 1

抱歉打扰你。我发现这是我的逻辑错误，当我创建标签时，我没有将它们放在正确的位置，导致它们离开组框区域。

    Private Sub Create_Numbered_Labels()
    Dim x As Integer

    ''10 First labels

    For x = 0 To 9
        ''Create labels (1 to 10)
        Dim lbl As Label = Custom_Label((x + 1).ToString(), "lblNumber" & (x + 1).ToString(), New Point(6, 48 + (x * 38)))
        ''Add in Groupbox
        grpEssais.Controls.Add(lbl)
    Next

    ''10 next labels

    For x = 0 To 9
        ''Create Labels (11 to 20)
        Dim lbl As Label = Custom_Label(((x + 1) + 10).ToString(), "lblNumber" & ((x + 1) + 10).ToString(), New Point(493, 48 + (x * 38)))
        ''Add in GroupBox
        grpEssais.Controls.Add(lbl)
    Next
End Sub

动态标签不会显示在指定的GroupBox中

1 个答案: