Skip to content

AddNamedConnectionPoints Method

Description

Adds a connection point to the Node.

Syntax

Public Sub AddNamedConnectionPoints( _
    ByVal Name As String, _
    ByVal Type As Long _
)

Parameters

Name Type
Name String
Type Long

Return Type

Returns a reference to the connection point that was just added.

Example

' Adds some connection points to a node

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

Debug.Print FlowGraph.Pages.Count  

Set FlowGraph.ActivePage = Page  

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

pTableCustomers.Caption = "Customers"  
pTableCustomers.Tooltip = "Customers Table"  
pTableCustomers.Color = RGB(155, 187, 89)  
pTableCustomers.LocationX = 820  
pTableCustomers.LocationY = 360  
pTableCustomers.ImageIndex = 0  
pTableCustomers.Locked = True

pTableCustomers.AddNamedConnectionPoints "ID", xtpFlowGraphPointInput  
pTableCustomers.AddNamedConnectionPoints "Company", xtpFlowGraphPointNone  
pTableCustomers.AddNamedConnectionPoints "Last Name", xtpFlowGraphPointNone  
pTableCustomers.AddNamedConnectionPoints "First Name", xtpFlowGraphPointNone  
pTableCustomers.AddNamedConnectionPoints "Job Title", xtpFlowGraphPointNone  
pTableCustomers.AddNamedConnectionPoints "Business Phone", xtpFlowGraphPointNone

See Also

FlowGraphNode Object

Copyright (c) 1998-2024 Codejock Technologies. All rights reserved.