Пример разработки приложения

Построим приложение, в котором осуществим пересчет значений веса из граммов в фунты.

Разработка формы (рис.3):

1. Поместите на форму метку Label1. Компонент Label1 предназначен для вывода статического текста, например, для заголовков. Свойство Caption содержит текст, отображаемый в метке. Текст метки можно изменять в окне свойств или динамически в ходе программы. Установите свойство Caption равным «Введите значение веса в граммах».

2. Рядом поместите еще одну метку (Label2). Задайте свойству Caption значение «Результат».

3. Под первой меткой установите компонент TextBox1, под второй метку Label3, в которой очистите свойство Caption. Компонент TextBox представляет собой текстовое поле. Этот компонент имеет фокус ввода и, следовательно, может служить окном ввода данных.

4. Установите на форму компонент CommandButton. Этот компонент представляет собой командную кнопку. В графическом интерфейсе Windows командные кнопки связывают с определенными действиями. Измените свойство Caption для кнопки на «Расчет».

5. Измените шрифт текста в метках и на кнопке, воспользовавшись свойством Font каждого из компонентов. Измените цвет шрифта с помощью свойства ForeColor.

6. Запустите приложение на выполнение (клавиша <F5>).

Рисунок 3. Форма для общего примера.

В данном приложении расчет не выполняется. Для того, чтобы придать форме функциональность, необходимо написать код.

Написание кода:

Каждой форме соответствует окно кода, в котором записываются операторы программы. Текст программы составляется по специальным правилам и описывает алгоритм работы программы. Такая программа делает форму функциональной. Окно кода вызывается командой View | Code или функциональной клавишей F7, или кнопкой View Code (расположена слева с краю над надписью VBAProject).

1. Сделайте двойной щелчок по кнопке или нажмите F7.

2. В окне кода в верхней части два выпадающих списка. В левом отображаются имена компонентов, установленных на форму. В правом — события, на которые может откликаться компонент. В окне кода имеется заготовка процедуры, которая будет выполняться при нажатии на кнопку (обработчик события). Событие Click (по щелчку) возникает в работающей программе при щелчке по кнопке мышью.

Private Sub CommandButton1_Click()

End Sub

В имени процедуры указаны имя компонента и событие, которое обрабатывается этим компонентом.

3. Чтобы вставить в окно новую строку (строки), нужно сначала с помощью клавиш курсора или щелкнув по окну мышью поставить текстовый указатель на нужное место, а затем с помощью клавиатуры ввести текст. Между служебными словами Sub и End введите следующие операторы языка VBA:

x = Val(TextBox1.Text)

y = x / 400

Label3.Caption = Str(y) + " Фунт."

В первом операторе присваивания переменная Х принимает значение, введенное в окно редактора. Свойство Text компонента TextBox1 содержит то, что в ходе работы программы вводится в окно пользователем. Свойство Text строкового типа, поэтому необходимо преобразовать его в число (функция Val). Второй оператор присваивания — формула пересчета. Для отображения результата расчета используется свойство метки Caption. Функция Str преобразует число в строку. Строки можно складывать. В метке отобразится результат расчета и слово «Фунт.».

Вместо 3-х строк можно написать одну строку кода, опустив свойства Caption и Text, так как они является свойствами по умолчанию:

Label3 = Val(TextBox1) / 400 & " Фунт."

4. Осуществите прогон программы, нажав клавишу F5. Введите в окно редактора любое число, нажмите на кнопку «Расчет», и Вы получите результат в метке Label3.