Офисное программирование | страница 47
Рис. 50. Установление свойств вкладки
Пример 25. Создать форму, включающую в себя ряд вкладок (страниц), содержащих вопросы некоторого теста. На каждой странице находятся очередной вопрос и кнопка «Ответ», фиксирующая выбор правильного (неправильного) ответа. После перехода на следующую страницу (щелчок по корешку страницы с соответствующим именем) действия повторяются. Итоговая страница содержит кнопку «Результат», которая выводит правильность ответов и сумму набранных баллов (1 правильный ответ = 1 балл).
Рис. 51. Свойства в действии
Создать программу, выполняющую все требования примера.
Технология выполнения
1. Запустите приложение Word и сохраните документ.
2. Перейдите в редактор VBA и создайте форму, содержащую 4 страницы (рис. 52).
Рис. 52. Первая страница теста
3. Оформите первую страницу (рис. 52) и обработайте кнопку «Ответ».
Dim a As Integer
Private Sub CommandButton1_Click()
If OptionButton3.Value = True Then
a = a + 1
Label11.Caption = «Ответ верен»
Else
Label11.Caption = «Oтвет неверен»
End If
End Sub
4. Оформите вторую страницу теста (рис. 53) и обработайте кнопку «Ответ».
Private Sub CommandButton2_Click()
If OptionButton5.Value = True Then
a = a + 1
Label12.Caption = «Ответ верен»
Else
Label12.Caption = «Ответ неверен»
End If
End Sub
Рис. 53. Вторая страница теста
5. Оформите третью страницу теста (рис. 54) и обработайте кнопку «Ответ».
Рис. 54. Третья страница теста
Private Sub CommandButton3_Click()
If OptionButton10.Value = True Then
a = a + 1
Label13.Caption = «Ответ верен»
Else
Label13.Caption = «Ответ неверен»
End If
End Sub
6. Оформите четвертую страницу теста (рис. 55) и обработайте кнопку «Результат».
Private Sub CommandButton4_Click()
Label15.Caption = "вы набрали " & a & «балл(а)»
End Sub
Рис. 55. Итоговая страница теста
Примечание. Напоминаем, что все предлагаемые листинги примерные и их можно и нужно редактировать по своему усмотрению.
7. Откомпилируйте программу и запустите на выполнение.
Элемент управления ScrollBar представляет собой вертикальную или горизонтальную полосу, по краям которой расположены кнопки прокрутки, а внутри перемещается бегунок. Значение Value, устанавливаемое в полосе прокрутки или возвращаемое ей, – число, определяемое положением бегунка и границами, определенными в свойствах Min и Мах. Рекомендуемые значения этих границ – от –32 767 до + 32 767 (по умолчанию установлен диапазон [0, 32 767]).
Обычно полоса прокрутки используется в паре с другим элементом управления (textbox), в котором она может отображать или от которого может получать свое значение.
