Form Verbinder in Visio

Verbindungen in Visio erfolgt über Objekte Verbinden. Jede Form hat eine Sammlung der eingehenden Objekte verbinden und ausgehenden Objekte verbinden. Ihre Namen sind FromConnects und Verbindet, beziehungsweise.

Verbinden jeweils das Objekt hat einen FromSheet und ToSheet Eigenschaft, die nur Zeiger auf Shape-Objekte, die FromSheet Form der Form, die Verbindung zu den ToSheet Form.

Also, wenn Sie haben eine quadratische Form (shape1) an eine andere quadratische Form (shape2) mit einer Verbindungslinie (Stecker), was Sie eigentlich haben, ist diese:
- Anschluss angeschlossen ist, shape1
- Anschluss angeschlossen ist, shape2

Also auf shape1, Sie schaute FromConnects sehen und ein Element Verbindet, mit FromSheet Referenzierung-Anschluss, und ToSheet bezogen auf shape1.
Form 2 die gleiche wäre.
Wenn man sich anschaut, Verbindet auf dem Verbinder-shape, würden Sie sehen, das gleiche Verbindet-Element, mit dem gleichen Objekte referenziert.

So herauszufinden, ob shape1 verbindet shape2 oder Umgekehrt, ist eine Frage der Blick auf die Reihenfolge am Stecker...Verbindet Objekt 1, wäre das "Von" - Form und Verbindet Objekt 2 wäre der "Zu" - Form.

Hier sind zwei VBA-Routinen, die Eingehende und Ausgehende Kleber auf eine Form, die Sie übergeben, und liefert ein collection-Objekt. Ich weiß, du hast gesagt, du bist mit C#, aber ich VBA für Visio. Der code zeigt einfach, dass das raw-Verbindung Informationen. Ich würde vorschlagen, Sie gehen um in VBA und sehen, wie das alles funktioniert, weil es immer noch mich verwirrt.

Public Function GetShapesThatConnectTo(TheShp As Visio.Shape) As Collection
    Dim Result As Collection
    Set Result = New Collection
    For i = 1 To TheShp.FromConnects.Count
        Result.Add TheShp.FromConnects.Item(i).FromSheet
    Next i
    Set GetShapesThatConnectTo = Result
End Function

Public Function GetWhatShapeConnectsTo(TheShp As Visio.Shape) As Collection
    Dim Result As Collection
    Set Result = New Collection
    For i = 1 To TheShp.Connects.Count
        Result.Add TheShp.Connects.Item(i).ToSheet
    Next i
    Set GetWhatShapeConnectsTo = Result
End Function