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


 

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

9853. Россия в начале 21 века. Новые тенденции политической жизни 25.75 KB
  Россия в начале 21 века. Новые тенденции политической жизни. Руководство страны проводит активную внешнюю политику за своё утверждение на международной арене. Россия, став правопреемницей СССР, отстаивает статус сильного государства, с которым должн...
9854. Просвещенный абсолютизм Екатерины 2. Расцвет дворянской империи 26.54 KB
  Просвещенный абсолютизм Екатерины 2. Расцвет дворянской империи. Эпоха Екатерины II (1762-1796) составляет значительный этап в истории России. Данный период российской истории всегда вызывал живой интерес исследователей. Представители советской исто...
9855. Экономическая перестройка М.С. Горбачева: трудные поворот к рынку 25.94 KB
  Экономическая перестройка М.С. Горбачева: трудные поворот к рынку. К концу 70-х гг. для части советского руководства стала очевидной невозможность сохранения без изменений существовавших в стране порядков. На экономической ситуации неблагоприятно ск...
9856. Эволюция промышленного производства в России 9-17 век 23.45 KB
  Эволюция промышленного производства в России 9-17 век. Ремесло первоначально зарождалось в патриархальных семьях как домашние промыслы для обслуживания себя и своих родственников. Эти изделия не выходили за рамки семьи и не поступали в продажу. В XI...
9857. Гражданская война в России: причины, этапы, характеристика противоборствующих сил 73 KB
  Местные государственные администрации – это звено исполнительной власти в областях, районах, городах Киеве и Севастополе. В границах своих полномочий они осуществляют исполнительную власть на территории соответствующей административно-территориальной единицы, а также реализуют полномочия, делегированные им соответствующими советами.
9858. Реформы политической системы в первой половине 19 века 38.19 KB
  Реформы политической системы в первой половине 19 века. Ограничение самодержавия являлось важнейшим условием перехода России к индустриальному обществу. Эта проблема была осознана верховной властью и передовой общественностью уже в начале ХГХ века. ...
9859. Мягкая модель сталинизма: власть и общество в 1964-1984гг. от стагнации к кризису 27.49 KB
  Мягкая модель сталинизма: власть и общество в 1964-1984гг. от стагнации к кризису. После смещения Н.С. Хрущева на октябрьском (1964) Пленуме ЦК КПСС Первым секретарем ЦК партии был избран Л.И. Брежнев. Новые веяния в политике начались сразу же после...
9860. Реформирование политической системы России во второй половине 19 века: земская, городская, судебная, военная реформы 60-70-х гг 38.44 KB
  Реформирование политической системы России во второй половине 19 века: земская, городская, судебная, военная реформы 60-70-х гг. Ограничение самодержавия являлось важнейшим условием перехода России к индустриальному обществу. Эта проблема была осозн...
9861. Становление рыночной экономики в постсоветской России (1992-2000 гг.) 27.92 KB
  Становление рыночной экономики в постсоветской России (1992-2000 гг.). Российская экономика требовала дальнейших преобразований. Были продолжены экономические мероприятия по переходу от командно-административных принципов к рыночной системе регулиро...