Упражнение

Создайте следующую процедуру:

Sub ПроцСОшибкой()

 Workbooks.Open "С:\неттакогофайла.wkb"

End Sub

Добавьте в эту процедуру код обработчика ошибок, который отображал бы окно с соответствующим сообщением и передавал управление оператору, следующему за оператором, вызывающим ошибку.

Полный код процедуры:

Sub ПроцСОшибкой()

 On Error GoTo MyErrorHandler

 Workbooks.Open "С: \неттакогофайла.wkb"

 Exit Sub

MyErrorHandler:

 MsgBox "Такого файла не существует."

 Resume Next

End Sub

Ответы к 14-му часу Тесты

1. Истинно или ложно следующее утверждение: сетка на экранной форме отображается и в редакторе Visual Basic, и при выполнении формы?

Ложно. Сетка на экранной форме отображается только в редакторе Visual Basic в режиме конструктора.

2. Какое свойство применяется для назначения быстрых клавиш элементу управления?

Свойство Accelerator.

3. Как указать, какая командная кнопка должна "сработать" при нажатии клавиши <Enter>?

Задав свойству Default значение True.

4. Какое значение какому свойству надо задать, чтобы переключатель был выбран по умолчанию?

Надо задать значение True свойству Value.

5. Истинно или ложно следующее утверждение: выравнивание элементов управления требует задания значений свойств?

Ложно. Элементы управления можно выровнять с помощью команд из меню Format или инструментов Align панели UserForm.

6. Что произойдет, если для командной кнопки вы установите значение True свойства Cancel?

Процедура, назначенная этой командной кнопке, будет выполнена при нажатии пользователем клавиши <Esc>.

7. Как задать порядок обхода элементов формы при нажатии клавиши <Tab>?

Простейший способ: создавать элементы формы в той последовательности, каков запланированный порядок обхода элементов формы при нажатии клавиши <Tab>.

Ответы к 15-му часу Тесты

1. Как установить блокировку элемента управления?

Надо задать свойству Enabled значение True.

2. Как вызвать форму на экран?

С помощью метода Show формы.

3. В какой процедуре находится код инициализации значений элементов формы?

В процедуре UserForm_Activate.

4. Как удалить экранную форму из памяти компьютера?

С помощью метода Unload.

5. Если необходимо вернуться к какому-либо элементу управления посредством кода, то какой метод следует применить?

Надо к элементу управления применить метод SetFocus.

6. Где хранятся элементы списков?

Элементы списков можно хранить в отдельном файле, можно их поместить в именованный диапазон рабочего листа.

7. Какое свойство списков задает элемент, отображаемый в списке по умолчанию?

Свойство Listindex задает порядок отображения элементов в списке.

8. В какой процедуре обычно проверяются на корректность данные, вводимые пользователем?

Обычно в процедуре, выполняемой по щелчку на кнопке Сохранить или ОК.

Упражнение

Создать процедуру с именем ПоказФормы, которая должна выводить на экран форму frmSplash, созданную как упражнение в 14-м часе.

Создайте код, посредством которого после щелчка на кнопке ОК в форме frmSplash будет открываться форма Гостевые расходы.

Код процедуры ПоказФормы:

Sub ПоказФормы()

 frmSplash.Show

End Sub

Код процедуры cmdOK_Click:

Private Sub cmdOK_Click()

 frmGuestExpenses.Show

 Unload Me

End Sub