LayoutProperty.cls [plain text]
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "LayoutProperty"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
'local variable(s) to hold property value(s)
Private mvarScope As String 'local copy
Private mvarValue As String 'local copy
Private mvarPName As String 'local copy
Public Property Let PName(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.PName = 5
mvarPName = vData
End Property
Public Property Get PName() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.PName
PName = mvarPName
End Property
Public Property Let Value(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.Value = 5
mvarValue = vData
End Property
Public Property Get Value() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.Value
Value = mvarValue
End Property
Public Property Let Scope(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.Scope = 5
mvarScope = vData
End Property
Public Property Get Scope() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.Scope
Scope = mvarScope
End Property
Public Property Get Id() As String
Id = mvarPName & ":" & mvarScope
End Property
Public Function ToString() As String
If mvarScope = "Graph" Then
ToString = "-G"
ElseIf mvarScope = "Node" Then
ToString = "-N"
ElseIf mvarScope = "Edge" Then
ToString = "-E"
ElseIf mvarScope = "Subgraph" Then
ToString = "-S"
ElseIf mvarScope = "Cluster" Then
ToString = "-C"
End If
ToString = ToString & mvarPName & "=" & _
IIf(Mid(mvarValue, 1, 1) = Chr(34), "", Chr(34)) & _
mvarValue & _
IIf(Mid(mvarValue, 1, 1) = Chr(34), "", Chr(34))
End Function