Лекция: Поле со списком
Элемент управления 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 января».
Задание: вычислить произведение и сумму, а также вывести таблицы значений х и у, изменяя переменную х от начального значения х, с шагом hx. Использовать при разработке программных кодов операторы Do… Loop и For… Next.
Пример оформления лабораторной работы
Содержание отчёта
1. Текст задания.
2. Эскиз формы.
3. Таблица свойств объектов.
4. Список идентификаторов.
5. Структура приложения.
6. Блок-схема алгоритма.
7. Содержимое раздела general и программные коды процедур.
8. Результаты счёта.
Задание
Вычислить произведение и сумму, а также вывести таблицы значений х и у, изменяя переменную х от начального значения х, с шагом hx.
;
Выполнение
Имена идентификаторов и свойства объектов управления представлены в таблицах 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.