Применение функций InputBox и MsgBox в проекте

Приведем пример использования окон диалога.

Будем изменять цвет формы, задавая константы цветов в окне ввода InputBox. Удобно задавать цвет, используя функцию RGB.

Функция RGB позволяет получить любой цвет, смешивая красную, зеленую и синюю компоненты различной интенсивности.

Синтаксис: RGB(Red, Green, Blue)

где Red, Green, Blue - целые числа от 0 до 255:

• Red –интенсивность красного

• Green –интенсивность зеленого;

• Blue –интенсивность синего.

Расположим на форме элемент управления, согласно Рис. 30.

Рис. 30. Изменение цвета формы

Пример программного кода для изменения цвета формы.

Private Sub Command1_Click()

Dim btRed As Byte, btGreen As Byte, btBlue As Byte

' код для красного

On Error Resume Next

btRed=CByte(InputBox("Введите интенсивность красного - число от 0 до 255", _

"Ввод цвета формы", "255"))

If Err.Number <> 0 Then

MsgBox "Принято 255",vbCritical Or vbOKOnly,"Ошибка ввода красного"

btRed = 255

End If

Err.Clear

' аналогичный код для зеленого

' аналогичный код для синего

Caption = "красного:" & btRed & " зеленого:" & btGreen & " синего:" & btBlue

BackColor = RGB(btRed, btGreen, btBlue)

End Sub

Создание графического интерфейса приложения

При создании графического интерфейса приложения возможно использование следующих компонентов: StatusBar, Toolbar и ImageList.

Основное меню

Меню создается и редактируется при помощи Menu Editor (Редактор меню). Для создания меню надо сделать форму активной и выбрать команду меню Tools, Menu Editor или нажать кнопку Menu Editor на панели инструментов. В результате на экране отобразится диалоговое окно Menu Editor, рис. 31.

Рис. 31. Редактор меню

По своей структуре меню состоит из заголовков меню верхнего и нижних уровней (до пяти уровней) и команд меню.

• заголовки меню верхнего уровня располагаются в крайней левой позиции;

• команды меню смещаются вправо на одну позицию от их заголовка меню;

Элементы меню имеют набор свойств, например:

• Caption - название пункта меню;

• Name - имя пункта меню;

• Index – номер элемента массива команд меню.

• Shortcut – комбинация клавиш для быстрого вызова команды меню с клавиатуры;

• поле HelpContextID для создания идентификатора контекстно-зависимой справки;

• флажок Checked для создания маркированных пунктов меню;

• флажок Enabled для блокировки пунктов меню;

• флажок Visible для визуализации пунктов меню;

• флажок WindowList, используемый при создании меню MDI-форм;

Пункт меню, свойство caption которого равно дефису (-), отображается как разделитель. Разделитель служит для визуальной группировки пунктов меню.

В имени пунктов меню допустимо использовать амперсанд (&) перед буквой, которая будет Alt - буквой для доступа к этому пункту меню с клавиатуры.

Контекстное меню

Контекстное меню содержит команды, доступные для объекта в момент нажатия правой кнопки мыши. Создается контекстное меню в редакторе меню, в виде заголовка верхнего уровня, например mnuСontext и команд меню. Чтобы команды контекстного меню не появлялись - в основном меню установите его свойство Visible=False. Для отображения контекстного меню в событии object_MouseUp используется метод popupMenu. Синтаксис:

object.PopupMenu mnuСontext, flags, x, у, boldcommand

Параметр	Описание
object	Если параметр опущен, то подразумевается текущая форма.
mnuСontext	Имя меню, отображаемое как контекстное.
Flags	Определяет местоположение и поведение контекстного меню. Значение параметра Flags = 0 - контекстное меню отображается при щелчке левой кнопкой мыши, координата х определяет левый край контекстного меню. Подробнее см. справку по Visual Basic.
x, у	Координаты окна, в котором отображается контекстное меню. Если эти параметры опущены, то используются текущие координаты указателя мыши.
boldcommand	Имя команды контекстного меню, выделенное полужирным шрифтом.