Для элемента ComboBox установим следующие свойства:

В поле Name введем cmbCvet;

В поле List введем цвета, которые мы при выполнении программы будем выбирать из списка. Для этого в поле лист введем первое значение – красный, затем нажмем комбинацию клавиш <Ctrl>+<Enter>для перехода на следующую строку. Таким образом, введем все необходимые значения;

Для запрета ввода данных для свойства Style значение 2-Dropdown List.

Разместите на форме элемент управления Frame как показано на рисунке. В полученной рамке разместим три элемента OptionButton. Для каждого элемента OptionButton установим следующие свойства:

в поле Name установим следующие имена: optKrug, optKvadrat, optPryamaya

в поле Caption соответственно: Круг, Квадрат, Прямая;

на свое усмотрение установите цвет заднего фона.

Созданным кнопкам присвоим имена:

кнопке «Нарисовать» - cmdPaint;

кнопке «Очистить» - cmdClear;

кнопке «Выход» - cmdExit.

Для того чтобы при загрузке по умолчанию в поле списка было выбрано, например первое значение – красный, в процедуре загрузки формы запишем следующее:

Private Sub Form_Load()

cmbCvet.ListIndex = 0

End Sub

Установим определенный масштаб (систему координат) для элемента PictureBox. Для этого воспользуемся методом Scale. Запишем в уже созданную процедуру Form Load следующее:

Picture1.Scale (-5, 4)-(5, -4) – в качестве объекта используем элемент PictureBox с названием Picture1

Для того чтобы по умолчанию был установлен какой-нибудь переключатель, добавим в процедуру Form Load строку:

optKrug.Value = True

Процедура Form Load примет вид:

Private Sub Form_Load()

cmbCvet.ListIndex = 0

Picture1.Scale (-5, 4)-(5, -4)

optKrug.Value = True

End Sub

После нажатия на кнопку «Нарисовать» должна быть нарисована выбранная фигура, цветом соответствующим выбранному из списка. Для выполнения этого задания напишем следующий код:

Private Sub cmdPaint_Click()

Select Case cmbCvet.ListIndex – выбираем значения (ListIndex) из списка цветов (cmbCvet);

Case 0 – если выбрали первый элемент из списка (счет начинается с нуля), то есть выбран красный цвет, то выполняется следующая конструкция;

Picture1.FillColor = vbRed

Case 1

Picture1.FillColor = vbBlue

Case 2

Picture1.FillColor = vbGreen

Case 3

Picture1.FillColor = vbYellow

End Select

If optKrug.Value = True Then

Picture1.Circle (0, 0), 3, Picture1.FillColor

End If

If optKvadrat = True Then

Picture1.Line (-3, 2)-(3, -2), Picture1.FillColor, B

End If

If optPryamaya.Value = True Then

Picture1.Line (-3, 2)-(3, -2), Picture1.FillColor

End If

End Sub

Для очистки формы при нажатии на кнопку «Очистить» в процедуре для этой кнопки напишем следующий код:

Private Sub cmdClear_Click()

Picture1.Cls

End Sub

Для выхода из приложения напишем процедуру для обработки события Click кнопки «Выход»:

Private Sub cmdExit_Click()

End

End Sub

Пример №2: создадим программу, где вводятся данные в текстовые окна и выбираются нужные значения из предложенных списков. Эти данные при нажатии на кнопку «Добавить» будут помещаться в список в виде одной записи.

Создадим форму аналогичную показанной на Рис. 2. Добавим следующие элементы управления:

4 элемента TextBox;

6 элементов Label;

2 командные кнопки;

2 элемента ComboBox;

1 элемент ListBox.

Для добавленных элементов изменим соответствующим образом значения свойства Caption. Значения свойств Name для удобства оставим неизменными.

Наша программа должна выполнять два действия:

добавление данных введенных в поля ввода;

удаление выбранных записей из списка.

Следовательно, она должна обрабатывать два различных события. В качестве событий будем использовать щелчок по кнопкам «Добавить» и «Удалить».

Для ввода данных разместим на форме четыре элемента TextBox, для выбора стандартных значений - два элемента ComboBox. Для запрета ввода данных в раскрывающиеся списки свойству Style присвоим значение 2-Dropdown List. С помощью этих списков мы будем выбирать данные из фиксированного набора значений. Введем необходимые данные в списки:

для списка «Семейное положение» в свойство List внесем данные «женат (замужем)»,  «холост», «разведен» (переход на следующую строку «Ctrl»+ «Enter»);

для списка «Отдел» введите данные по собственному желанию.

Введенные данные при нажатии на кнопку «Добавить» будут помещаться в список (элемент управления ListBox). Для автоматической сортировки содержимого списка свойству Sorted присвоим значение True. При нажатии на эту кнопку будем также очищать поля ввода данных.

Откроем окно редактора кода для обработки щелчка по кнопке «Добавить» (событие Command1_Click()). Добавим следующий код:

List1.AddItem (Text1.Text + " " + Text2.Text + " " + Text3.Text + " " + Text4.Text + " " + Combo1.Text + " " + Combo2.Text) – с помощью метода AddItem добавляем в список List1 данные введенные в текстовые окна и комбинированные списки;

Text1.Text = "" – очищаем содержимое текстовых окон.

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Для того чтобы при нажатии на кнопку «Удалить» мы могли удалить данные из списка в процедуру Command2_Click() (щелчок по кнопке «Удалить») введем следующий код:

List1.RemoveItem (Item)

Для удаления данных из списков используется метод RemoveItem. Номер выбранного пункта передается через параметр Item.