Chip 2004 April/CMCD0404.ISO/Software/Demo/conceptdraw/data1.cab/Samples__Basic/SimpleDrawing/HalloWorld/HalloWorld.cdb

Text File | 2004-02-13 | 3.1 KB | 42 lines

Sub HalloWorld1()
    Dim active_page As Page        'Ссылка на активную страницу текущего документа.
    Dim new_rect As Shape        'Ссылка на объект-шэйп, представляющий новый построенный прямоугольник.
    Dim iShapesCount As integer    'Количество шэйпов на активной странице активного документа.
    Dim i As integer            'Счетчик цикла.

    'Получаем ссылку на активную страницу текущего документа. Используем глобальную переменную thisDoc
    'для доступа к объекту Document.
    Set active_page = thisDoc.ActivePage

    'Получаем количество шэйпов на активной странице активного документа
    iShapesCount = active_page.ShapesNum()
    'Очищаем страницу документа от всех содержащихся на ней шэйпов.
    'Выполняем цикл для всех шэйпов страницы. При инициализации
    'значение счетчика становится равным количеству шэйпов на активной странице
    'активного документа. Затем значение счетчика уменьшается до 1 с шагом -1.
    'Если бы значение счетчика изменялось от 1 до iShapesCount, после удаления
    'шэйпа происходила бы переиндексация остальных объектов, и обращения к объектам
    'по уже несуществующему индексу.
    For i=iShapesCount To 1 Step -1
        'Удаляем шэйп, индекс которого равен i.
        active_page.RemoveShape(i)
    Next

    'На активной странице создается объект-прямоугольник.
    'Ссылка на этот объект присваивается переменной new_rect.
    Set new_rect = active_page.DrawRect(750,150,1250,350)
    'Свойству Text объекта Shape присваивается новое значение.
    new_rect.Text="Hello World!"
End Sub

'Тот же самый пример без введения вспомогательных переменных.
'Ссылка на новый объект (например, на активный документ), которую
'возвращает метод другого объекта (например, метод ActiveDoc объекта
'Application), не присваивается промежуточной переменной. Она сразу
'используется для обращения к свойствам и методам полученного объекта.
'Для очистки страницы от лишних шэйпов используется специальный метод
'RemoveAllShapes()
Sub HalloWorld2()
    thisDoc.ActivePage.RemoveAllShapes()
    thisDoc.ActivePage.DrawRect(750,150,1250,350).Text="Hello World!"
End Sub