Подсчет всех состояний видимости PictureBox

В моей программе есть 20 PictureBox, которые меняют свою видимость примерно каждые 5 минут.

Теперь мне нужно подсчитать, сколько PictureBox .visible=true в label1.text.

И сколько .visible=false в label2.text.

Есть идеи, как это сделать автоматически?


person Eng. Mohammed Abdo    schedule 28.05.2015    source источник
comment
Этот ответ покажет вам, как вы можете перебирать все элементы управления в своей форме и определять, какие из них являются PictureBox, затем вы можно проверить свойство Visible каждого PictureBox и увеличить значение счетчика для каждого видимого свойства. Затем вы можете отобразить результат в TextBox.   -  person Justin Ryan    schedule 28.05.2015
comment
спасибо..но не работает   -  person Eng. Mohammed Abdo    schedule 31.05.2015
comment
Отредактируйте свой вопрос, включив в него код, который вы пытаетесь запустить, объясните, что вы ожидаете, объясните, что, по вашему мнению, происходит на самом деле, и включите все сообщения об ошибках, которые вы получаете.   -  person Justin Ryan    schedule 31.05.2015


Ответы (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
person Sonorpearl    schedule 11.06.2015