»' List all UI-visible Params
»Dim sMsg As String = "Parameters for the selected " & elem.Category.Name & " (" & elem.Id.Value.ToString & ") are:" & vbCrLf
»Dim param As
Parameter
»For Each param In elem.Parameters
»
Dim paramName As
String = param.Definition.Name
»
Dim paramType As
String = param.StorageType.ToString
»
Dim paramValue
As String = LabUtils.GetParamAsString(param)
»
sMsg += "
Name=" &
paramName & ";
Type=" &
paramType & ";
Value=" &
paramValue
»Next
»MsgBox(sMsg)
»
»Public Shared Function GetParamAsString(ByVal param As Parameter) As String
» Dim str As
String
» Select Case param.StorageType
» Case
StorageType.Double
» str = param.AsDouble.ToString
» Case
StorageType.Integer
» str = param.AsInteger.ToString
» Case
StorageType.String
» str = param.AsString
» Case
StorageType.ElementId
» str =
param.AsElementId.Value.ToString
»
End Select
» Return str
»End Function