Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
Харківський національний аерокосмічний університет
ім. М.Є. Жуковського «ХАІ»
Кафедра 603
Лабораторна робота №1
Создание графического интерфейса разрабатываемых приложений на основе использования управляющих элементов
З дисципліни «Обчислювальна техніка та програмування»
ХАІ.603.733(2).08В.030505.117л22
Виконав: студентка гр.733(2) Пастернак М.Л.
(П.І.Б.)
____________
(Підпис, дата)
Прийняв: ст.. викладач Лучшева О.В.
____________
(Підпис, дата)
2013
Постановка задачи
Рис.1 Образец графического интерфейса
разрабатываемого приложения
4.Заголовок формы изменить на «Форма для заполнения таблицы»;
5.Добавить на форму две кнопки.
По нажатию на одну из них должно выполняться следующее:
По нажатию на другую кнопку– форма скрывается.
Границы таблицы должны быть расчерчены тонкой непрерывной линией черного цвета.
6.Данные для заполнения вышеуказанных ячеек вводить, используя элементы управления: надпись, поле и комбинированный список;
7.Добавить на форму надпись, по нажатию на которую будет выводиться текущее время;
8.Разместить на форме произвольный рисунок.
Порядок выполнения работы
Запуск MS Exel – Разработчик - Режим Конструктора – Вставить – Элементы Active X – Вставка элемента управления «кнопка» на лист
Двойной клик по добавленному элементу управления – написание кода макроса
View – Properties Window – Изменение необходимых параметов – Настройка функций элемента
Редактор VBA - Insert – UserForm
Редактор VBA – ToolBox для формы – Выбор элемента – Перетаскивание элемента на форму
Двойной клик по объекту – написание кода макроса
запуск программы – ввод данных – анализ выводимого результата
Результат работы
На рисунке 2 представлены кнопки, на листе, по нажатию на одну из них появляется форма.
На форме расположены элементы управления, согласно заданию.
Рис.2. – Результат работы кнопок
На рисунке 3 мы видим как с помощью формы мы заполнили таблицу.
Рис.3 – Заполнение таблицы
Код макросов для элементов управления
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
Private Sub CommandButton2_Click()
UserForm1.Hide
End Sub
Private Sub CommandButton3_Click()
Selection.Clear
End Sub
Private Sub CommandButton1_Click()
Range("A1").Value = "Слово"
Range("B1").Value = "Часть речи"
Range("C1").Value = "Перевод"
Range("A1:C1").Borders.LineStyle = xlContinuous
n = Range("A1").CurrentRegion.Rows.Count
Cells(n + 1, 1).Value = TextBox1.Value
Cells(n + 1, 2).Value = ComboBox1.Text
Cells(n + 1, 3).Value = TextBox2.Value
Cells(n + 1, 1).Borders.LineStyle = xlContinuous
Cells(n + 1, 2).Borders.LineStyle = xlContinuous
Cells(n + 1, 3).Borders.LineStyle = xlContinuous
Columns("A:C").AutoFit
TextBox1.Value = ""
ComboBox1.Value = ""
TextBox2.Value = ""
End Sub
Private Sub CommandButton2_Click()
UserForm1.Hide
End Sub
Private Sub Label4_Click()
Label4.Caption = Time
End Sub
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "Существительное"
.AddItem "Прилагательное"
.AddItem "Глагол"
End With
End Sub
Выводы: В ходе данной лабораторной работы мы научились создавать кнопки на листе и задавать для них функции, добавлять форму, создавать на ней элементы управления и писать для них код обработки события.