Интерактивное графическое программное обеспечение PC-DMIS (Глава 11: Создание отчетов HyperView), страница 13

2.  Выберите указатель и вытяните его бокс, чтобы увеличить вертикальную дистанцию. Заметьте, что сама стрелка не увеличится, увеличится только дистанция, на которую она двигается.

3.  Двойным щелчком на иконке Pointerоткройте диалог PropertySheet.

4.  Выберите вкладку PC-DMIS.

5.  Щелкните свойство ValueEQ . Появится окно VBSMini-Editor, большая часть его закрыта для выбора.

6.  Выберите VBScriptиз списка. Теперь текстовая область открыта.

7.  Добавьте следующий код, который позволит стрелке двигаться при прокрутке многостраничного отчета:

intValue = InputBox ("Введите значение. Стрелка продвинется на указанный процент от общей дистанции.")

Retn = intValue

8.  Нажмите OK для закрытия окна VBSMini-Editor.

9.  Закройте диалог PropertySheet.

10.  Запустите режим выполнения нажатием CTRL + E .

11.  Пролистывайте страницы с помощью клавиш PAGEUP и PAGEDOWN, и смотрите, как стрелка движется согласно вашим  установкам.

Объект Gauge (Индикатор)

Инструмент Gauge помещает индикатор (или шкалу выполнения) в отчет HyperView.

Наряду с возможностью менять цвет, размер и другие функции объекта, вы можете заставить данный объект двигаться согласно командам Visual BASIC:

Свойство	Описание
ValueEq	Округление значений (Это значение может быть установленной константой, значением, полученным вычислением простого уравнения, или возвращаемым значением из сценария VBScript). -$, $, CONST
MinimumEq	Минимальное округление (Это значение может быть установленной константой, значением, полученным вычислением простого уравнения, или возвращаемым значением из сценария VBScript). -$, $, CONST
MaximumEq	Максимальное округление  (Это значение может быть установленной константой, значением, полученным вычислением простого уравнения, или возвращаемым значением из сценария VBScript). -$, $, CONST

Пример использования сценария BASIC для динамичного изменения  показаний индикатора

Вы можете использовать команды BASIC в окне VBSMini-Editor, чтобы индикатор показывал нужные вам изменения. Например, чтобы индикатор показывал процент просмотренных страниц от общего количества страниц многостраничного отчета, вы можете использовать следующие команды:

1.  Создайте десятистраничный отчет как описано в главе "Создание многостраничных отчетов"

2.  Вставьте в отчет объект Gauge.

3.  Выберите Gaugeи вытяните его бокс,чтобы увеличить вертикальную дистанцию. Это вся дистанция, на которую может переместиться процентная шкала.

4.  Двойным щелчком по  объекту Gaugeвызовите PropertySheet

5.  Выберите вкладку PC-DMIS.

6.  Щёлкните свойство MaximumEq. Появится окно  VBSMini-Editor; большая часть его закрыта для выбора.

7.  Выберите VBScriptиз списка. Теперь текстовая область открыта.

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

8.  Нажмите OK для закрытия окна VBSMini-Editor.

9.  Теперь щёлкните свойство ValueEQ. Окно VBSMini-Editorпоявится снова.

10.  Выберите VBScript из списка. Теперь текстовая область открыта.

11.  Добавьте следующий код, чтобы шкала отображала процесс передвижения по страницам отчета.

Retn = curpage

12.  Нажмите OK для закрытия окна VBSMini-Editor.

13.   Закройте диалог PropertySheet. 

14.  Запустите режим выполнения нажатием CTRL + E .

15.  Пролистывайте страницы с помощью клавиш PAGEUP и PAGEDOWN, и смотрите, как процентная шкала динамично отображает ваше передвижение по страницам отчета.

Объект Graph (График)

Объект Graph помещает в ваш отчет график, который может динамично обновлять свои данные. Объект Graph позволяет вам работать с множеством точек данных. Для настройки точек данных используйте значения X и Y.