计算所有PictureBox的可见性状态

Question

在我的程序中，我有20个PictureBox，每隔5分钟改变一次。

现在我需要计算label1.text中有多少PictureBox是 .visible=true 。

在label2.text中有多少 .visible=false 。

任何想法如何自动执行此操作？

Answer 1

做一些像：

Dim var1 As Integer = 0
Dim var2 As Integer = 0
For Each ctl As Control In Me.Controls
    If TypeOf ctl Is PictureBox Then
        If ctl.visible
            var1+=1
        Else
            var2+=1
        End If
    End If
Next
label1.text = var1.ToString
label2.text = var2.ToString