<VB.NET>
'' Helper
function: return a string from of a given parameter.
Public Shared Function ParameterToString(ByVal param As Parameter) As String
Dim val As String = "none"
If param Is Nothing Then
Return val
End If
'' to get to
the parameter value, we need to pause it depending on
'' its
strage type
Select Case param.StorageType
Case StorageType.Double
Dim dVal As Double = param.AsDouble
val = dVal.ToString
Case StorageType.Integer
Dim iVal As Integer = param.AsInteger
val = iVal.ToString()
Case StorageType.String
Dim sVal As String = param.AsString
val = sVal
Case StorageType.ElementId
Dim idVal As ElementId = param.AsElementId
val =
idVal.IntegerValue.ToString
Case StorageType.None
Case Else
End Select
Return val
End Function
</VB.NET>