методичка Пол. формы (А.Н. Любин - Создание пользовательских форм в VISUAL BASIC FOR APPLICATIONS), страница 2

Для остальных элементов - полей ввода текста, полоспрокрутки, счетчиков и др. - стандартным считается событиеChange, то есть их изменение.Список возможных событий для элемента можно получить, поставив курсор внутрь процедуры и выбрав, нужное из верхнегоправого выпадающего меню. В верхнем левом выпадающем менюуказаны все процедуры и функции программы реакции формы насобытия см. рис. 6.Рис.

6113. Примеры создания пользовательских форм инаписания процедур к нимРазберѐм процесс создания пользовательских форм и написания процедур к ним на конкретных примерах.3.1. Пример 1. VBA программа «Дата и время»Задание. Создать пользовательскую форму и написать процедуры к ней в которых реализуется ввод имени пользователя, выводнастоящей даты и времени и кнопка для завершение работы процедуры.

VBA программу в целом назовѐм «Дата и время».Создание пользовательской формы1. Открыть или создать файл для работы.2. Перейти в редактор Visual Basic (Сервис > Макрос > редакторVisual Basic).3. Открыть пользовательскую форму (Insert> UserForm) см. рис.7.Рис. 74. На панели элементов управления выбрать пиктограмму12Label– надпись см.

рис.8.Рис. 85. Мышью перетащить пиктограмму Label на пользовательскуюформу см. рис. 9.Рис. 9136. Щѐлкнуть мышью на поле Label. Стиреть надпись Label и набрать « Введите своѐ имя ->» см. рис.10.Рис. 107. Изменить UserForm1- название формы. Для этого использовать вконтекстном меню Properties свойство Caption, которое возвращаетуказанный в нѐм текст, а именно «Хотите узнать дату и время?», взаголовок формы см. рис.11.

Поле заголовка предварительно должно быть активизировано щелчком мыши.Рис. 11148. На панели элементов управления выбрать пиктограмму-TextBox- поле для ввода имени пользователя при работе процедуры. На форме появиться окно для ввода, которое надо расположитьв нужном месте и придать нужную форму см. рис. 12.Рис. 129. Расположить на форме кнопку для ввода. Для этого на панелиэлементов выбрать пиктограммуCommandButton – кнопка, иперетащить еѐ мышью в выбранноекнопке желаемую форму см. рис. 13.место на форме. Придать10. На полученной кнопке ввести надпись «Для получения ответанажмите здесь».

Для этого щелчком мыши активизируем кнопку иосуществляем ввод указанного текста см. рис. 14.15Рис. 13Рис. 1411. Теперь надо ввести поле для вывода ответа, который будетсформирован в процедуре. Для этого используем уже известнуюпиктограмму- Label, расположенную на панели элементовуправления. Перетаскиваем мышью пиктограмму на форму, располагаем еѐ в нужном нам месте и придаем ей нужную форму см.рис. 1516Рис.

1512. Используя контекстное меню Properties можно придать, кнопкенапример, желаемый цвет или оттенок с помощью свойства BackColor. На рис. 15 кнопке придан легкий оттенок, а полю для выводапридали белый цвет.13. Для завершения работы процедуры расположим на форме, аналогично тому, как это было сделано выше, ещѐ одну кнопку, но снадписью « Выход» см.

рис. 16.Рис. 1617Процедуры для созданной пользовательской формыДалее рассмотрим, как написать и привязать к созданной пользовательской форме процедуру или процедуры для решения поставленной задачи. Двойной щелчок по форме позволяет открытьокно редактора VBA, где будут предложены заготовки для написания процедур см.

рис. 17.Рис. 17Теперь в процедуры можно вводить операторы, которые будутвыполняться, если событие в заголовке - Click мыши - произойдет.18Используем заготовку для процедуры CommandButton1_Clik(),задаем в процедуре переменную под названием Имя, описываем еѐкак строковую переменную (Dim Имя As String). Переменной Имяприсваиваем текст, который будет вводиться в поле элементауправления TextBox1, указывая при этом параметр .Text или.Value. В процедуре это выглядит так: Имя = TextBox1.Text см.рис.18.Далее в поле элемента управления Label2 вводится текст, сприветствием по имени пользователя процедуры и указанием настоящей даты и времени. В процедуре это задаѐтся следующим образом:Label2.Caption = "ЗДРАСТВУЙТЕ," & Имя & "!" & _vbLf & vbLf & " СЕГОДНЯ " & Format(Now, "dddddd,hh ч.mm мин.") см.

рис. 18. Все действия процедуры CommandButton1_Clik() будут выполняться в случаи нажатия кнопкиCommandButton1, которую мы ввели на созданной форме см.рис.13.Рис. 1819В процедуре CommandButton2_Clik() используется оператор Unload Me который закрывает форму и процедуры при нажатии кнопки «Выход», которую мы ввели на созданной форме см. рис. 16.Работа пользовательской формы и еѐ процедурЗапускаем процедуру. Появиться созданная пользовательскаяформа.

В окне для ввода имени зададим имя, например « Александр», и нажмѐм клавишу для вывода результата работы процедуры.Получим следующий результат см. рис.19.Рис. 19203.2. Пример 2. VBA программа «Автомобиль года»В данном примере разберѐм, каким образом используя процедуру заполнять определѐнными записями поле со списком ComboBox. Каким образом выбрать из списка нужную запись, наименование и передать его в другую предварительно созданную форму. Какорганизовать переход из одной формы в другую и как изменитьшрифт и цвет текста. Разберѐм в данном примере как организоватьзапуск программы с помощью кнопки созданной на рабочем листеExcel.Задание.

Создать программу, в которой реализуются пользовательские формы и процедуры к ним. Программу назвать «Автомобиль года».В программу включить две пользовательские формы. В первойформе с помощью элемента управления Label организовать надпись«Список автомобилей», а под ней посредством элемента управления ComboBox организовать поле со списком. В поле со спискомчерез процедуру ввести записи в виде наименований десяти любыхмарок автомобилей.

Кроме того, на первой форме разместить двекнопки. Одна кнопка с надписью « ВЫБРАТЬ », имеется в видувыбор названия марки автомобиля, среди тех, которые введены вполе со списком ComboBox. Вторая кнопка «ВЫХОД».В процедурах реализовать событие, которое должно произойтипри нажатии кнопки « ВЫБРАТЬ».

Событие состоит в выборе ипередаче выбранного названия автомобиля во вторую пользовательскую форму, а именно в организованное на ней поле элементауправления TextBox. Название выбранного автомобиля вывести сразмером шрифта 20 и красным цветом. В поле, отведѐнном для названия формы ввести текст « Лучший автомобиль года»21Создание первой пользовательской формыСоздание для данного примера его первой пользовательскойформы с именем UserForm6 производиться аналогично тому, какэто делалось в разобранном выше примере 1.Первая пользовательская форма будет иметь следующий вид см.рис.

20.Рис. 20Процедуры для первой пользовательской формыПроцедуры к первой созданной форме будут иметь вид, представленный на рис. 21. В первой процедуре используется методAddItem, который служит для добавления в список записей или заполнения списка, обычно он помещается в обработчик события Initialize.Метод Show служит для перехода, просмотра указанной формы.Например, UserForm7.Show означает переход и просмотр формы сименем UserForm7.

В нашем случае это имя второй пользовательской формы рассматриваемого примера, которую нам предстоитсоздать см. рис. 22.22Следует обратить внимание на то, что предлагаемые системойстандартные имена процедур и элементов управления можно менять на другие. Это позволяет сделать процедуры более удобнымидля чтения и понимания, особенно когда их большое количество.Так в нашем случае предлагаемые имена процедурCommandBatton1_Click() и CommandBatton2_Click() заменены соответственно на имена ВЫБОР_Click() и ВЫХОД_Click().Рис. 2123Создание второй пользовательской формыСоздание для данного примера второй пользовательской формы с именем UserForm7 производиться аналогично тому, как этоделалось в разобранном выше примере 1.Вторая пользовательская форма будет иметь следующий видсм.

рис. 22.Рис. 22Процедура для второй пользовательской формыВ данной процедуре название элемента управления TextBox1заменено на название ЛучАвто. В поле этого элемента управленияпередаѐтся запись в виде названия выбранного автомобиля в первой форме UserForm6 см. рис.23.Рис. 2324Работа пользовательских форм и их процедурСозданная программа состоит из двух пользовательских форми их процедур. Запуск программы можно произвести как в предыдущем примере или с рабочего листа Excel.Запуск программы с рабочего листа ExcelДля удобства можно организовать запуск программы с рабочего листа Excel. Для этого надо на рабочем листе Excel создатькнопку, при нажатии которой происходило бы событие, связанное сзапуском процедур первой пользовательской формы UserForm6.Процесс создание такой кнопки аналогичен тому, как это делаетсядля пользовательской формы.

На ленте вкладок Excel выбратьвкладку « Разработчик », затем « Вставить ». В открывшемся окне«Элементы управления формы» выбрать элемент управления«Кнопка» см. рис. 24.Рис.2425После нажатия на элемент управления «Кнопка», на рабочемлисте появиться маркер «+».

Далее нажав правую кнопку мыши исмещая еѐ установить нужные размеры кнопки при этом откроетсяокно с названием «Назначить макрос объекту» см. рис 25.В поле «Имя макроса» можно ввести его новое имя или оставить предложенное «Кнопка6_Щелчок» см. рис. 25. Введѐм новоеимя «Кнопка1_Щелчок». Нажать кнопку «Создать». Откроетсяокно для ввода кода см. рис 26.

В это окно введѐм код вызовапользовательской формы UserForm6, а именно UserForm6.Show.На кнопке с названием « Кнопка 6» см. рис. 25 введѐм новоеназвание, согласно условию задания, а именно «Запуск программы «Автомобиль года » » см. рис. 27Рис. 2526Рис. 26Рис. 27Теперь чтобы запустить программу надо нажать на кнопку« VBA программа «Автомобиль года» » см. рис. 27. На рабочемлисте появиться первая созданная форма см. рис.28.Рис.

2827Из приведѐнного списка курсором выбираем нужную марку автомобиля, например «ВОЛГА» и нажимаем левую кнопку мыши.Пользовательская форма примет следующий вид, см. рис. 29.Рис. 29Далее «нажать кнопку» « ВЫБРАТЬ», для этого подвести кней курсор и нажать левую кнопку мыши. Происходит запуск в работу второй пользовательской формы. Вторая пользовательскаяформа буде выглядеть следующий образом, см. рис.