6.19. Полоса процесса (Progressbar)

Полоса (компонент Microsoft Windows Common Control 6.0) служит для показа текущего процента выполнения процесса.

Специфичные свойства

Min/Max ‑ начальное/конечное значение диапазона.

Value‑ содержит число, определяющее процент выполнения процесса.

Orientation‑ ориентация полосы: горизонтальная (ссOrientationHorizon­tal), вер­­ти­каль­ная (ссOrientationVertical).

Scrolling‑ способ отображения: непрерывный (ссScrollingSmooth), сегмен­ти­ро­ван­ный (ссScrollingStandard).

Примерпроцесса чтения базы

Data1.Recordset.MoveLast ‘переход на последнюю запись базы

Numrecs=Data1.Recordset.RecordCount ‘определение числа записей в базе

ProgressBar1.Min=1 ‘минимальное значение

ProgressBar1.Max=Numrecs ‘максимальное значение ‑ число записей в базе

ProgressBar1.Value=1 ‘начало процесса

Data1.Recordset.MoveFirst ‘переход на первую запись базы

For i=1 To numrecs

Data1.Recordset.MoveNext ‘переход на следующую запись базы

ProgressBar1.Value=i ‘изменение процента выполнения процесса

Next ‘конец тела цикла

6.20. Контур (Shape)

Объект позволяет выделять область с целью объединения логически свя­занных объектов, что повышает наглядность формы.

Специфичные свойства

Shape‑ тип фигуры выделения: прямоугольник (0), квад­рат (1), овал (2), окружность (3), скругленный прямоугольник (4), ск­руг­лен­ный квадрат (5);BorderStyle, BorderWidth - стиль контура, толщина линии.

FillColor/FillStyle - цвет заполнения и стиль заполнения узором.

6.21. Линия (Line)

Объект используется для проведения линий оформления и имеет свойства, аналогичные свойствам контура.

6.22. Закладки (ssTab, TabStrip)

Закладки используются, если чис­ло объектов велико, и они не помещаются на форму. Объект содержит не­сколько закладок (стра­­ниц). На каждой странице несколько объек­тов.

Закладки SSTab (компонентыMicrosoftTabbedDialogControl6.0) и включается в список компонентов коман­дойProject/Components/Browse/ .../Sys­tem/Tabctl32.ocx).

Специфичные свойства

Custom ‑ вызов окна настройки закладок с более удобным интерфейсом.

Tabs, TabsPerRow‑ общее чис­ло страниц и число страниц в одном ря­ду.

Style ‑ стиль закладки Micro­soft Office (0) или Window 95 (1).

TabHeight, TabsMaxWidth ‑ высота и ширина корешка закладки (нулевое зна­чение означает, что размер корешка закладки будет выбран таким, чтобы они заняли весь ряд).

TabOrientation; TabCaption‑ ориентация закладки: вверху (0), вни­­зу (1), слева (2) или справа (3) от объекта; текст заголовка текущей страницы.

WordWrap - возможность мно­го­строчного заго­лов­ка закладки (True).

Для зада­ния текста заголовка зак­ладки следует выб­рать нужную закладку, щелкнув мышкой на корешке закладки, и задать значение свойству Captionи свойствуPicture, для раз­мещения рисунка. Кнопки-пе­реклю­чатели на странице должны всегда заключаться в рамки или в графическое поле PictureBox, так как страница не является контейнером.

Закладки TabStrip(компоненты Mic­rosoft Windows Common Cont­rol 6.0) менее удобен: пользователь может формировать стра­­ницы только при выполнении программы, скры­вая ненужные объекты.

Специфичные свойства

Custom ‑ вызов окна настройки закладок с более удобным интерфейсом.

CausesValidation=True‑ происходит событиеValidateпри потере фокуса.

HighLighted=True‑ выделение текущей страницы.

HotTracking=True‑ заголовок страницы подсвечивается при прохождении маркера мыши.

MultiSelect=True‑ выбор нескольких страниц одновременно (Style=True).

Placement‑ положение закладок: сверху (tabPlacement­Top), снизу (tab­PlacementBottom), слева (tabPlacementLeft), справа (tabPlacemenRight).

SelectedItem.Index, SelectedItem ‑ номер выбранной вкладки и ее заголовок.

Separators=True- отображение разделителей между кнопками.

TabMinWidth‑ минимально допустимая ширина заголовка страницы.

TabStyle=tabTabOposition‑ ряд с выбранным заголовком страницы пере­ме­щает­ся на первую позицию.

Метод DeselectedAllотменяет множественный выбор.

Обычно создается массив объектов‑контейнеров Fram. Каж­дый та­кой контейнер содержит объекты одной страницы. В процедуре обработки событияClickосуществляется переход на выбранную страницу, используя свойствоSelectedItem.Index. Контейнер предыдущей страницы скрывается, а новой ‑ отображается.

Примерработы с закладками TabStrip

(General)(Declarations) ‘раздел глобальных объявлений формы

Dim n As Byte ‘ номер текущей страницы

Private Sub TabStrip1_Click() ‘ процедура обработки события Click

If n+1=TabStrip1.SelectedItem.Index Then Exit Sub ‘страница не сменилась

Frame1(n).Visible = False ‘ скрывается фрейм на предыдущей странице

n=TabStrip1.SelectedItem.Index ‑ 1 ‘ номер фрейма для выбранной страницы

Frame1(n).Top=TabStrip1.Top+300 : Frame1(n).Left=TabStrip1.Left+200

Frame1(n).Visible = True ‘ настройка местоположения и вывод фрейма

End Sub