有没有一种方法可以通过一个命令更改'n'标签的颜色? [英] Is there a way to change the color of 'n' labels together with one command?

问题描述

是否有一种方法可以通过一个命令更改10个标签的颜色?

Is there a way to change the color of 10 labels together with one command?

例如，代替:

Label1.ForeColor = Color.Black
Label2.ForeColor = Color.Black
Label3.ForeColor = Color.Black
Label4.ForeColor = Color.Black
Label5.ForeColor = Color.Black
Label6.ForeColor = Color.Black
Label7.ForeColor = Color.Black

我只想使用一个命令来更改ForeColor.例如，代替Label1的应该是LabelX.

I would like to use only one command to change the ForeColor. For example, instead of Label1 it would be LabelX.

推荐答案

您可以循环浏览所有label类型的控件. 这应该可以解决问题.

You can just loop through all the controls of type label. This should do the trick.

'For each control in the form
For Each ctrl As Control In Me.Controls
    'If its of type label
    If TypeOf ctrl Is Label Then
        'Change the color
        ctrl.ForeColor = Color.Black
    End If
Next

按照Vincent的建议进行编辑，因此我们无需在之前声明ctr.

Edited like Vincent suggested so we don't need to declare ctr before.

正如Bug所建议的，这里是一个更短的选择:

As Bugs suggested here is an even shorter option:

For Each ctr In Me.Controls.OfType(Of Label)
    ctr.ForeColor = Color.Black
Next

这篇关于有没有一种方法可以通过一个命令更改'n'标签的颜色?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！