© 2010 Autodesk
Introduction to Revit 2011 API
DB Element
Element.Parameters  
§ABC
§
<VB.NET>
    ''  show all the parameter values of the element
    Public Sub ShowParameters(ByVal elem As Element, _
                              Optional ByVal header As String = "")
 
        Dim s As String = header + vbCr + vbCr
        Dim params As ParameterSet = elem.Parameters
 
        For Each param As Parameter In params
            Dim name As String = param.Definition.Name
            ''  see the helper function below
            Dim val As String = ParameterToString(param)
            s = s + name + " = " + val + vbCr
        Next
 
        TaskDialog.Show("Revit Intro Lab", s)
 
    End Sub
</VB.NET>