SfmConnectionParameters (Object)

Methods

Func Item( iIndex) As

Gets a Item from the collection list.

Parameters:

iIndex

[in] Index of the item to be retrieved.

oStdConParm

[out] The required parameter.

Returns:

S_OK if everything ran ok.

Example

:

This example retrieves and manipulates existing BuiltIn EndCut parameters.

 Dim oStartEndCutObj As SfmEndcut
 Set oStartEndCutObj = StiffObj.GetEndcut(1) 
 Dim oStartEndCutType,oStartEndCutName As String
 Dim oLimitContextList As SfmReferences
 Dim oConnectionParamList As SfmConnectionParameters
 Dim oConnectionParamNames() As Variant
 oStartEndCutObj.GetEndcutinfo oStartEndCutType, oStartEndCutName, oLimitContextList, oConnectionParamList, oConnectionParamNames  
 ' Reading Parameters
 Dim SizeOfUDFParams As Long
 SizeOfUDFParams = oConnectionParamList.Count
 Dim UDFParam As Parameter
 Dim UDFParamName, UDFParamValue As String
 For i = 1 To SizeOfUDFParams
  Set UDFParam = oConnectionParamList.Item(i)
  UDFParamName = oConnectionParamNames(i - 1)
  UDFParamValue = UDFParam.ValueAsString
 Next 
 ' Setting Parameters
 For j = 1 To SizeOfUDFParams
  Set UDFParam = oConnectionParamList.Item(j)
 UDFParamName = oConnectionParamNames(j - 1)
 If (UDFParamName = "A1") Then
    UDFParam.ValuateFromString ("16deg")
    End If
 If (UDFParamName = "A2") Then
     UDFParam.ValuateFromString ("16deg")
     End If
 If (UDFParamName = "B") Then
     UDFParam.ValuateFromString ("31deg")
     End If
 Next