有没有办法用一个命令来改变'n'标签的颜色? [英] Is there a way to change the color of 'n' labels together with one command?

问题描述

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

For example, instead of:

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

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

解决方案

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

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

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屋！