Установка начального значения

При загрузке списка в поле ввода обычно появляется какое-то значение. Это значение можно установить при разработке программы, присвоив свойству Text нужное значение, или установить его программно, используя свойство ListIndex:

Combo1.ListIndex = 2

Если вы хотите, чтобы при загрузке формы поле ввода осталось пустым, присвойте свойству Text на этапе разработки пустую строку.

5.1.3. Полоса прокрутки (ScrollBar)

Полосы прокрутки используются во всех списках, формах, но могут выполнять и некоторые специфические свойства, например, роль регуляторов.

С точки зрения программирования, полосы прокрутки являются одними из самых простых элементов управления.

Основными свойствами полосы прокрутки ScrollBar являются Max, Min и Value, SmallChange.

Свойства Max и Min определяют диапазон измеряемых величин, который может изменяться от – 32768 до + 32767. Значение свойства Value напрямую зависит от установленного диапазона и определяется текущим положением ползунка.

Свойство SmallChange определяет, на какую величину будет изменяться значение свойства Value при щелчке мышью по правой или левой кнопке полосы прокрутки.

Для полосы прокрутки важное значение имеют события Chаnge и Scroll. При изменении положения ползунка автоматически возникает событие Chаnge для описываемого элемента управления. Событие Scroll возникает перед событием Chаnge.

Пример 5.6. Использование свойств полосы прокрутки (рис.5.4.).

Поместим на форму три полосы прокрутки, элемент TextBox и шесть Надписей. Текстовое поле будем использовать для отображения цвета. Три Надписи задействуем для обозначения полос прокрутки, а остальные Надписи используем для отображения числового значения свойства Value полос прокрутки. Cвойству Max элемента ScrollBar присвоим значение 255, а свойству Min – ноль, а свойству SmallChange присвоим значение 1.

Текст программы для полос прокрутки поместим в обработчик события Scroll, чтобы одновременно с перемещением ползунка менялось и числовое значение. При перетаскивании ползунка полосы прокрутки цвет текстового поля на экране будет синхронно изменяться, а в Надписях будет показываться значение свойства Value.

Private Sub VScroll1_Scroll()

Label4(0).Caption = VScroll1.Value

Text1.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value)

End Sub

Private Sub VScroll2_Scroll()

Label4(1).Caption = VScroll2.Value

Text1.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value)

End Sub

Private Sub VScroll3_Scroll()

Label4(2).Caption = VScroll3.Value

Text1.BackColor = RGB(VScroll1.Value, VScroll2.Value, VScroll3.Value)

End Sub

5.1.4. Элемент управления Slider.

Другим элементом управления, похожим на полосу прокрутки и встречающимся в приложениях Windows является элемент Slider. Он позволяет выбирать дискретное значение или набор значений из определенного диапазона.

Этого элемента управления нет среди стандартных элементов управления панели ToolBox. Для загрузки его на панель элементов управления выберите команду Project\Components, установите флажок Microsoft Windows Common Controls 6.0 (SP3) или Common Controls 5.0 (SP2).

Элемент Slider имеет свойства Min, Max и Value как и полоса прокрутки. Параметры изменения значений при перемещении ползунка в области значений определяют свойства SmallChange – минимальное изменение и LargeChange – максимальное изменение.

В отличие от полосы прокрутки для этого элемента можно определить не только одно значение, но и некоторый диапазон значений. Для этого служат свойства SelStart и SelLength, но само выделение диапазона должно выполняться программно. Новое свойство Text позволяет задавать текст надписи, которая будет отображаться при перемещении ползунка. Позиция отображения этой надписи определяется значением свойства TextPosition. Новым является также и событие Validate. В обработчике этого события помещается код проверки правильности введенных данных.