|
Офисное программирование - Полоса прокрутки ScrollBar |
Страница 23 из 51
Полоса прокрутки ScrollBar
Элемент управления 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 – размер бегунка пропорционален размеру области прокрутки (это значение по умолчанию); false – система определяет фиксированный размер бегунка. Пример 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
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
4. Откомпилируйте программу и запустите форму на выполнение.
|
|