Connections Property

Description

Returns a collection of all connections that have been added to this page.

Property Type

Read-only property

Syntax (Visual Basic)

Public Property Connections() As [FlowGraphConnections](XtremeFlowGraph~FlowGraphConnections.md)

Return Type

Returns a collection of all connections that have been added to this page.

Remarks

Connections

Example

Adds nodes, connection points, and connections to a Flow Graph.

Dim Image As FlowGraphImage  
Set Image = FlowGraph.Images.AddImage  
Image.LoadFromFile App.Path & "\Images\NodeImageCustomers.bmp"

Dim Page As FlowGraphPage  
Set Page = FlowGraph.Pages.AddPage  

Debug.Print FlowGraph.Pages.Count  

Set FlowGraph.ActivePage = Page  

Dim Node As FlowGraphNode  
Set Node = Page.Nodes.AddNode  

Node.Caption = "Employee"  
Node.Tooltip = "Employee Table"  
Node.ImageIndex = 0  
Node.LocationX = 50  
Node.LocationY = 50  

Dim Point As FlowGraphConnectionPoint  
Set Point = Node.ConnectionPoints.AddConnectionPoint  
Point.Caption = "Employee ID"  
Point.Type = 1  

Set Point = Node.ConnectionPoints.AddConnectionPoint  
Point.Caption = "First Name"  
Point.Type = 2  

Set Point = Node.ConnectionPoints.AddConnectionPoint  
Point.Caption = "Last Name"  
Point.Type = 2  

Set Point = Node.ConnectionPoints.AddConnectionPoint  
Point.Caption = "Extension"  
Point.Type = 2  

Set Node = Page.Nodes.AddNode  

Node.Caption = "Project"  
Node.Tooltip = "Project Table"  
Node.LocationX = 250  
Node.LocationY = 50  

Set Point = Node.ConnectionPoints.AddConnectionPoint  
Point.Caption = "Project ID"  
Point.Type = 1  

Set Point = Node.ConnectionPoints.AddConnectionPoint  
Point.Caption = "Name"  
Point.Type = 2  

Set Point = Node.ConnectionPoints.AddConnectionPoint  
Point.Caption = "Description"  
Point.Type = 2  

Set Node = Page.Nodes.AddNode  

Node.Caption = "Project - Employee"  
Node.Color = vbBlue  
Node.Tooltip = "Project - Employee Table"  
Node.LocationX = 100  
Node.LocationY = 250  

Set Point = Node.ConnectionPoints.AddConnectionPoint  
Point.Caption = "Employee ID"  
Point.Type = 2  

Set Point = Node.ConnectionPoints.AddConnectionPoint  
Point.Caption = "Project ID"  
Point.Type = 2  

Dim Connection As FlowGraphConnection  
Set Connection = Page.Connections.AddConnection  

Set Connection.OutputPoint = Page.Nodes(0).ConnectionPoints(0)  
Set Connection.InputPoint = Page.Nodes(2).ConnectionPoints(0)  

Set Connection = Page.Connections.AddConnection  
Set Connection.OutputPoint = Page.Nodes(1).ConnectionPoints(0)  
Set Connection.InputPoint = Page.Nodes(2).ConnectionPoints(1)