Информатика в управлении и экономике. Боброва Л.В - 202 стр.

UptoLike

ВУЗ: 

СЗТУ | Санкт-Петербург

Составители: 

Рубрика: 

212
Private Sub UserForm_Activate()
With ComboBox1
.RowSource = "Занятия"
.ListIndex = 0
End With
With ComboBox2
.RowSource = "Файл"
.ListIndex = 0
End With
TextBox1 = Format(Now, “dd/mm/yy”)
End Sub .
10. Нажать клавишу F5 для выполнения процедуры. Отобразится экранная
форма с заполненными списками Тема занятия и Имя файла, а также
заполненным полем Дата занятия (рис. 15.13).
14.5.2. Создание процедуры для вызова формы
Для создания процедуры вызова экранной формы нужно
воспользоваться командой Visual Basic «вывести на экран» - Show. Для
этого следует выполнить следующие действия:
1. Перейти в редактор Visual Basic (если вы не находитесь в нём) и вставить
новый модуль в рабочую книгу (Вставка – Модуль).
2. Создать новую процедуру (Вставка – Процедура) и назвать её
ЗагрузкаФормы.
3. Ввести код процедуры.
Public Sub ЗагрузкаФормы()
Ведомость.Show
End Sub .
4. Перейти в рабочую книгу на Лист1 и вставить командную кнопку:
- поставить указатель мыши на любую из панелей инструментов и
щёлкнуть правой клавишей (появится меню панелей инструментов);
Рис. 15.12
Щёлкнем по кнопке со
стрелкой рядом со словом
Click и в раскрывшемся
списке выберем событие
Activate. В окне программы
появится заголовок проце-
дуры UserForm_ Activate.
9. Ввести код процедуры
для записи исходных данных
с листа Список в поля со
списками и ввода данных.

Страницы