Поле со списком, или комбинированный список(Combobox)
.
Известный
нам элемент поля с раскрывающимся
списком .Для его создания используется
кнопка 
в панели инструментов
Данный элемент управления очень похож на «список» по своим свойствам и возможностям. Отличие в том, что может быть выбран только один элемент из раскрывающегося списка, который появится в текстовом поле.
Свойства: ListIndex, ListCount, Text, RowSource, методы Clear, АddItem,
RemoveItem – такие же, как и в ListBox.
Пример использования.
Например,
в комбинированном поле со списком, есть
аргументы, при которых мы хотим посчитать
функцию
.
Как записать код для подсчёта значения
функции и вывода этого значения в элемент
Textbox.
При запуске нашего проекта должна появиться форма вида:
Нам предлагают вычислить функцию в точке 5. Если это нас устраивает, нажимаем кнопку «вычислит». Иначе открываем список и выбираем другое значение из списка, при котором хотим подсчитать значение нашей функции. О том как сформируем список поговорим чуть ниже.
Таблица свойств объектов формы.
Объект |
Свойство |
Значение |
Форма Form |
Name Caption |
frmCount подсчёт значения |
Кнопка CommandButton |
Name Caption |
cmdCulk вычислить |
Этикетка Label |
Name Caption |
lblarg аргумент |
Поле со списком Combobox |
Name Text |
cboargument 5 |
Этикетка Label |
Name Caption |
lblEXIT вывод значения |
Текстовое поле Text box |
Name Text Multilane (возможность печати нескольких строк) Scroll Bar |
txtРезультат
TRUE
2– вертикальная полоса прокрутки |
Кнопка CommandButton |
Name Caption |
cmdexit выход |
Рисунок Image |
Name Picture |
Imgformula c:\for.bmp |
Информация для формирования списка подготовлена на рабочем листе «лист1» в диапазоне «А1: А?» и сколько чисел в нашем списке считаем заранее неизвестным ( например, кто-то другой готовил эту информацию). Заполнение списка осуществим во время инициализации формы.
Код программы.
OPTION EXPLICIT ‘все переменные должны быть объявлены
Private Sub UserForm_Initialize()
cboargument. Clear ‘Очистка списка
WorkSheets(“лист1”).Activate ‘ Активизация рабочего листа «лист1»
‘Заполнение списка числами входящими в непрерывный диапазон А1:А?
cboargument.RowSource = Range(“A!”).CurrentRegion.Address
End Sub
‘Обработка события «щелчок на кнопке «Вычислить».
Private Sub cmdCulk_Click()
‘ строка – переменная для вывода информации. Информацию накапливаем в этой переменной.
‘ строка1 – промежуточная текстовая переменная, используемая для формирования списка
‘ y – промежуточная числовая переменная для хранения значения функции.
STATIC строка as string
DIM строка1 as string, y as single
y= ((sin(Val(cbo_аргумент.text)))^2+1)^(1/2)
‘ cboаргумент.text – содержит число, выбираемое при щелчке на значение в раскрывающемся ‘списке.
строка1= ”аргумент х=”+cboаргумент.txt+SPACE (5)+”y=”+str(y)+VbCrlf
‘ SPACE (n) – функция, добавляющая n пробелов‘ в записи; например, SPACE (5) – 5 пробелов
‘ VbCrlf – константа, обеспечивающая переход на новую строку
строка=строка+строка1
txtРезультат.text=строка ‘ вывод накопленного списка в текстовое поле
END SUB
Некоторые комментарии к программе.