Элементы управления и пользовательская форма Кафедра ЮНЕСКО по НИТ

Запись макроса Выберите в меню Сервис команду Макрос и подкоманду Начать запись. В поле Имя макроса введите имя для макроса. Первым символом имени макроса должна быть буква. Остальные символы могут быть буквами, цифрами или знаками подчеркивания. В имени макроса не допускаются пробелы; в качестве разделителей слов следует использовать знаки подчеркивания. В поле Сохранить в выберите книгу, в которой требуется сохранить макрос. Нажмите кнопку OK. Выполните макрокоманды, которые нужно записать. Нажмите кнопку Остановить запись на панели инструментов Остановить запись.

Панель инструментов Формы 1. На панели инструментов Формы нажмите элемент «кнопка», либо нарисуйте кнопку, используя панель Рисования. 2. Щелкните кнопку или графический элемент управления, чтобы появились маркеры выделения. 3. Щелкните правой кнопкой мыши на выделенном элементе и выберите в контекстном меню команду Назначить макрос. 4. Выберите нужный макрос и затем нажмите кнопку OK. 5. Чтобы создать новый макрос и назначить ему кнопку или графический объект, нажмите кнопку Запись.

Задание 1 На рабочем листе создать «кнопку». Записать макрос и связать его с кнопкой. Например: – при нажатии кнопки заполняется 5 ячеек листа цифрой 10. Выбрать в меню Сервис команду Макрос, редактор VB В папке Modules открыть соответствующий макрос и разобрать программный код.

Элементы управления Данное меню активизируется командой вид, панели инструментов, элементы управления. Режим конструктора – позволяет работать в двух режимах: режим разработки приложения и режим работы приложения.

Соответствие имен и названий элементов управления ПолеTextBox НадписьLabel КнопкаCommandButton СписокListBox Поле со спискомComboBox Полоса прокрутки ScrollBar СчетчикSpinButton ПереключательOptionButton ФлажокCheckBox ВыключательToggleButton РамкаFrame РисунокImage

Общие свойства элементов управления Caption Надпись, отображаемая на элементе управления AutoSize True – устанавливает режим автоопределения размера элемента управления Visible True – устанавливает режим отображения элемента управления во время выполнения программы Enabled True – пользователь может вручную управлять элементом управления Height Высота и ширина Width Устанавливает координаты верхнего левого угла элемента управления Left Цвет заднего и переднего плана элемента и его границы Top Тип заднего фона BackColor Внедряет картинку на элемент ForeColor CommandButton1. Picture = LoadPicture("c:\5.bmp") BorderColor Надпись, отображаемая на элементе управления BackStyle True – устанавливает режим автоопределения размера элемента управления Picture True – устанавливает режим отображения элемента управления во время выполнения программы

Задание 2 В режиме конструктора создать объект кнопка. Установить свойства кнопки – цвет, картинку, (взять любую картинку из директории Windows), размер и др. Перейти в редактор VB и задать исполняемый код, выполняющийся при нажатии кнопки. Например: – при нажатии кнопки заполняется 5 ячеек листа цифрой 10.

Задание 2 Программа проверяет какой флажок был установлен и ставит в соответствии с этим некоторой переменной значение 0 или 1. Датчик случайных чисел генерирует число от 0 до 1 Int(2*Rnd()) и сравнивает полученные числа. В зависимости от совпадения или несовпадения чисел выдается сообщение о выигрыше или проигрыше. Для выполнения используйте два переключателя и одну кнопку. Игра называется орел или решка. Игрок устанавливает переключатель на одну из позиций и нажимает кнопку «бросание монеты».

Создание пользовательской формы: Выберите команду Сервис/Макрос/Редактор VB Выберите команду Вставить User Form. В редакторе появиться окно с пользовательской формой и панель инструментов Элементы управления. Используя панель элементов управления и диалоговое окно Свойства, создайте диалоговое окно. Для того чтобы написать процедуру обработки события нажатия кнопки ОК, дважды щелкните ее. Активизируется модуль UserForm1, в который введите процедуру обработки события.

Вид диалогового окна

Заполнение базы данных Процедура считывает информацию из диалогового окна и записывает ее в базу данных на рабочем листе Private Sub CommandButton1_Click() 'Описание переменных Dim Fam As String * 20 Dim Pol As String * 3 Dim Tyr As String * 20 Dim Plata As String * 3 Dim Pasport As String * 3 Dim Crok As String * 20 Dim n As Integer n = Application.CountA(ActiveSheet.Columns(1)) + 1 Вычисляем число непустых ячеек в первом столбце

Считываем информацию из диалогового окна в переменные With UserForm1 Fam =.TextBox1. Text Crok =.TextBox2. Text If.OptionButton1. Value = True Then Pol = "жен" Else Pol = "муж" End If If.CheckBox1. Value = True Then Pasport = "да" Else Pasport = "нет" End If

If.CheckBox2. Value = True Then Plata = "да" Else Plata = "нет" End If Tyr =.ComboBox1.List(.ComboBox1.ListIndex, 0) End With With ActiveSheet.Cells(n, 1).Value = Fam.Cells(n, 2).Value = Pol.Cells(n, 3).Value = Tyr.Cells(n, 4).Value = Plata.Cells(n, 5).Value = Pasport.Cells(n, 6).Value = Crok End With End Sub

Private Sub CommandButton2_Click() UserForm1. Hide End Sub Private Sub SpinButton1_Change() Процедура ввода значения счетчика в поле ввода With UserForm1.TextBox2. Text = CStr(.SpinButton1.Value) End With End Sub Private Sub TextBox3_Change() Процедура установки значения счетчика из поля ввода With UserForm1.SpinButton1. Value = CInt(.TextBox3.Text) End With End Sub

Private Sub UserForm_initialize() Процедура вызова диалогового окна и задания элементов раскрывающегося списка Pole (Вызов процедуры создания полей базы данных) Application.Caption = "Регистрация туристов" With CommandButton1. Default = True.ControlTipText = "ввод данных в базу данных" End With With ComboBox1. List = Array("Москва", "Алтай", "Сочи").ListIndex = 0 End With UserForm1. Show End Sub

Sub Pole() процедура создания полей базы данных If Range("a1").Value = "фамилия" Then Range("a1").Select Exit Sub End If 'ActiveSheet.Cells.Clear Range("a1:f1").Value = Array("фамилия", "пол", "тур", "оплачено", "паспорт", "срок") Присоединение примечания к заголовку базы данных Range("A1").AddComment Range("A1").Comment.Visible = False Range("A1").Comment.Text Text:="Фамилия" End Sub