Лабораторная работа №7 Создание пользовательского интерфейса в Visual Basic

В данной лабораторной работе на примере продемонстрируем технику создания строки меню пользователя.

Для создания меню необходимо использовать Редактор Меню из меню Инструменты (рис. 7.1). Для формирования подменю необходимо использовать кнопки со стрелками (вправо – перейти на один уровень вниз, влево – на один уровень вверх).

Рис. 7.1 Общий вид Редактора меню

Создадим форму, которая содержит меню, состоящее из 3-х подменю: Файл, Окно, Шрифт(рис. 7.2).

Меню Файл состоит из подменю Печать, Очистка, Выход. По команде Печать на экране печатается текст, например « Информатика» выбранным шрифтом. По команде Очистка форма очищается. По команде Выход – конец программы.

Меню Окно состоит из подменю Цвет, Размер, Положение. Подменю Цвет включает команды Красный, Синий, Белый, в соответствии с которыми меняется цвет формы. При выборе цвета пункт меню помечается галочкой. Цвет фона формы можно задать с помощью функции QBCо1ог(i), где i – номер цвета. Подменю Размер формы включает команды « 100%, 50%, Минимальный», в соответствии с которыми меняется размер формы. Подменю Положение включает команды В центре, Слева сверху, в соответствии с которыми меняется расположение формы на экране.

Меню Шрифт состоит из подменю Размер шрифта и Вид шрифта. Подменю Вид шрифта включает команды Times New Roman, Arial, в соответствии с которыми меняется вид шрифта для печати на форме. Подменю Размер включает команды «10» и «14», в соответствии с которыми меняется размер шрифта.

Рис. 7.2. Общий вид создаваемой формы

В таблице 7.1 приводятся начальные установки свойств используемых элементов управления:

Таблица 7.1

Начальные установки свойств элементов меню

Название элемента	Свойства	Значение
Форма	Caption	Меню
	Name	Form1
Меню	Caption	Файл
	Name	mnuFile
Меню	Caption	Окно
	Name	mnuWindow
Меню	Caption	Шрифт
	Name	mnuFont
Меню	Caption	Печать
	Name	mnuPrint
Меню	Caption	Очистка
	Name	mnuClear
Меню	Caption	Выход
	Name	mnuExit
Меню	Caption	Размер формы
	Name	MnuSize
Меню	Caption	Цвет
	Name	mnuColor
Меню	Caption	Положение
	Name	mnuLoc
Меню	Caption	100%
	Name	mnu100
Меню	Caption	50%
	Name	mnu50
Меню	Caption	Минимальный
	Name	mnuSmall
Меню	Caption	Красный
	Name	rmnuRed
Меню	Caption	Синий
	Name	mnublue
Меню	Caption	Белый
	Name	mnuwhite
Меню	Caption	В центре
	Name	mnuCenter
Меню	Caption	Слева вверху
	Name	mnuLeft
Меню	Caption	Размер шрифта
	Name	mnuFSize
Меню	Caption	Вид шрифта
	Name	mnuFName
Меню	Caption	10
	Name	mnu10
Меню	Caption	14
	Name	mnu14
Меню	Caption	Times New Roman
	Name	mnuTimes
Меню	Caption	Arial
	Name	mnuArial

Программный код включает следующие процедуры:

Процедуры Меню Файл.

Процедура, вызываемая по команде меню Выход:

Private Sub mnuExit_Click()

End

End Sub

Процедура, вызываемая по команде меню Печать:

Private Sub mnuPrint_Click()

Print "Информатика”

End Sub

Процедура, вызываемая по команде меню Очистить:

Private Sub mnuClear_Click()

Form1.Cls

End Sub

Процедуры Меню Окно.

Процедуры, вызываемые в меню Цвет:

Процедура, вызываемая по команде Синий:

Private Sub mnublue_Click()

Form1.BackColor = QBColor(1)

rmnuRed.Checked = False

mnublue.Checked = True

mnuwhite.Checked = False

End Sub

Процедура, вызываемая по команде Белый:

Private Sub mnuwhite_Click()

Form1.BackColor = QBColor(15)

rmnuRed.Checked = False

mnublue.Checked = False

mnuwhite.Checked = True

End Sub

Процедура, вызываемая по команде Красный:

Private Sub rmnuRed_Click()

Form1.BackColor = QBColor(4)

rmnuRed.Checked = True

mnublue.Checked = False

mnuwhite.Checked = False

End Sub

Процедуры, вызываемые в меню Размер:

Процедура, вызываемая по команде «100%»:

Private Sub mnu100_Click()

Form1.WindowState = 2

End Sub

Процедура, вызываемая по команде «50%»:

Private Sub mnu50_Click()

Form1.Height = Screen.Height * 0.5

Form1.Width = Screen.Width * 0.5

End Sub

Процедура, вызываемая по команде «Минимальный»:

Private Sub mnuSmall_Click()

Form1.WindowState = 1

End Sub

Процедуры, вызываемые в меню Положение:

Процедура, вызываемая по команде « В центре»:

Private Sub mnuCenter_Click()

Form1.Top = Screen.Height / 2 - Form1.Height / 2

Form1.Left = Screen.Width / 2 - Form1.Width / 2

End Sub

Процедура, вызываемая по команде « Вверху слева»:

Private Sub mnuLeft_Click()

Form1.Top = 0

Form1.Left = 0

End Sub

Процедуры Меню Шрифт.

Процедуры, вызываемые в меню Размер шрифта:

Процедура, вызываемая по команде «10»:

Private Sub mnuF10_Click()

Form1.FontSize = 10

End Sub

Процедура, вызываемая по команде «14»:

Private Sub mnuF14_Click()

Form1.FontSize = 14

End Sub

Процедуры, вызываемые в меню Вид шрифта:

Процедура, вызываемая по команде «Arial»:

Private Sub mnuArial_Click()

Form1.FontName = "Arial"

End Sub

Процедура, вызываемая по команде «Times New Roman»:

Private Sub mnuTimes_Click()

Form1.FontName = "Times New Roman"

End Sub

Для выполнения заданий, предложенных ниже, необходимо использовать свойства объектов управления. Для присвоения значения свойству объекта управления в программном коде используется следующий формат:

<имя объекта>.<имя свойства>=<значение>

Например, Form1.FontSize = 14.

Основные свойства объекта Форма приведены ниже:

Name- имя формы (Например, frmHello);

BackColor- цвет фона, выбирается из окна палитры. Коды цветов описаны в системе. Удобнее работать с палитрой (Palette) в самом окне свойств или через меню View.

ForeColor- цвет текста;

BorderStyle- стиль рамки. Может принимать следующие значения:

0) окно без рамки;

1) Fixed Single- одинарная фиксированная рамка, нельзя менять размеры окна;

2) Sizable- можно менять размеры окна;

3) Fixed Double- - двойная рамка с неизменяющимися параметрами( для диалоговых панелей);

4) Fixed Tool Window- с кнопкой Closed;

5) то же, но можно менять размер;

Caption- надпись формы в титульной строке формы (по умолчанию Form1), а также в значке приложения;

Max Button . При значении True форма будет иметь кнопку maximize;

Min Button. При значении True форма будет иметь кнопку minimize;

ControlBox- включение (выключение) кнопки системного меню (слева);

Enabled. При значении False форма не будет реагировать на любые события;

Font (Name, Size)- название и размер шрифта;

Height, Width- высота, ширина формы в твипах.

1 дюйм = 1440 твипов;

1 см = 567 твипов;

1 твип = 1/20 пункта.

Текущие размеры формы отмечаются на линейке инструментов справа.