All Forums
 Категория Visio
 Форум Вопросы и ответы
 Как отловить соединение шейпов
Author Previous Topic Topic Next Topic  

Дима

3 Posts
Posted - 03/06/2004 :  16:35:25
Как отловить соединение шейпов. И как узнать какие это шейпы.

Tumanov

Russia
1198 Posts
Posted - 03/06/2004 :  16:56:47
Все соединения можно посмотреть в коллекциях Connects или FromConnects шейпа или коллекции Connects страницы.
А дальше выбирается из этой коллекции очередной Connect и рассматриваются его свойства FromSheet, ToSheet для определения участвующих шейпов и свойства FromPart, ToPart для уточнения их частей.

Или надо событие соединения отловить?
Если так, то нужно объявлять страницу с WithEvents. При этом станет возможной обработка события ConnectionsAdded(ByVal Connects As IVConnects). Ну, а здесь уже в обработчике получаем тот же самый объект Connects и начинаем точно также рассматривать его свойства.
Go to Top of Page

Дима

3 Posts
Posted - 03/09/2004 :  12:49:21
Очень благодарен.
Может быть найдется у вас пример на эту тему?
Заранее спасибо.
Go to Top of Page

mormax

Russia
18 Posts
Posted - 03/19/2004 :  06:20:54
quote:
Originally posted by Дима

Очень благодарен.
Может быть найдется у вас пример на эту тему?
Заранее спасибо.

Вот простейший:

Sub Example1()
s1 = ""
lastFromSheet = ""
lastToSheet = ""
 For i = 1 To ActivePage.Connects.Count
  thisFromSheet = ActivePage.Connects(i).FromSheet
  thisToSheet = ActivePage.Connects(i).ToSheet
   If lastFromSheet = thisFromSheet Then
    s1 = s1 + lastToSheet + " -> " + thisToSheet + vbCrLf
   End If
  lastFromSheet = thisFromSheet
  lastToSheet = thisToSheet
 Next
MsgBox (s1)
End Sub

- показывает соединение 2х шейпов с помощью третьего, например с помощью "Dynamic connector".
Go to Top of Page
  Previous Topic Topic Next Topic  
Данный сайт является архивом форума visio.artberg.ru, который был закрыт в связи с переходом на новую платформу visio.getbb.ru
Все материалы доступны только для чтения! Если у вас появились вопросы, или вы хотите что-то обсудить, связанное с Visio, обращайтесь на новый форум!
Архив был создан благодаря совместным усилиям Генадия Туманова @Tumanov (visio.artberg.ru), Александра ака @Surrogate (visio.getbb.ru), и Николая Белых @nbelyh (unmanagedvisio.com)