Удаление строк из списка

Удаление строк с помощью метода RemoveItem:

Формат записи:

Object.RemoveItem Index

Пример:

List1.RemoveItem (List1.listIndex)

Очистка списка:

Для удаления всех строк из списка или поля со списком используется метод Clear:

Object.Clear

Например:

List1.Clear

ПРИМЕР:

Форма

Код

Private Sub Action_Click()

Const R$ = "Рубли"

Const Ru$ = "Россия"

Const D$ = "Доллары"

Const US$ = "США"

Const F$ = "Фунты"

Const GB$ = "Великобритания"

text1.Text = List1.Text

text2.Text = Combo1.Text

If List1.Text = R$ And Combo1.Text = Ru$ Then MsgBox "Правильно": Exit Sub

If List1.Text = D$ And Combo1.Text = US$ Then MsgBox "Правильно": Exit Sub

If List1.Text = F$ And Combo1.Text = GB$ Then MsgBox "Правильно": Exit Sub

MsgBox "Неправильно"

End Sub

Практическая работа

Форма

Код (попробовать создать самостоятельно)

Private Sub Command1_Click()

List1.AddItem Text1.Text

End Sub

Private Sub Command2_Click()

List1.RemoveItem (List1.ListIndex)

End Sub

САМОСТОЯТЕЛЬНО

1. Приложение: Вывести в элемент «Список» числа по порядку от 1 до 10, используя цикл со счетчиком.

2. Изменить приложение с 2 задания так, чтобы числа выводились до тех пор, пока не встретится число 8. (Do While … Loop)

3. Задание 2, но с циклом Do Until … Loop

4. Создать форму с двумя списками, между которыми находятся две кнопки – кнопка «Переместить одну строку» и кнопка «Переместить все строки». Список 1 заполнить в режиме разработки словами: Компьютер, Архитектура, Процессор, Клавиатура, Принтер, Монитор. Кнопка 1 перемещает выбранное слово из Списка 1 в Список 2. Кнопка 2 перемещает все строки.

Дополнительно:

Свойство списка <ListCount> содержит общее число элементов в списке List. Нижняя граница индексов этого объекта = 0.

Свойство <List (индекс)> списка List, в котором допускается выбор нескольких элементов, возвращает по номеру пункта его текст.

Напоминание формата записи: Объект.СвойствоОбъекта

Ф орма Код (самостоятельно)

Private Sub Command1_Click()

List2.AddItem List1.Text

List1.RemoveItem (List1.ListIndex)

End Sub

Private Sub Command2_Click()

For i = 0 To List1.ListCount

List2.AddItem List1.List(i)

Next i

List1.Clear

End Sub

Массивы

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

Аналогично массив можно представить как набор стаканчиков. Каждый стаканчик этого набора может содержать данные одного и того же типа, и все стаканчики этого набора имеют одно и то же имя. Каждый стаканчик является элементом массива, и у каждого есть свой порядковый номер (индекс), определяющий его место в массиве. Первому элементу массива обычно соответствует порядковый номер 0.

Объявления массивов Объявление массива как одной переменной:

Dim|Public|Private ИмяМассива(Размер) As ТипМассива

Dim|Public|Private – объявляет массив и определяет область его видимости. Массив можно объявить с помощью слова Dim, тогда он будет доступен только в процедуре, в которой создан. Public - доступен в любом месте программы. Private в разделе общих (General) объявлений формы или модуля – доступен в пределах этой формы или модуля. Использование Dim на уровне модуля делает массив доступным для всех процедур модуля.

Размер – номер последнего элемента массива. Если это число 6 – то в массиве будет 7 элементов (т.к. нумерация начинается с 0)

Примеры:

Dim Massiv(5) As Integer ‘ объявление массива на 6 элементов для целых чисел

Dim Array(8) As String ‘ объявление массива на 9 строковых переменных

Объявление массива с помощью ключевого слова To

При объявлении массива с помощью ключевого слова То можно описать диапазон индексов. Например, для создания массива для целых чисел с диапазоном индексов от 1 до 5 (на 5 элементов) используется оператор:

Dim MyInt(1 To 5) As Integer