99555

Коллекции объектов в Visual Basic

Доклад

Информатика, кибернетика и программирование

В Visual Basic объекты можно объединять в коллекции. Как правило, такие объекты относятся к одному типу. Однако можно объединять в коллекцию и объекты разных типов. Коллекция позволяет выполнять некоторые одинаковые действия со всеми входящими в нее объектами.

Русский

2016-09-23

125 KB

0 чел.

Коллекции объектов

К коллекции объектов можно применять оператор For Each.

В Visual Basic объекты можно объединять в коллекции. Как правило, такие объекты относятся к одному типу. Однако можно объединять в коллекцию и объекты разных типов. Коллекция позволяет выполнять некоторые одинаковые действия со всеми входящими в нее объектами.

В Visual Basic определены две встроенные коллекции объектов, к которым можно обращаться непосредственно:

Forms - включает все загруженные формы проекта;

Controls - включает управляющие элементы всех форм.

Каждая коллекция, кроме методов и свойств, входящих в нее объектов, имеет собственные методы и свойства. Кроме того, все коллекции имеют следующие общие свойства и методы:

• свойство Count - содержит число объектов в коллекции;

• метод Item - служит для выбора объекта в коллекции. Некоторые коллекции имеют следующие методы:

Add - с его помощью в коллекцию можно включить новый объект;

Remove - с его помощью объект можно исключить из состава коллекции.

В случае необходимости, кроме встроенных коллекций, можно определять свои коллекции. Для этого необходимо создать объект типа Collection. Объявление такого объекта имеет синтаксис

Public  |    [Private] |  Dim ИмяКоллекции As New Collection

 Некоторые объекты могут не поддерживать какое-то конкретное свойство или метод. VB позволяет обойти это препятствие двумя способами: с помощью ключевого слова TypeOf и функции TypeName.

Ключевое слово TypeOf можно использовать только в операторах IfThenElse … . Необходимо включить имя класса непосредственно в разрабатываемый код. Например, If TypeOf MyControl Is CheckBox Then ….

Функция TypeName отличается большей гибкостью. Ее можно использовать в любом месте кода и, так как она возвращает имя класса в строке, ее можно использовать в операторах сравнения со строковой переменной.

Рассмотрим пример создания коллекции управляющих элементов и их массовой обработки. В экранной форме проекта для этого примера будут размещены пять элементов управления CommandButton и один элемент Label. Все элементы CommandButton будут включены в коллекцию, а затем для каждого управляющего элемента этой коллекции в цикле For Each свойствам Caption будет установлено значение Мы из коллекции. Для разработки программы примера следует выполнить такие действия.

1. Создать новый проект с экранной формой, как показано на рис. 1, установить ее свойству Caption значение Цикл For Each.

Рис. 1

2. Поместить в форму управляющий элемент CommandButton, а затем создать массив из четырех этих элементов.

3. Поместить в экранную форму еще два элемента CommandButton, установив их свойствам Caption значения Выполнить и Выход соответственно.

4. Свойству Caption управляющего элемента Label установить значение Коллекция управляющих элементов.

5. В раздел "General" формы поместить код:

Option Explicit

Dim Коллекция As New Collection 'Объявление объекта типа Collection

Dim X As Control 'Объявление переменной типа Control

6. В процедуру обработки события Click для управляющего элемента с именем Command2 поместить код:

Private Sub Command2_Click()

For Each X In Controls   'Начало цикла

If TypeOf X Is CommandButton Then

 'Если управляющий элемент CommandButton,

'то добавить в коллекцию

Коллекция.Add X

End If

Next X 'Конец цикла For Each

For Each X In Коллекция

'Цикл, устанавливающий значения свойств

'Caption коллекции элементов

X.Caption = «Мы из коллекции»

Next X

End Sub

7. В процедуру обработки события Click для управляющего элемента с именем Command3 поместить код:

Private Sub Command3_Click()

End

       End Sub

8. Запустить программу на выполнение. После щелчка мышью по кнопке <Выполнить> изображение на экране примет вид, как показано на рис. 2.

Рис. 2


 

А также другие работы, которые могут Вас заинтересовать

47402. Банковские операции: состояние и перспективы развития 318.5 KB
  Роль коммерческого банка в развитии экономики. в Генуе “Банка ди Сан Джорджоâ€. Через коммерческие банки осуществляются безналичные расчеты через корреспондентские счета в центральных банках. До 80 капитала акционерных коммерческих банков которых насчитывалось около 50 было сосредоточено в 18 банках.
47403. Оценка конкурентоспособности предприятий торговли и основные направления её повышения 441 KB
  Конкурентоспособность предприятия торговли. Сущность конкурентоспособности предприятия торговли и факторы ее определяющие. Методы оценки конкурентоспособности торгового предприятия. Управление конкурентоспособностью предприятия.
47404. Проектирование заготовочно-сборочного цеха 365 KB
  После вырубания стельку надсекают в носочнопучковой части для увеличения гибкости на ширину 2560 мм. Обычно удаляемые газы выводят по высоким трубам рассеивания и большой скоростью. Среднемесячная заработная плата одного работающего руб. Среднемесячная заработная плата одного рабочегосдельщика руб.
47405. Анализ работы технологии Тандем на Покамасовском месторождении НГДУ Лангепаснефть 1.27 MB
  Подсчет запасов нефти и растворенного газа по состоянию на 1. Начальные балансовые извлекаемые запасы нефти составляли по категории С1 – 163356 75920 тыс. Повышенный газовый фактор низкая продуктивность пластов существенная не стационарность процессов фильтрации тяжелый вывод скважин на режим после глушения и другие осложнения значительно затрудняют работу серийного насосного погружного оборудования для добычи нефти.
47406. Использование трудовых ресурсов и фонда оплаты труда на примере МУП «ПУ водопроводно-канализационного хозяйства» 149.67 KB
  Актуальность темы Анализ трудовых ресурсов и фонда оплаты труда так как считаю что она очень актуальна и к тому же трудовые ресурсы являются неотъемлемой частью каждого российского предприятия. И для того чтобы выявить и более эффективно использовать трудовые ресурсы на каждом предприятии необходимо проводить экономический анализ. Целью выпускнойквалификационной работы является проведение анализа использования трудовых ресурсов и фонда оплаты труда на примере МУП ПУ водопроводноканализационного хозяйства. Исходя из...
47408. Исследование формирования лидерских качеств у старших дошкольников 155.77 KB
  Теоретические основы проблем формирования лидерских качеств у старших дошкольников предпосылок лидерских качеств у старших дошкольников Роль воспитателя в формировании лидерских качеств старших дошкольников в условиях ФГТ Выводы по первой главе 41 Экспериментальное исследование формирования лидерских качеств у старших дошкольников 2.2 Разработка комплекса мероприятий по формированию лидерских качеств 52 2.
47409. Создание и функционирование лизинговой компании 467 KB
  Добролюбова Переводческий факультет Кафедра Экономический анализ финансы и аудит Дипломная работа Создание и функционирование лизинговой компании Исполнитель Ф. Об арендной и лизинговой деятельности Создание и функционирование международной лизинговой компании Лицензирование международной лизинговой деятельности
47410. Оценка финансового состояния торгового предприятия на примере ООО «Ярстрой» 722.5 KB
  СОЛОВЬЕВА Факультет очнозаочного обучения Кафедра экономики ВЫПУСКНАЯ КВАЛИФИКАЦИОННАЯ РАБОТА Дипломная работа Оценка финансового состояния торгового предприятия на примере ООО Ярстрой на соискание квалификации экономистменеджер по специальности 060800 Экономика и управление на предприятии машиностроения Соискатель студент группы ВЭП 199 Крупина Н. Тема выпускной работы Оценка финансового состояния торгового предприятия на примере ООО Ярстрой Содержание выпускной работы: 2. Содержание анализа финансового состояния предприятия 7...