Предыдущая тема :: Следующая тема |
Автор |
Сообщение |
stich
Зарегистрирован: 14.03.2008 Сообщения: 10
|
Добавлено: Чт Июн 19, 2008 8:50 am Заголовок сообщения: Динамическая отрисовка |
|
|
Подскажите.
Как, например, динамически отрисовать линию заданой длины.
То есть, указать на экране начальную точку(уще видя на экране линию), указать вторую точку(задать направление).
Как обычно рисуется линия кнопкой в MS. |
|
Вернуться к началу |
|
|
Leonid давно здесь сидим
Зарегистрирован: 28.01.2006 Сообщения: 598 Откуда: С.-Петербург
|
Добавлено: Чт Июн 19, 2008 10:14 am Заголовок сообщения: |
|
|
Открываем хелп по VBA, идем в поиск, находим пример Line Element Creation Command, и вперед... |
|
Вернуться к началу |
|
|
ВалВл
Зарегистрирован: 08.02.2006 Сообщения: 138
|
Добавлено: Чт Июн 19, 2008 11:03 am Заголовок сообщения: |
|
|
В инструменте "Построение линии" задаёте размер, сажаете начало линии на первую точку, открываете второе окно, находите в нём вторую точку и привязываетесь. Если я правильно понял задачу. |
|
Вернуться к началу |
|
|
Leonid давно здесь сидим
Зарегистрирован: 28.01.2006 Сообщения: 598 Откуда: С.-Петербург
|
Добавлено: Чт Июн 19, 2008 1:01 pm Заголовок сообщения: |
|
|
ВалВл
Это раздел для программистов.
Если здесь задается такой вопрос, то имеется в виду - как это сделать программно
|
|
Вернуться к началу |
|
|
stich
Зарегистрирован: 14.03.2008 Сообщения: 10
|
Добавлено: Пт Июн 20, 2008 5:25 am Заголовок сообщения: |
|
|
Leonid писал(а): | Открываем хелп по VBA, идем в поиск, находим пример Line Element Creation Command, и вперед... |
Да, линия рисуется, но её до ввода второй точки не видно, а как сделать чтобы уже после ввода первой точки линию можно было видеть и как задать длину? |
|
Вернуться к началу |
|
|
Leonid давно здесь сидим
Зарегистрирован: 28.01.2006 Сообщения: 598 Откуда: С.-Петербург
|
Добавлено: Пт Июн 20, 2008 8:10 am Заголовок сообщения: |
|
|
Присутствие метода CommandState.StartDynamics и следующего кода уже самом собой значит что линия отрисовывается в динамике.
Код: |
Private Sub IPrimitiveCommandEvents_Dynamics(...)
...
Dim oEl As LineElement
Set oEl = CreateLineElement1(Nothing, m_atPoints)
oEl.Redraw DrawMode
...
End Sub
|
Если этого не видно, значит в самом МС отключено отображение динамики, проверьте атрибуты вида (в меню Settings - View Attributes)
А задать длину можно с помощью Accudraw, если конечно нет желания конструировать заново велосипед |
|
Вернуться к началу |
|
|
stich
Зарегистрирован: 14.03.2008 Сообщения: 10
|
Добавлено: Чт Июн 26, 2008 7:06 am Заголовок сообщения: |
|
|
Спасибо. С линией получилось, будем рисовать фрагменты. |
|
Вернуться к началу |
|
|
|