с помощью мыши перетащить рамку элемента управления в нужное место.

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

Пример. В качестве примера работы с формой сконструируем обычное приложение, вычисляющее значение функции, к примеру Cos(x).

Перейдем в VBA и, выполнив команду Insert (Вставка) ® UserForm, добавим в с помощью мыши перетащить рамку элемента управления в нужное место. проект форму. Расположим на форме последующие элементы управления


Таблица 6

Отран управления Назначение
CommandButton1 (кнопка) При нажатии на кнопку запускается процедура обработки действия (Private Sub CommandButton1_Click()), которая считывает значение аргумента из поля TextBox1. Проверяется, введено ли в это поле число. Если введено не число, то на дисплее отображается соответственное сообщение, прерывается выполнение с помощью мыши перетащить рамку элемента управления в нужное место. процедуры, и фокус (курсор) устанавливается на поле TextBox1, предлагая поправить вводимые данные Если введено число, то находится значение функции при введенном значении аргумента, итог выводится во 2-ое поле TextBox2
TextBox1 (поле) Поле для ввода юзером значения аргумента
Label1 (надпись) Объяснительная надпись для поля ввода
TextBox2 (поле) В это с помощью мыши перетащить рамку элемента управления в нужное место. поле будет выводиться значение функции. Поле создадим труднодоступным для юзера, т.е. юзер не сумеет ни ввести, ни скорректировать данные в этом поле
Label2 (надпись) Объяснительная надпись для поля вывода

Форма сотворена, функция каждого элемента управления известна.

Для написания кода программки, связанного с пользовательской формой, довольно два раза щелкнуть, к примеру с помощью мыши перетащить рамку элемента управления в нужное место., кнопку CommandButton1. Раскроется редактор кода на листе модуля UserForm1. Более того, он раскроется на том месте, где программируются деяния, связанные с элементом управления, который был два раза нажат. Если код еще не набран, то при открытии редактора кода появятся аннотации заголовка и окончания процедуры, которая будет связана с с помощью мыши перетащить рамку элемента управления в нужное место. элементом управления.

В этом случае в редакторе кода будет:

Private Sub CommandButton1_Click()

End Sub

Введем аннотации (команды), которые будут производиться при нажатии на кнопку:

Private Sub CommandButton1_Click()
If Not IsNumeric(TextBox1.Text) Then Проверка является ли введённое значение числом
MsgBox "Аргумент должен быть числом", _ vbExclamation Вывод окна с помощью мыши перетащить рамку элемента управления в нужное место. сообщения
TextBox1.SetFocus Фокус (курсор) устанавливается на поле TextBox1
Exit Sub Преждевременный выход из процедуры CommandButton1_Click()
End If Окончание оператора If
x = CDbl(TextBox1.Text) При считывании числа из поля ввода с помощью функции CDbl строковый тип, возвращаемый свойством Text, преобразуется в числовой
y = Cos(x) TextBox2.Text с помощью мыши перетащить рамку элемента управления в нужное место. = CStr(y) Чтоб вывести итог в поле, переводим число в строковый формат с помощью функции CStr
End Sub Окончание процедуры CommandButton1_Click()

Сейчас добавим функцию, выполняемую при открытии формы – она обусловит надписи на элементах управления и их характеристики.

Private Sub UserForm_Initialize() Процедура UserForm_Initialize конструирует форму до ее с помощью мыши перетащить рамку элемента управления в нужное место. загрузки
UserForm1.Caption = "Значение функции Cos(x)" Аннотация устанавливает текст, отображаемый в строке заголовка формы
Label1.Caption = "Аргумент" Label2.Caption = "Значение функции" CommandButton1.Caption = "OK" Аннотации задают видимые надписи для объектов
TextBox2.Enabled = False Аннотация делает TextBox2 труднодоступным для юзера
End Sub Окончание процедуры UserForm_Initialize

После конструирования с помощью мыши перетащить рамку элемента управления в нужное место. формы и написания кода в модуле формы выберем команду Run ® Run Sub/UserForm, или нажмем кнопку , или кнопку панели инструментов Standard, и форма отобразится поверх активного рабочего листа Excel.

Введем значение аргумента и нажмем на кнопку OK.

Набросок 6 – Вид разработанной пользовательской формы

Надписи на элементах управления можно задавать и двойным щелчком на с помощью мыши перетащить рамку элемента управления в нужное место. элементе при разработке формы.

ЗАДАНИЕ
Повторить все разобранные примеры


s-sdelaj-eshe-nebolshoj-pereriv-i-prodolzhim-pro-vse-ostalnoe.html
s-sensornimi-narusheniyami.html
s-seredini-2-ogo-tisyacheletiya-do-n-e-i-v-rezultate-nastupayushej-antichnoj-epohi-carizma-knyazej-zahvatnicheskih-vojn.html