[Имя формы.] имя объекта.AddItem элемент [, индекс],

где Элемент – это, что добавляется в список; Индекс – номер добавляемого элемента. Примеры:

lstList1.AddItem “Привет” –включение строки “Привет” в конец списка

lstList1.AddItem “Привет”,3 – добавить «Привет» в список 4-й строкой.

Если номер не указан, строка добавляется в конец списка, или, если свойство Sorted = true, позиция определяется порядком сортировки.

Упражнение 7 Работа со списками.

1. Подключить к проекту новую форму с именем Frm3List и свойством Caption = «Работа со списками».

2. Создать на форме два списка List1 и List2. Свойству Sorted списка List1 присвоить значение True.

3. В правом нижнем углу формы установить кнопку с подписью Выход, а в окно ее программного кода записать:

Private Sub Command1_Click()

End

End Sub

4. Разместить один список в верхней, а другой в нижней половине формы. Изменить размеры списков так, чтобы их ширина совпадала с половиной ширины формы.

5. Дважды щелкнуть на форме и добавить в процедуру события Load следующий фрагмент:

Private Sub Form_Load()

List1.AddItem "Гайки" : List1.AddItem "Болты"

List1.AddItem "Гвозди" : List1.AddItem "Скобы"

List1.AddItem "Молоток" : List1.AddItem "Пила"

List1.AddItem "Напильник": List1.AddItem "Наждак"

List1.AddItem "Рубанок"

End Sub

6. Добавить в процедуру события DblClicK списка List1 следующее:

Private Sub Form_DblClick()

' Включить строку в другой список

List2.AddItem List1.Text

‘ Удалить строку из данного списка

List1.RemoveItem List1.ListIndex

End Sub

7. Добавить в процедуру события DblClick списка List2:

Private Sub List2_Click()

' Включить строку в другой список

List1.AddItem List2.Text

' Удалить строку из данного списка

List2.RemoveItem List2.ListIndex

End Sub

8. Запустить программу. Проверить работу приложения. Двойной щелчок на любой строке перемещает ее в другой список. Метод AddItem должен вызываться раньше RemoveItem, поскольку в противном случае в другой список попадет не та строка.

Список List1 (рис. 15)отсортирован в алфавитном порядке, в отличие от списка List2.

9. Завершить работу приложения, нажав кнопку Выход. Сохранить форму приложения «Работа со списками».

Рисунок (Image) является упрощенным вариантом графического поля. Рисунок входящий в комплект VB отображает растровые файлы (.BMP- формат хранения растровых изображений в Windows), значки (.ICO), метафайлы (.WMF- формат хранения векторных изображений операционной системы Windows), а также файлы формата JPG (.JPG – формат хранения растровых изображений в электронных публикациях) и .GIF (.GIF – формат хранения сжатых изображений с фиксированным количеством цветов). Свойства: Picture, Name, Stretch

Свойство Picture задает файл графических элементов.

Свойство Stretch имеет логический тип (по умолчанию False). Если False, то размеры элемента автоматически погоняются под размер изображения. Если True, то изображение масштабируется вместе с рисунком.

Упражнение 8. Работа с рисунками

1. Добавить форму с именем frmImg, а Caption=“Работа с рисунками”.

2. На форме создать объект типа Image (Образ), который служит контейнером графических объектов.

3. Создать окно Text1 с заголовком “Введите имя файла”. В программном окне Text1 ввести следующий код:

Option Explicit

Private a As String

Private Sub Text1_Change()

a$ = text1.Text

End Sub

4. Установить на форме кнопку Command1 с заголовком: Показать. В программный код кнопки записать:

Private Sub Command1_Click()

Image1.Picture = LoadPicture(a)

End sub

5. Запустить приложение. Если пользователь программы вводит имя существующего файла с изображением (рис. 16), это изображение отобразится на экране. Если файл не существует, будет выдано сообщение.