Элементы управления ScrollBar
Полосы прокрутки (ScrollBars) чаще всего встречаются в текстовых полях, когда введенный текст полностью на экране не помещается. Однако ничего не мешает вам использовать ScrollBar как отдельный элемент управления (пользователи часто называют его "ползунок") для выбора какого-то значения из диапазона. Обычно такой элемент управления используется для выбора плавно меняющихся значений, например: уровня громкости, яркости, сжатия, приоритета и т. п.
Главное событие для ScrollBar – уже знакомое нам Change.
Главные свойства этого элемента управления представлены далее.
Max и Min – максимальное и минимальное значения, которые можно задать при помощи этого элемента управления. Возможный диапазон – от −32 767 до +32 767.
LargeChange и SmallChange – определяют, какими шагами будет двигаться ползунок при перемещении его пользователем (путем щелчка на полосе около ползунка или при нажатии на одну из кнопок направления соответственно).
Orientation – определяет расположение ползунка (вертикальное или горизонтальное). По умолчанию для этого свойства установлено значение 1, т. е. ориентация определяется автоматически в зависимости от конфигурации отведенного элементу управления пространства на форме (что больше – длина или высота).
ProportionalThumb – определяет размер ползунка: будет ли он пропорционален размеру полосы прокрутки (по умолчанию) или будет фиксированного размера.
Value – главное свойство этого элемента управления. Определяет положение ползунка и то значение, которое будет возвращать этот элемент управления программе.
|
|
|
Как правило, использование ползунка без отображения выбранной при помощи его информации не очень приветствуется пользователями. В самом простом варианте то, что выбрано при помощи ползунка, следует просто отображать в текстовой надписи:
Private Sub ScrollBar1_Change()
Label1.Caption = ScrollBar1.Value
End Sub
Элементы управления MultiPage
Элемент управления MultiPage (набор страниц) реализует многостраничные диалоговые окна. Заголовки страниц отображаются на вкладках. Переход от страницы к странице осуществляется выбором вкладки посредством щелчка кнопкой мыши.
Создать, переименовать, удалить или переместить страницу элемента управления MultiPage можно вручную, выбрав ярлык соответствующего листа и вызвав щелчком правой кнопки мыши контекстное меню. Используя это контекстное меню, можно произвести одно из перечисленных действий.
Объект MultiPage содержит в себе семейство Pages, являющееся набором всех страниц, входящих в этот объект.
|
|
|
Элементы управления TabStrip
Элемент управления TabStrip напоминает закладки в записной книжке или разделители в библиотечной картотеке. Он состоит из нескольких ярлычков и области клиента, в которой отображается связанная с каждым ярлычком информация, размещаемая в расположенных там элементах управления ActiveX (отсюда и название этой области). На стандартном виде элемента управления TabStrip черными линиями обозначена граница области клиента. При щелчке на каком-либо ярлычке он как бы располагается перед оставшимися ярлычками, и в области клиента отображается связанная с этим ярлычком информация.
Примечание
Элемент управления TabStrip используется для создания диалоговых окон со вкладками. Каждая вкладка — это ярлычок с соответствующим ему содержимым области клиента.
Использование элемента управления TabStrip экономит место на странице Web-документа. Множественная информация отображается поочередно в одном месте на странице — области клиента элемента управления.
Вложенные конструкции для принятия решений
Важной особенностью использования конструкций принятия решений является то, что с их помощью можно создавать так называемые вложенные структуры, когда одна конструкция располагается внутри другой. В качестве примера ниже приведен фрагмент программы, в котором в зависимости от результата заполняется один из двух массивов: любо таблица сложения, любо таблица умножения чисел от 1 до 10.
|
|
|
Код:
Option Explicit
Dim intI As Integer, intJ As Integer
Dim intX As Integer
Dim intAdd(1 To 10, 1 To 10) As Integer
Dim intMult(1 To 10, 1 To 10) As Integer
Private Sub Form_Load()
If intX = 0 Then
For intI = 1 To 10
For intJ = 1 To 10
intAdd(intI, intJ) = intI + intJ
Next intJ, intI
Else
For intI = 1 To 5
For intJ = 1 To 5
intMult(intI, intJ) = intI * intJ
Next intJ, intI
End If
End Sub
Как видно из примера, для заполнения массивов используются вложенные циклы For. В подобных случаях при записи программного кода для повышения читаемости принято каждый следующий уровень вложенности смещать относительно предыдущего.
Следует обратить внимание на тот факт, что для окончания выполнения каждой пары вложенных циклов в этом случае использовалось одно ключевое слово Next с перечислением имен изменяемых в данный момент счетчиков. При этом первому по порядку указанному счетчику соответствует ближайшее служебное слово For. В том случае, если возникнет несовпадение имени счетчика с ключевым словом Next, компилятор выдает сообщение об ошибке.
|
|
|
Аналогичным образом действуют также вложенные конструкции принятия решений: в них первый по порядку End If применяется к последнему из имеющихся If, причем количество тех и других должно совпадать. Если же возникает преобладание какого-либо из этих ключевых слов, то на стадии компиляции возникает ошибка с выведением стандартного сообщения. К таким же последствиям приведет несоответствие количества служебных слов для начала и окончания различных разновидностей циклов.
Дата добавления: 2018-04-15; просмотров: 484; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!