Как получить ВСЕ дочерние элементы управления формы Windows Forms определенного типа (кнопка / текстовое поле)?

120

Мне нужно получить все элементы управления в форме типа x. Я почти уверен, что однажды видел этот код, в котором использовалось что-то вроде этого:

dim ctrls() as Control
ctrls = Me.Controls(GetType(TextBox))

Я знаю, что могу перебирать все элементы управления, получая детей с помощью рекурсивной функции, но есть ли что-то более простое или более простое, например, следующее?

Dim Ctrls = From ctrl In Me.Controls Where ctrl.GetType Is Textbox
Луис
источник
1
Связанный вопрос: stackoverflow.com/questions/253937/…
JYelton 06

Ответы:

232

Вот вам еще один вариант. Я протестировал его, создав образец приложения, а затем поместил GroupBox и GroupBox в исходный GroupBox. Внутри вложенного GroupBox я поместил 3 элемента управления TextBox и кнопку. Это код, который я использовал (даже включает рекурсию, которую вы искали)

public IEnumerable<Control> GetAll(Control control,Type type)
{
    var controls = control.Controls.Cast<Control>();

    return controls.SelectMany(ctrl => GetAll(ctrl,type))
                              .Concat(controls)
                              .Where(c => c.GetType() == type);
}

Чтобы проверить это в событии загрузки формы, мне нужно было подсчитать все элементы управления внутри исходного GroupBox.

private void Form1_Load(object sender, EventArgs e)
{
    var c = GetAll(this,typeof(TextBox));
    MessageBox.Show("Total Controls: " + c.Count());
}

И он каждый раз возвращал правильный счет, поэтому я думаю, что это отлично сработает для того, что вы ищете :)

PsychoCoder
источник
21
GetAll (), определенный здесь, является очень хорошим кандидатом на роль метода расширения для класса Control
Майкл Бахиг,
Мне понравилось, как вы использовали лямбда-выражения. Где подробно изучить лямбда-выражения?
Адитья Бокаде
«System.Windows.Forms.Control.ControlCollection» не содержит определения для «Cast», и не может быть найден метод расширения «Cast», принимающий первый аргумент типа «System.Windows.Forms.Control.ControlCollection» (являются вам не хватает директивы using или ссылки на сборку?) «Я использую .NET 4.5, а в« Controls »нет функции / метода / чего-то еще« Cast ». Что мне не хватает?
soulblazer
2
@soulblazer Добавить пространство имен System.Linq.
Иван-Марк Дебоно
var allCtl = GetAll (this.FindForm (), typeof (TextBox)); // это Usercontrol ничего не возвращает !!
bh_earth0
34

В C # (поскольку вы пометили его как таковой) вы можете использовать выражение LINQ, подобное этому:

List<Control> c = Controls.OfType<TextBox>().Cast<Control>().ToList();

Изменить для рекурсии:

В этом примере вы сначала создаете список элементов управления, а затем вызываете метод для его заполнения. Поскольку метод рекурсивен, он не возвращает список, а просто обновляет его.

List<Control> ControlList = new List<Control>();
private void GetAllControls(Control container)
{
    foreach (Control c in container.Controls)
    {
        GetAllControls(c);
        if (c is TextBox) ControlList.Add(c);
    }
}

Возможно, это удастся сделать в одном операторе LINQ с помощью Descendantsфункции, хотя я с ней не так хорошо знаком. См. Эту страницу для получения дополнительной информации об этом.

Измените 2, чтобы вернуть коллекцию:

Как предположил @ProfK, вероятно, лучше использовать метод, который просто возвращает желаемые элементы управления. Чтобы проиллюстрировать это, я изменил код следующим образом:

private IEnumerable<Control> GetAllTextBoxControls(Control container)
{
    List<Control> controlList = new List<Control>();
    foreach (Control c in container.Controls)
    {
        controlList.AddRange(GetAllTextBoxControls(c));
        if (c is TextBox)
            controlList.Add(c);
    }
    return controlList;
}
JYelton
источник
Спасибо, C # или VB мне подходят. Но проблема в том, что Controls.OfType <TExtbox> возвращает только дочерние элементы текущего элемента управления (в моем случае Form), и я хочу за один вызов получить ВСЕ элементы управления в Forma «рекурсивно» (дети, дочерние элементы , sub-sub-childs, .....) в единой коллекции.
Луис
Я ожидал, что метод GetAllControls вернет коллекцию элементов управления, которые я бы назначил ControlList. Просто кажется лучшей практикой.
ProfK
@ProfK Я с тобой согласен; изменяя пример соответственно.
JYelton
13

Это улучшенная версия рекурсивной функции GetAllControls (), которая действительно работает с частными варами:

    private void Test()
    {
         List<Control> allTextboxes = GetAllControls(this);
    }
    private List<Control> GetAllControls(Control container, List<Control> list)
    {
        foreach (Control c in container.Controls)
        {
            if (c is TextBox) list.Add(c);
            if (c.Controls.Count > 0)
                list = GetAllControls(c, list);
        }

        return list;
    }
    private List<Control> GetAllControls(Control container)
    {
        return GetAllControls(container, new List<Control>());
    }
VictorEspina
источник
10

Я объединил кучу предыдущих идей в один метод расширения. Преимущества здесь заключаются в том, что вы получаете обратно правильно набранный перечислимый тип, а наследование правильно обрабатывается OfType().

public static IEnumerable<T> FindAllChildrenByType<T>(this Control control)
{
    IEnumerable<Control> controls = control.Controls.Cast<Control>();
    return controls
        .OfType<T>()
        .Concat<T>(controls.SelectMany<Control, T>(ctrl => FindAllChildrenByType<T>(ctrl)));
}
Entiat
источник
5

Для этого можно использовать запрос LINQ. Это запросит все в форме типа TextBox

var c = from controls in this.Controls.OfType<TextBox>()
              select controls;
PsychoCoder
источник
Спасибо, но та же проблема, что и в ответе, он возвращает только детей, но не дочерних детей и т.Д., И я хочу, чтобы все элементы управления были установлены. Я почти уверен, что видел, что это возможно с помощью одного вызова метода, нового в .NET 3.5 или 4.0, помните, я видел это где-то в демонстрации
Луис
Игнорирование отсутствия рекурсии не var c = this.Controls.OfType<TextBox>()дало бы такого же результата?
CoderDennis 06
2
@Dennis: Да, это вопрос предпочтений (обычно). См. Stackoverflow.com/questions/214500/… для интересного обсуждения этого вопроса.
JYelton
5

Это может быть древняя техника, но она работает как шарм. Я использовал рекурсию, чтобы изменить цвет всех меток элемента управления. Отлично работает.

internal static void changeControlColour(Control f, Color color)
{
    foreach (Control c in f.Controls)
    {

        // MessageBox.Show(c.GetType().ToString());
        if (c.HasChildren)
        {
            changeControlColour(c, color);
        }
        else
            if (c is Label)
            {
                Label lll = (Label)c;
                lll.ForeColor = color;
            }
    }
}
Адитья Бокаде
источник
4

Я хотел бы изменить ответ PsychoCoders: поскольку пользователь хочет получить все элементы управления определенного типа, мы могли бы использовать дженерики следующим образом:

    public IEnumerable<T> FindControls<T>(Control control) where T : Control
    {
        // we can't cast here because some controls in here will most likely not be <T>
        var controls = control.Controls.Cast<Control>();

        return controls.SelectMany(ctrl => FindControls<T>(ctrl))
                                  .Concat(controls)
                                  .Where(c => c.GetType() == typeof(T)).Cast<T>();
    }

Таким образом, мы можем вызвать функцию следующим образом:

private void Form1_Load(object sender, EventArgs e)
{
    var c = FindControls<TextBox>(this);
    MessageBox.Show("Total Controls: " + c.Count());
}
Адам
источник
На мой взгляд, это лучшее (и самое быстрое по моим тестам) решение на этой странице. Но я бы посоветовал вам изменить элементы управления на массив: var enumerable = controls as Control [] ?? controls.ToArray (); а затем измените на: return enumerable.SelectMany (FindControls <T>) .Concat (enumerable) .Where (c => c.GetType () == typeof (T)). Cast <T> ();
Рэндалл Флэгг,
Разве не эффективнее использовать .OfType<T>()метод Linq, чем .Where(c => c.GetType() == typeof(T)).Cast<T>();получить тот же эффект?
TheHitchenator
3

Не забывайте, что вы также можете иметь TextBox внутри других элементов управления, кроме элементов управления контейнера. Вы даже можете добавить TextBox в PictureBox.

Так что вам также нужно проверить,

someControl.HasChildren = True

в любой рекурсивной функции.

Это результат, который я получил от макета для тестирования этого кода:

TextBox13   Parent = Panel5
TextBox12   Parent = Panel5
TextBox9   Parent = Panel2
TextBox8   Parent = Panel2
TextBox16   Parent = Panel6
TextBox15   Parent = Panel6
TextBox14   Parent = Panel6
TextBox10   Parent = Panel3
TextBox11   Parent = Panel4
TextBox7   Parent = Panel1
TextBox6   Parent = Panel1
TextBox5   Parent = Panel1
TextBox4   Parent = Form1
TextBox3   Parent = Form1
TextBox2   Parent = Form1
TextBox1   Parent = Form1
tbTest   Parent = myPicBox

Попробуйте это с одной кнопкой и одним RichTextBox в форме.

Option Strict On
Option Explicit On
Option Infer Off

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim pb As New PictureBox
        pb.Name = "myPicBox"
        pb.BackColor = Color.Goldenrod
        pb.Size = New Size(100, 100)
        pb.Location = New Point(0, 0)
        Dim tb As New TextBox
        tb.Name = "tbTest"
        pb.Controls.Add(tb)
        Me.Controls.Add(pb)

        Dim textBoxList As New List(Of Control)
        textBoxList = GetAllControls(Of TextBox)(Me)

        Dim sb As New System.Text.StringBuilder
        For index As Integer = 0 To textBoxList.Count - 1
            sb.Append(textBoxList.Item(index).Name & "   Parent = " & textBoxList.Item(index).Parent.Name & System.Environment.NewLine)
        Next

        RichTextBox1.Text = sb.ToString
    End Sub

    Private Function GetAllControls(Of T)(ByVal searchWithin As Control) As List(Of Control)

        Dim returnList As New List(Of Control)

        If searchWithin.HasChildren = True Then
            For Each ctrl As Control In searchWithin.Controls
                If TypeOf ctrl Is T Then
                    returnList.Add(ctrl)
                End If
                returnList.AddRange(GetAllControls(Of T)(ctrl))
            Next
        ElseIf searchWithin.HasChildren = False Then
            For Each ctrl As Control In searchWithin.Controls
                If TypeOf ctrl Is T Then
                    returnList.Add(ctrl)
                End If
                returnList.AddRange(GetAllControls(Of T)(ctrl))
            Next
        End If
        Return returnList
    End Function

End Class
Джон Энтони Оливер
источник
2

Использование отражения:

// Return a list with all the private fields with the same type
List<T> GetAllControlsWithTypeFromControl<T>(Control parentControl)
{
    List<T> retValue = new List<T>();
    System.Reflection.FieldInfo[] fields = parentControl.GetType().GetFields(System.Reflection.BindingFlags.NonPublic | System.Reflection.BindingFlags.Instance);
    foreach (System.Reflection.FieldInfo field in fields)
    {
      if (field.FieldType == typeof(T))
        retValue.Add((T)field.GetValue(parentControl));
    }
}

List<TextBox> ctrls = GetAllControlsWithTypeFromControl<TextBox>(this);
MiMenda
источник
2

Вот мой метод расширения Controlс использованием LINQ в качестве адаптации версии @PsychoCoder :

Вместо этого требуется список типов, который позволяет вам не требовать многократных вызовов GetAllдля получения того, что вы хотите. В настоящее время я использую его как версию с перегрузкой.

public static IEnumerable<Control> GetAll(this Control control, IEnumerable<Type> filteringTypes)
{
    var ctrls = control.Controls.Cast<Control>();

    return ctrls.SelectMany(ctrl => GetAll(ctrl, filteringTypes))
                .Concat(ctrls)
                .Where(ctl => filteringTypes.Any(t => ctl.GetType() == t));
}

Использование:

//   The types you want to select
var typeToBeSelected = new List<Type>
{
    typeof(TextBox)
    , typeof(MaskedTextBox)
    , typeof(Button)
};

//    Only one call
var allControls = MyControlThatContainsOtherControls.GetAll(typeToBeSelected);

//    Do something with it
foreach(var ctrl in allControls)
{
    ctrl.Enabled = true;
}
gfache
источник
2

Чистое и простое решение (C #):

static class Utilities {
    public static List<T> GetAllControls<T>(this Control container) where T : Control {
        List<T> controls = new List<T>();
        if (container.Controls.Count > 0) {
            controls.AddRange(container.Controls.OfType<T>());
            foreach (Control c in container.Controls) {
                controls.AddRange(c.GetAllControls<T>());
            }
        }

        return controls;
    }
}

Получить все текстовые поля:

List<TextBox> textboxes = myControl.GetAllControls<TextBox>();
Омар
источник
2

Вы можете использовать приведенный ниже код

public static class ExtensionMethods
{
    public static IEnumerable<T> GetAll<T>(this Control control)
    {
        var controls = control.Controls.Cast<Control>();

        return controls.SelectMany(ctrl => ctrl.GetAll<T>())
                                  .Concat(controls.OfType<T>());
    }
}
Сантану Саркар
источник
2

Вот мой метод расширения. Это очень эффективно и лениво.

Использование:

var checkBoxes = tableLayoutPanel1.FindChildControlsOfType<CheckBox>();

foreach (var checkBox in checkBoxes)
{
    checkBox.Checked = false;
}

Код такой:

public static IEnumerable<TControl> FindChildControlsOfType<TControl>(this Control control) where TControl : Control
    {
        foreach (var childControl in control.Controls.Cast<Control>())
        {
            if (childControl.GetType() == typeof(TControl))
            {
                yield return (TControl)childControl;
            }
            else
            {
                foreach (var next in FindChildControlsOfType<TControl>(childControl))
                {
                    yield return next;
                }
            }
        }
    }
Йоне Полвора
источник
это более чистая версия, она ленивая, ее можно перечислить и загрузить по запросу.
Йоне Полвора,
1

Вот решение.

https://stackoverflow.com/a/19224936/1147352

Я написал этот фрагмент кода и выбрал только панели, вы можете добавить дополнительные переключатели или если. в этом

Смельчак
источник
1
public List<Control> GetAllChildControls(Control Root, Type FilterType = null)
{
    List<Control> AllChilds = new List<Control>();
    foreach (Control ctl in Root.Controls) {
        if (FilterType != null) {
            if (ctl.GetType == FilterType) {
                AllChilds.Add(ctl);
            }
        } else {
            AllChilds.Add(ctl);
        }
        if (ctl.HasChildren) {
            GetAllChildControls(ctl, FilterType);
        }
    }
    return AllChilds;
}
Лучшие системы
источник
1
   IEnumerable<Control> Ctrls = from Control ctrl in Me.Controls where ctrl is TextBox | ctrl is GroupBox select ctr;

Лямбда-выражения

IEnumerable<Control> Ctrls = Me.Controls.Cast<Control>().Where(c => c is Button | c is GroupBox);
Памятка Арфаа
источник
Пожалуйста, добавьте к своему ответу дополнительные сведения, объясняющие, что происходит и как это связано с вопросом.
Fencer04 05
0

Я модифицировал @PsychoCoder. Все элементы управления теперь можно найти (включая вложенные).

public static IEnumerable<T> GetChildrens<T>(Control control)
{
  var type = typeof (T);

  var allControls = GetAllChildrens(control);

  return allControls.Where(c => c.GetType() == type).Cast<T>();
}

private static IEnumerable<Control> GetAllChildrens(Control control)
{
  var controls = control.Controls.Cast<Control>();
  return controls.SelectMany(c => GetAllChildrens(c))
    .Concat(controls);
}
Тед
источник
0

Это может сработать:

Public Function getControls(Of T)() As List(Of T)
    Dim st As New Stack(Of Control)
    Dim ctl As Control
    Dim li As New List(Of T)

    st.Push(Me)

    While st.Count > 0
        ctl = st.Pop
        For Each c In ctl.Controls
            st.Push(CType(c, Control))
            If c.GetType Is GetType(T) Then
                li.Add(CType(c, T))
            End If
        Next
    End While

    Return li
End Function

Я думаю, что функция получения всех элементов управления, о которых вы говорите, доступна только в WPF .

Алекс Руайяр
источник
0

Вот проверенное и работающее универсальное решение:

У меня есть большое количество элементов управления UpDownNumeric, некоторые в основной форме, некоторые в групповых ящиках внутри формы. Я хочу, чтобы только один последний выбранный элемент управления изменил задний цвет на зеленый, для чего я сначала установил все остальные на белый, используя этот метод: (также может расширяться до внуков)

    public void setAllUpDnBackColorWhite()
    {
        //To set the numericUpDown background color of the selected control to white: 
        //and then the last selected control will change to green.

        foreach (Control cont in this.Controls)
        {
           if (cont.HasChildren)
            {
                foreach (Control contChild in cont.Controls)
                    if (contChild.GetType() == typeof(NumericUpDown))
                        contChild.BackColor = Color.White;
            }
            if (cont.GetType() == typeof(NumericUpDown))
                cont.BackColor = Color.White;
       }
    }   
samtal
источник
Это не работает, если у дочернего элемента управления есть собственные дочерние элементы.
soulblazer
0

Вы можете попробовать это, если хотите :)

    private void ClearControls(Control.ControlCollection c)
    {
        foreach (Control control in c)
        {
            if (control.HasChildren)
            {
                ClearControls(control.Controls);
            }
            else
            {
                if (control is TextBox)
                {
                    TextBox txt = (TextBox)control;
                    txt.Clear();
                }
                if (control is ComboBox)
                {
                    ComboBox cmb = (ComboBox)control;
                    if (cmb.Items.Count > 0)
                        cmb.SelectedIndex = -1;
                }

                if (control is CheckBox)
                {
                    CheckBox chk = (CheckBox)control;
                    chk.Checked = false;
                }

                if (control is RadioButton)
                {
                    RadioButton rdo = (RadioButton)control;
                    rdo.Checked = false;
                }

                if (control is ListBox)
                {
                    ListBox listBox = (ListBox)control;
                    listBox.ClearSelected();
                }
            }
        }
    }
    private void btnClear_Click(object sender, EventArgs e)
    {
        ClearControls((ControlCollection)this.Controls);
    }
раши
источник
1
Простая публикация кода мало помогает оператору понять их проблему или ваше решение. Вы почти ВСЕГДА должны включать какое-либо объяснение в свой код.
leigero
В вопросе ничего не говорилось об очистке формы.
LarsTech
Да, не отвечает на «вопрос», но является приятным дополнением к нему. Спасибо!
0

Хотя несколько других пользователей опубликовали адекватные решения, я хотел бы опубликовать более общий подход, который может быть более полезным.

Это во многом основано на ответе Дж. Йелтона.

public static IEnumerable<Control> AllControls(
    this Control control, 
    Func<Control, Boolean> filter = null) 
{
    if (control == null)
        throw new ArgumentNullException("control");
    if (filter == null)
        filter = (c => true);

    var list = new List<Control>();

    foreach (Control c in control.Controls) {
        list.AddRange(AllControls(c, filter));
        if (filter(c))
            list.Add(c);
    }
    return list;
}
JamesFaix
источник
0
    public static IEnumerable<T> GetAllControls<T>(this Control control) where T : Control
    {
        foreach (Control c in control.Controls)
        {
            if (c is T)
                yield return (T)c;
            foreach (T c1 in c.GetAllControls<T>())
                yield return c1;
        }
    }
Корай
источник
0
    public IEnumerable<T> GetAll<T>(Control control) where T : Control
    {
        var type = typeof(T);
        var controls = control.Controls.Cast<Control>().ToArray();
        foreach (var c in controls.SelectMany(GetAll<T>).Concat(controls))
            if (c.GetType() == type) yield return (T)c;
    }
Валех Микаилзаде
источник
0

Для тех, кто ищет версию кода Адама C # на VB, написанную как расширение Controlкласса:

''' <summary>Collects child controls of the specified type or base type within the passed control.</summary>
''' <typeparam name="T">The type of child controls to include. Restricted to objects of type Control.</typeparam>
''' <param name="Parent">Required. The parent form control.</param>
''' <returns>An object of type IEnumerable(Of T) containing the control collection.</returns>
''' <remarks>This method recursively calls itself passing child controls as the parent control.</remarks>
<Extension()>
Public Function [GetControls](Of T As Control)(
    ByVal Parent As Control) As IEnumerable(Of T)

    Dim oControls As IEnumerable(Of Control) = Parent.Controls.Cast(Of Control)()
    Return oControls.SelectMany(Function(c) GetControls(Of T)(c)).Concat(oControls.Where(Function(c) c.GetType() Is GetType(T) Or c.GetType().BaseType Is GetType(T))
End Function

ПРИМЕЧАНИЕ: я добавил BaseType сопоставление для любых производных настраиваемых элементов управления. Вы можете удалить это или даже сделать его необязательным параметром, если хотите.

использование

Dim oButtons As IEnumerable(Of Button) = Me.GetControls(Of Button)()
SteveCinq
источник
0

Создать метод

public static IEnumerable<Control> GetControlsOfType<T>(Control control)
{
    var controls = control.Controls.Cast<Control>();
    return controls.SelectMany(ctrl => GetControlsOfType<T>(ctrl)).Concat(controls).Where(c => c is T);
}

И используйте это как

Var controls= GetControlsOfType<TextBox>(this);//You can replace this with your control
Люцифер
источник
0

Я хорошо использую VB, поэтому я написал метод расширения. Это извлекает всех дочерних и дочерних элементов управления

Imports System.Runtime.CompilerServices
Module ControlExt

<Extension()>
Public Function GetAllChildren(Of T As Control)(parentControl As Control) As IEnumerable(Of T)
    Dim controls = parentControl.Controls.Cast(Of Control)
    Return controls.SelectMany(Of Control)(Function(ctrl) _
        GetAllChildren(Of T)(ctrl)) _
        .Concat(controls) _
        .Where(Function(ctrl) ctrl.GetType() = GetType(T)) _
    .Cast(Of T)
End Function

End Module

Затем вы можете использовать это как, где "btnList" - это элемент управления

btnList.GetAllChildren(Of HtmlInputRadioButton).FirstOrDefault(Function(rb) rb.Checked)

В этом случае он выберет выбранную радиокнопку.

Iannick
источник
-1

Просто:

For Each ctrl In Me.Controls.OfType(Of Button)()
   ctrl.Text = "Hello World!"
Next
Leebeedev
источник
При этом будут найдены только элементы управления непосредственно в коллекции элементов управления «Я», но не будут обнаружены элементы управления Button, которые находятся в каких-либо дочерних контейнерах, как плакат пытался подразумевать с помощью «ВСЕ».
ChrisPBacon