Vb.net 申报及；使用for循环格式化表单的多个标签

NET开发人员

我试图在一个表单上放置20个标签，然后一行一行地放置它们（我使用.Top方法）。我确信有一种方法可以通过循环使用更通用的代码20次来编程声明和格式化

下面是我为第一个标签所做的。 提前感谢您的帮助

    Dim Label1 As New Label
    Me.Controls.Add(Label1)
    For m = 1 To OutlookManager3.GlobalVariables.SelectedAppointmentsNo
        With Label1
            .Width = 512
            .Height = 18
            .Top = subject.Top + subject.Height + m * 6 + (m - 1) * 18 + (m - 1) * 6
            .Left = 12
            .Text = "label" & m
        End With
    Next

---

您应该将其作为循环中的第一行：

Dim Label1 As New Label

Me.Controls.Add(Label1)

这是循环中的最后一行：

Dim Label1 As New Label

Me.Controls.Add(Label1)

示例1

For m = 1 To OutlookManager3.GlobalVariables.SelectedAppointmentsNo
    Dim Label1 As New Label
    With Label1
        .Width = 512
        .Height = 18
        .Top = subject.Top + subject.Height + m * 6 + (m - 1) * 18 + (m - 1) * 6
        .Left = 12
        .Text = "label" & m
    End With
    Me.Controls.Add(Label1)
Next

示例2

For m = 1 To OutlookManager3.GlobalVariables.SelectedAppointmentsNo
    Me.Controls.Add(New Label() With {.Width = 512, .Height = 18, .Top = (subject.Top + subject.Height + m * 6 + (m - 1) * 18 + (m - 1) * 6), .Left = 12, .Text = ("label" & m)})
Next

---

您可以通过在循环中放置declare语句来使用代码

对于m=1的Outlook Manager 3.GlobalVariables.SelectedAppointsNo

Dim Label1 As New Label

With Label1

    .Width = 512

    .Height = 18

    .Top = subject.Top + subject.Height + m * 6 + (m - 1) * 18 + (m - 1) * 6

    .Left = 12

    .Text = "label" & m

End With

Me.Controls.Add(Label1)

label(m) = new label

label(m).ID="future referece id"

With Label1

    .Width = 512

    .Height = 18

    .Top = subject.Top + subject.Height + m * 6 + (m - 1) * 18 + (m - 1) * 6

    .Left = 12

    .Text = "label" & m

End With

下一个

或者像这样使用面板，但必须将declare语句放在循环中

或应制作标签数组，以供将来参考

调暗标签（您的尺寸）作为标签 对于m=1的Outlook Manager 3.GlobalVariables.SelectedAppointsNo

Dim Label1 As New Label

With Label1

    .Width = 512

    .Height = 18

    .Top = subject.Top + subject.Height + m * 6 + (m - 1) * 18 + (m - 1) * 6

    .Left = 12

    .Text = "label" & m

End With

Me.Controls.Add(Label1)

label(m) = new label

label(m).ID="future referece id"

With Label1

    .Width = 512

    .Height = 18

    .Top = subject.Top + subject.Height + m * 6 + (m - 1) * 18 + (m - 1) * 6

    .Left = 12

    .Text = "label" & m

End With

这样你下次就可以用了 Me.Controls.Add（标签1） 下一个