Студопедия

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

КАТЕГОРИИ:

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






ИСПОЛЬЗОВАНИЕ СПИСКОВ И ПОЛЕЙ СО СПИСКАМИ




 

Списки и поля со списками – самые удобные элементы для выбора пользователем выбора информации. Список – это массив строк, на который можно формально сослаться с помощью свойства 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

 


mylektsii.ru - Мои Лекции - 2015-2019 год. (0.006 сек.)Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав Пожаловаться на материал