Офисное программирование
Шрифт:
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), в котором она может отображать или от которого может получать свое значение.
Свойства полосы прокрутки следующие.
• Горизонтальная или вертикальная ориентация полосы прокрутки определяется свойством orientation. При его значении по умолчанию fmorientationauto = –1, ориентация полосы определяется автоматически в зависимости от ее размера по горизонтали и вертикали (больший размер задает ориентацию). Значение fmorientationvertical = 0 задает вертикальную ориентацию полосы, fmorientationhorizontal = 1 – горизонтальную.
• Свойства largechange и smallchange определяют, на сколько изменится значение value при одном щелчке поверхности полосы между кнопкой прокрутки и бегунком в первом случае и при щелчке кнопки прокрутки – во втором. Эти же свойства указывают, на сколько при этом смещается бегунок. По умолчанию оба свойства равны 1. Рекомендуемая область значений обоих свойств – от –32,767 до 32,767.
• Свойство delay (задержка) определяет в миллисекундах время, через которое последовательно возникают события change, если пользователь непрерывно щелкает кнопку прокрутки или левую кнопку мыши, указывающей на полосу прокрутки. По умолчанию устанавливается значение в 50 миллисекунд.
• Свойство proportionalthumb определяет размер бегунка: true – размер бегунка пропорционален размеру области прокрутки (это
Пример 26. Создать форму, содержащую два элемента scrollbar, два текстовых поля и кнопку, выводящую результат вычисления в метку на форме. Программно отражать значения в текстовых полях формы при движении бегунка. После нажатия на кнопке «Вычислить» программа считывает значения с текстовых полей, переводит эти значения в числовые и суммирует. Результат отражается в соответствующей метке на форме.
Технология выполнения
1. Активизируйте приложение Word и сохраните документ.
2. Перейдите в редактор VBA и создайте форму (рис. 56).
Рис. 56. Форма примера 26 в режиме конструктора и рабочем режиме
3. Обработайте элементы ScrollBar и кнопку «Вычислить».
Dim a, b, c As Integer
Private Sub CommandButton1_Click
c = a + b
Label4.Caption = «Сумма с=» & c
End Sub
Private Sub ScrollBar1_Change
TextBox1.Text = ScrollBar1.Value
a = Val(TextBox1.Text)
End Sub
Private Sub ScrollBar2_Change
TextBox2.Text = ScrollBar2.Value
b = Val(TextBox2.Text)
End Sub
4. Откомпилируйте программу и запустите форму на выполнение.
SpinButton (счетчик, ворот) позволяет пользователю увеличивать и уменьшать числовой параметр до получения требуемого значения. Один щелчок кнопки прокрутки увеличивает или уменьшает значение свойства Value на величину, заданную свойством SmallChange. Как и для ScrollBar, интервал изменения числовой характеристики определяется значениями свойств Min и Мах, вертикальная или горизонтальная ориентация счетчика – свойством Orientation, а задержка между повторными событиями Change – свойством Delay.
Чтобы изменения Value были видны пользователю, счетчик надо связать с полем ввода или с меткой в процедуре обработки события Change, так же как для полосы прокрутки.
Пример 27. Создать форму, содержащую два элемента spinbutton, два текстовых поля и кнопку, выводящую результат вычисления в метку на форме. Программно отражать значения в текстовых полях формы при движении бегунка. После нажатия на кнопке «Вычислить» программа считывает значения с текстовых полей, переводит эти значения в числовые и перемножает. Результат вычисления отражается в соответствующей метке на форме.
Технология выполнения
1. Активизируйте приложение Word и сохраните документ.
2. Перейдите в редактор VBA и создайте форму (рис. 57).
Рис. 57. Форма примера 27 в режиме конструктора и в рабочем режиме
3. Обработайте элементы SpinButton и кнопку «Вычислить».
Dim a, b, c As Integer
Private Sub CommandButton1_Click
c = a * b
Label4.Caption = «Произведение с =» & c
End Sub
Private Sub SpinButton1_Change
TextBox1.Text = SpinButton1.Value
a = Val(TextBox1.Text)
End Sub
Private Sub SpinButton2_Change
TextBox2.Text = SpinButton2.Value
b = Val(TextBox2.Text)
End Sub