5.3. Поле со списком

Элемент управления ComboBox (поле со списком) создаётся с помощью кнопки Поле со списком (ComboBox). Элемент управления ComboBox применяется для хранения списка значений. Он сочетает в себе функциональные возможности списка ListBox и поля TextBox. В отличие от ListBox, в элементе управления ComboBox отображается только один элемент списка. Кроме того, у него отсутствует режим выделения нескольких элементов списка, но он позволяет вводить значение, используя поле ввода, как это делает элемент управления TextBox.

Свойства Объекта ComboBox, такие как Listlndex, ListCount, Enabled, List и методы Clear, Removeitem и Additem аналогичны соответствующим свойствам и методам списка ListBox. Кроме того, у него есть ряд уникальных свойств.

Приведём наиболее употребляемые из уникальных свойств элемента управления ComboBox в таблице 26.

Таблица 26 – Свойства элемента управления ComboBox

Свойства	Описание
DropButtonStyle	Устанавливает вид раскрывающегося списка. Допустимые значения: fmDropButtonStylePlain (кнопка без символов) FmDropButtonStyleArrowDisplays (кнопка со стрелкой) FmDropButtonStyleEllipsis (кнопка с эллипсом) FmDropButtonStyleReduce (кнопка с линией)
ListRows	Устанавливает число элементов, отображаемых в раскрывающемся списке
MatchRequired	Допустимые значения: True (в поле ввода раскрывающегося списка нельзя ввести значения, отличные от перечисленных в списке, т. е. в поле со списком отключается функция поля ввода) и False (в противном случае)
MatchFound	Допустимые значения: True (среди элементов раскрывающегося списка имеется элемент, совпадающий с вводимым в поле ввода раскрывающегося списка) и False (в противном случае)

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

Для получения выбранного элемента списка используется свойство Text элемента управления, например:

А = ComboBox1.Text,

В = ListBox1.Text.

Добавление элементов списка:

• во время работы приложения (программным путем) используется метод Addltem, который имеет следующий синтаксис имя поля.

Addltem элемент [, индекс], где элемент – строковое выражение, добавляемое в перечень элементов списка, индекс – указание номера элемента списка (нумерация элементов начинается с нуля). Если индекс отсутствует, то новый элемент добавляется в конце списка, например оператором ComboBox1.Addltem («5 января»), 1, на вторую позицию списка будет добавлен новый элемент «5 января».

Задание: вычислить произведение и сумму, а также вывести таблицы значений х и у, изменяя переменную х от начального значения х, с шагом h_x. Использовать при разработке программных кодов операторы Do ... Loop и For ... Next.

Пример оформления лабораторной работы

Содержание отчёта

1. Текст задания.

2. Эскиз формы.

3. Таблица свойств объектов.

4. Список идентификаторов.

5. Структура приложения.

6. Блок-схема алгоритма.

7. Содержимое раздела general и программные коды процедур.

8. Результаты счёта.

Задание

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

;

Выполнение

Имена идентификаторов и свойства объектов управления представлены в таблицах 27 и 28, а результат работы приложения на рисунке14.

Рисунок14 – Блок-схема

Таблица 27 – Свойства объектов управления

Переменная или константа	Тип	Идентификатор
Независимая переменная h	вещественная (Single)	h
Зависимая переменная x	вещественная (Single)	x
Зависимая переменная p	вещественная (Single)	p
Зависимая переменная i	вещественная (Integer)	i
Зависимая переменная s	вещественная (Single)	s

Таблица 28 – Свойства объектов управления

Элемент управления	Значение свойства:
	Caption	Name
CommandButton	Вычислить	CommandButton1
TextBox		TextBox1
TextBox		TextBox2
TextBox		TextBox3
TextBox		TextBox4
Label1	Введите x	Label1
Label1	Введите h	Label2
Label1	Результат работы	Label3
Label1	Сумма s	Label4
Label1	Произведение p	Label5

Рисунок 15 – Результат работы приложения

Листинг программного кода

Private Sub CommandButton1_Click()

Dim i As Integer

Dim x As Single, h As Single, s As Single, p As Single

ListBox1.Clear

x = Val(TextBox1)

h = Val(TextBox2)

s = 0

p = 1

For i = 1 To 13

s = s + (3.14159 – Exp(x) * Log(x))

p = p * (3.14159 – Exp(x) * Log(x))

x = x + h

Next i

TextBox3.Text = Format(s, "0.00000000")

TextBox4.Text = Format(p, "0.00000000")

End.