Студопедия

Главная страница Случайная страница

Разделы сайта

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






Использование списков и полей со списками






 

Списки и поля со списками – самые удобные элементы для выбора пользователем выбора информации. Список – это массив строк, на который можно формально сослаться с помощью свойства List. Основные операции в списках и полях со списками заключаются в добавлении и удалении строк в свойство List списка двумя способами – при разработке (в свойствах) и во время выполнения программы.

 

Добавление строк в список во время разработки:

1. Добавить в форму элемент ListBox или ComboBox

2. Выделить этот элемент в форме.

3. В окне свойств в свойстве List набрать нужную строку. Чтобы добавить несколько строк – после добавления каждой нажимайте Ctrl+Enter.

 

Добавление строк во время выполнения программы:

Добавление строк производится с помощью метода AddItem:

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

Object. AddItem StringToAdd

Например:

List1.AddItem “Яблоки”

 

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

Удаление строк с помощью метода 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

 






© 2023 :: MyLektsii.ru :: Мои Лекции
Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав.
Копирование текстов разрешено только с указанием индексируемой ссылки на источник.