Как обратится к ComboBox если он находится в цикле

@kOS_77 · Регистрация: 14.06.2011

Студворк — интернет-сервис помощи студентам

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

То что хочу сделать я:

VB.NET
1
2
3
For i = 1 to 10
Me.Controls("ComboBox" & i).add("123")
Next

Ругается что Add нет у коллекции...

@XIST · 19.06.2012, 21:22

Попробуй AddRange

Добавлено через 3 минуты
Ой, я не про то
во

VB.NET
1
2
3
4
5
6
7
8
 For Each c As Control In Me.Controls
            If TypeOf (c) Is ComboBox Then
                With CType(c, ComboBox)
                    .Enabled = False
                    .Text = "!"
                End With
            End If
        Next

@kOS_77 · 19.06.2012, 21:46 **[ТС]**

Неа, Тext он и так наследует, т.e. вот так:

VB.NET
1
2
3
For i = 1 to 10
Me.Controls("ComboBox" & i).text = "123"
Next

Нет проблем, а вот добавить items не хочет... говорит нет у контролов add...

@XIST · 19.06.2012, 21:54

Потому как в первом случаи, ты обращаешься к CB, а нужно к items

VB.NET
1
2
3
4
5
6
7
8
For Each c As Control In Me.Controls
            If TypeOf (c) Is ComboBox Then
                With CType(c, ComboBox)
                    .Items.Add("123")
                    '.Text = "!"
                End With
            End If
        Next

@Юпатов Дмитрий · 19.06.2012, 22:06

а так?

VB.NET
1
2
3
4
5
Dim cmb as combobox
For i = 1 to 10
cmb=Me.Controls("ComboBox" & i)
cmb.items.add("123")
Next

@kOS_77 · 19.06.2012, 22:32 **[ТС]**

Ага, ругаться перестал, а как здесь цикл из 5 Комбобоксов сделать ?

Добавлено через 1 минуту

Сообщение от Юпатов Дмитрий

а так?

VB.NET
1
2
3
4
5
Dim cmb as combobox
For i = 1 to 10
cmb=Me.Controls("ComboBox" & i)
cmb.items.add("123")
Next

Неа, ругается - Unable to cast object of type 'Elegant.Ui.ComboBox' to type 'System.Windows.Forms.ComboBox'.

@XIST · 19.06.2012, 22:34

а что за контрол такой Elegant.Combobox

А чем контролы этой фирмы отличаются? Только обложками а-ля офис?

@kOS_77 · 19.06.2012, 23:18 **[ТС]**

ВО ! Сработало ! Проблема была в том что у меня комбобокс не стандартный а из Elegant.Ui.ComboBox. Получилось так:

VB.NET
1
2
3
4
5
Dim cmb As Elegant.Ui.ComboBox
        For i = 1 To 8
            cmb = Me.Controls("ComboBox" & i)
            cmb.Items.Add("123")
        Next

Добавлено через 2 минуты

Сообщение от DM_AND

а что за контрол такой Elegant.Combobox

Есть такой... Здесь можно скачать коллекцию дополнительных контролов.

Добавлено через 41 минуту

Сообщение от DM_AND

А чем контролы этой фирмы отличаются? Только обложками а-ля офис?

В принципе да, там все для офиса, практически весь интерфейс его.

Новые блоги и статьи Все статьи Все блоги /
Перемещение выделенных строк ТЧ из одного документа в другой Maks 30.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .

@XIST 1961 / 1071 / 148 Регистрация: 01.10.2009 Сообщений: 3,606 Записей в блоге: 1
	19.06.2012, 22:34
	а что за контрол такой Elegant.Combobox А чем контролы этой фирмы отличаются? Только обложками а-ля офис? 0