vb.net – 在VB中的With语句中有多个对象？

我在VB中有很多标签,我在With语句中设置它们的属性.

问题
有什么方法可以做以下事情：

With lblA,lblB,lblC
    .fontColor = color.Red
End With

这是可能的,还是我必须手动为每个人做一个With语句？

解决方法

我会将这些类型的项目保留在列表中,然后对它们应用每个循环,假设它们都是相同类型(或至少是基本类型).假设您正在使用类型标签的控件,这将是一个解决方案.请注意,我已将.fontColor修改为.ForeColor,以便此示例适用于Label类：

Dim lblList as new List(of Label) ({lblA,lblC})
lblList.ForEach(sub(x) x.Fore Color = color.red)

既然您已经发布了解决方案,您仍然可以执行以下操作以避免对您所创建的数组进行迭代循环(这就是为什么我将其作为列表执行),而不必考虑数组大小或任何内容：

lblList.ForEach(Sub(x)
                    With x
                       .BackColor = Color.Black
                       .Dock = DockStyle.Top
                       .TextAlign = ContentAlignment.MiddleCenter
                    End With
                 End Sub)