Перебор контролов

[Calhoon]

Необходимополучить именавсех контролов на форме. Копался на тему "как перебрать контролы". Сами-то они на форме вызываются Form.<Name>, а вот как перебрать все имена в цикле? Почти все контролы находятся в контейнерах, контейнеры сами содержат контейнеры, и т.д., так что For Each in Controls выдает только единственный внешний контейнер =) Дайте идею

[Williams]

Рекурсивно Control.Controls.

[Dmitry81]

Код: Выделить всё

Dim ctrl As System.Windows.Forms.Control
        Dim Names As String = "Список имеющихся контролов:"
        For Each ctrl In Me.Controls
            Names = Names & vbCrLf & ctrl.Name
        Next
        MsgBox(Names)

и будет тебе счастье

[Williams]

и будет тебе счастье

Не будет.

[Dmitry81]

и чего не будет?
А... ты про вложенные контейнеры.
Ну да, ну да.

[ndemidov]

Вот как я делал в своей программе для назначения единого стиля для ЭУ:

Код: Выделить всё

Public Sub ApplyStyle(ByVal cntrl As Control)
        ' Действия ф-ии:
        ' 1) Устанавливает для cntrl стиль;
        ' 2) Рекурсия для всех SubControls.


        ' Для cntrl
        If TypeOf (cntrl) Is Form Then
            With CType(cntrl, Form)
                ' Внешний вид окна
                .BackColor = Me.BackColor
                .ForeColor = Me.MajorTextColor

                .Opacity = CDbl(Me.Opacity) / 100
                .TopMost = Me.TopMost

               ...

        Else
            Call APPL(cntrl)
        End If


        ' Для каждого Sub Control
        For Each SubCntrl As Control In cntrl.Controls
           ' Рекурсия
            Call ApplyStyle(SubCntrl)
        Next
    End Sub

[Williams]

Вот как я делал в своей программе для назначения единого стиля для ЭУ:

Код: Выделить всё

Call APPL(cntrl)
...
Call ApplyStyle(SubCntrl)



Call - пережиток прошлого. Тем не менее, это уже ближе к истине

[ndemidov]

Ну, чтобы при чтении дать понять что это Sub.

[Dmitry81]

Вот:

Код: Выделить всё

Dim ss As String

    Private Sub search_ctrl(ByVal CtrlP As System.Windows.Forms.Control)
        Dim CtrlCh As Control
        For Each CtrlCh In CtrlP.Controls
            ss = CtrlCh.Parent.Name & "." & CtrlCh.Name & vbCrLf & ss
            If CtrlCh.Controls.Count > 0 Then Me.search_ctrl(CtrlCh)
        Next
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ss=VbNullString
        Me.search_ctrl(Me)
        MsgBox(ss)
    End Sub

Набрасываем на форму кучу контролов с произвольным уровнем вложенности. По клику кнопки Button1 ( в моем примере) вылезет месиджбокс со списком контролов на форме, включая и контролы, размещенные не непосредственно на форме а в контейнерах. При этом указывается и имя контейнера:
Form1.Button1
GroupBox2.Button3
GroupBox1.GroupBox2
GroupBox1.Button2
Form1.GroupBox1

P.S.
Williams, я конечно понимаю что ты типа гуру , но мог бы и сам давно нашлепать код. Толку-то от твоих сообщений (особенно последнего). Ну да, ну да, это ж не для асов.

[Calhoon]

Спасибо. Я попробовал код Williams'а - все хорошо, но такой подход не отображает дочерние элементы SplitContainer, ToolSplitPanel - видимо, для такие контролы придется распознавать и получать имена дочерних через их свойства... Жаль, ведь это могут быть не единственные подобные контролы, а я пытаюсь получить универсальный код)

[Williams]

Спасибо. Я попробовал код Williams'а - все хорошо

К сожалению, или к счастью, я не постил в этой теме никакого кода.

[Dmitry81]

Спасибо. Я попробовал код Williams'а - все хорошо, но такой подход не отображает дочерние элементы SplitContainer, ToolSplitPanel - видимо, для такие контролы придется распознавать и получать имена дочерних через их свойства... Жаль, ведь это могут быть не единственные подобные контролы, а я пытаюсь получить универсальный код)

Ну так понятное дело: у сплитконтейнера дочерние контролы располагаются на панелях, которые имен не имеют. А у тулстрипа контролы - это коллекция items, а не controls.
Поэтому мой код не вернет их имена, а со сплитконтейнером тож хитро: у его дочерних не удается получить имя родителя (т.к. панели безымянны) и для самого сплитконтейнера не отображаются дочерние - та же причина...

[Williams]

Вот теперь мой код:

Код: Выделить всё


Public Sub ProcessControls(ByVal c As Windows.Forms.Control)

        If Not String.IsNullOrEmpty(c.Name) Then Console.WriteLine(c.Name)

        If c.Controls.Count <> 0 Then
            For Each c1 As System.Windows.Forms.Control In c.Controls
                ProcessControls(c1)
            Next
        End If

End Sub


Вызов:

Код: Выделить всё

ProcessControls(Me)

[Dmitry81]

ну и чем он отличается от других?..
Ну я понимаю, учел возможность отсутствия имени, но как же быть с указанием родителя?

[Williams]

ну и чем он отличается от других?..

Ну во-первых чистотой и ясностью

Все что не берется этим методом, можно достать через Reflection, как мне думается.