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

Объект TextVar

Функция TextVarпозволяет вам включать в отчет динамичный текст. Этот объект отличается от объекта Text отсутствием свойства TEXT и наличием двух дополнительных свойств:

Свойство

Описание

ValueEq

Округление значений (Это значение может быть установленной константой, значением, полученным вычислением простого уравнения, или возвращаемым значением из сценария VBScript). Значение отображается и форматируется в режиме выполнения.

-$, $, CONST

Format

Форматирует числовое значение на языке 'C'. Однако, вам следует задавать только числовые значения. Например, формат t %5.2lf становится 5.2, %5d становится 5. Единственное исключение составляют переменные BOOLEAN, где знак $ конвертируется в NO или YES.

Вы можете использовать объект  TextVarдля отображения номеров страницмногостраничных отчетов HyperView. Просто настройте свойство ValueEq, чтобы оно отображало переменную CurPage (номер текущей страницы) или NumPage (общее число страниц).

Образец использования сценария BASIC для динамичного отображения текста.

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

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

2.  Дважды щёлкните объект TextVarдля открытия диалога PropertySheet.

3.  Откройте вкладку PC-DMIS.

4.  Щёлкните свойство ValueEQ. Появляется VBSMini-Editor, но лишь некоторые его части можно выделить.

5.  Выберите из списка VBScript. Теперь возможен ввод информации.

6.  Добавьте несколько переменных, значение которых вы хотите отобразить на разных страницах:

Dim strMessage1 As String

Dim strMessage2 As String

strMessage1 = "HEADING FOR PAGES 1-5"

strMessage2 = "HEADING FOR PAGES 6-10"

7.  Добавьте условный код в зависимости от номера страницы, текст на которой вы хотите изменить с помощью инструмента  TextVar.

If curpage <= 5 Then Retn = strMessage1 Else Retn = strMessage2

Этот код изменяет текст, чтобы отображать полосу, заданную командой strMessage1, с первой страницы по пятую, а потом отображать полосу, заданную командой strMessage2 с шестой до десятой страницы.

8.  Щёлкните OK для закрытия VBSMini-Editor.

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

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

11.  Нажимайте PAGEUP или PAGEDOWN для перехода со страницы на страницу и наблюдайте динамические изменения текста.

Объект Line (Линия)

Объект  Lineпозволяетсоздавать прямую линию в отчете HyperView. Потом вы можете изменять ее свойства щелчком правой кнопки мыши по созданной линии.

Для линии предусмотрены следующие свойства:

Свойство

Описание

PenWidth

Устанавливает толщину линии в пикселях

PenStyle

Меняет тип линии на Solid (целая),  Dash (пунктирная),  Dot (точечная),  Dash-dot (точка-пунктир), или Dash-dot-dot (пунктир-точка-точка).

Arrowhead

Добавляет указатель стрелки и устанавливает направление, в которое эта стрелка показывает. Здесь возможен один из следующих вариантов:

----(нет)

<----->

<--->

ArrowheadHeight

Определяет высоту указателя стрелки в пикселях.

Объект Polyline (Ломаная линия)

Объект Polyline позволяет вам создавать многоугольники и ломаные линии, соединяя линии вместе. Когда вы уже создали первую линию, вторая автоматически начнется с конца первой.  Объект Polyline имеет те же свойства, что и объект Линия, а также несколько особых свойств: