Элемент управления UpDown выглядит как пара кнопок со стрелками. В изолированном виде это упрощенный вариант линейки прокрутки, но обычно UpDown используется не один, а совместно с каким-либо другим элементом управления, присоединяемым к нему с помощью свойства BuddyControl. Тогда нажатие кнопок со стрелками вызывает уменьшение или увеличение определенного значения в этом присоединенном элементе. С точки зрения пользователя UpDown и присоединенный к нему элемент часто представляют собой единое целое.
Публикуется с разрешения авторов. (С) Андрей Колесов, Ольга Павлова Вперые опубликовано в электронной версии журнала "Мир ПК" N 3/99 | | Элемент управления UpDown выглядит как пара кнопок со стрелками. В изолированном виде это упрощенный вариант линейки прокрутки, но обычно UpDown используется не один, а совместно с каким-либо другим элементом управления, присоединяемым к нему с помощью свойства BuddyControl. Тогда нажатие кнопок со стрелками вызывает уменьшение или увеличение определенного значения в этом присоединенном элементе. С точки зрения пользователя UpDown и присоединенный к нему элемент часто представляют собой единое целое. Примечание. Не допускается присоединение к UpDown элементов управления, которые не ограничиваются рамками какого-либо окна (таких, как, например, Label). Диапазон значений, регулируемых с помощью UpDown, определяется свойствами Min и Max; свойство Increment задает размер приращения, на которое изменяется значение при нажатии на кнопку. Например, для работы с числами, кратными 10, в диапазоне от 20 до 80 можно установить Increment=10, Min=20 и Max=80. Свойство Wrap позволяет "зациклить" изменение значения, т. е. указать, что при максимальном значении нажатие на кнопку увеличения вызовет переход к минимальному значению и наоборот. Присоединить элемент управления к UpDown можно вручную, воспользовавшись свойством BuddyControl, или автоматически, с помощью свойства AutoBuddy. В последнем случае к UpDown присоединяется предыдущий (при прохождении с помощью клавиши Tab) элемент управления, а если его нет - следующий. Во время разработки программы UpDown и присоединенный элемент управления ведут себя как один объект: они располагаются рядом, вместе перемещаются и меняют свой размер. Свойство Alignment определяет, будет ли UpDown находиться справа или слева от присоединенного элемента. Примечание. Чтобы задать свойство BuddyControl, лучше сначала установить в окне свойств UpDown свойство SyncBuddy (на сообщение об ошибке ответьте OK). Если этого не сделать, то при попытке воспользоваться свойством BuddyControl во время работы программы вы можете получить сообщение об ошибке "BuddyControl must be a separate control within the same container." (BuddyControl должен представлять собой отдельный элемент управления внутри того же контейнера.) Библиотека Microsoft Forms 2.0 Object Library содержит элемент управления SpinButton ("Счетчик"), до некоторой степени аналогичный UpDown, но с более бедными возможностями: в частности, он не имеет таких свойств, как AutoBuddy, BuddyControl, Alignment, Increment и Wrap, и не работает с OLE-событиями Всего SpinButton поддерживает 11 свойств и 9 событий, а UpDown - 24 свойства и 16 событий. Пример использования UpDown Чтобы UpDown можно было использовать в приложениях на базе Office, необходимо установить в VB связь с файлом Comct232.ocx. Произведя необходимые действия, добавьте к пользовательской форме элемент управления Microsoft UpDown Control, version 5.0 и выполните следующие шаги. - Поместите на ту же форму два элемента управления TextBox ("Поле").
- Установите значения свойств для формы и элементов управления так, как показано в таблице:
Объект | Свойство | Значение | UserForm | Name | usfContainer | UserForm | Caption | Элемент управления UpDown | UpDown | Name | updODE | UpDown | BuddyControl | txtBuddy | TextBox1 | Name | txtBuddy | TextBox1 | Text | Пусто | TextBox2 | Name | txtTarget | TextBox2 | Text | Пусто | - Настройте размеры и расположение элементов управления так, как показано на рисунке.
- В окне кода введите следующий текст:
Option Explicit Private Sub updODE_Change() ' Используйте свойство Value для установки ' размера шрифта usfContainer.txtTarget.Font.Size = updODE.Value ' Вывод текущего Font.Size usfContainer.txtBuddy.Text = updODE.Value End Sub Private Sub UserForm_Initialize() ' Установка значений различных свойств ' элемента управления UpDown With updODE .Min = 6 .Max = 24 .Increment = 1 .Wrap = True End With ' Текст, который будет выводиться txtTarget.Text = "Font.Size устанавливается с помощью UpDown" End Sub - Запустите пример на выполнение.
- Попробуйте понажимать кнопки элемента управления UpDown. Обратите внимание на то, что, поскольку шрифт имеет фиксированный набор размеров, текст в окне не всегда меняется при нажатии на кнопку.
Просмотров: 6840
Ваш коментарий будет первым | | |