Лекция: Поле со списком

 

Элемент управления 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.

 

еще рефераты
Еще работы по информатике