Get all property values from object / class

[ispeaker]

I have a collection of objects. I can successfully loop through the collection, and print the value of any property by explicitly stating the property such as obj.ProductGID will print out the value of the current object's ProductGID property.

Looking for a way to print out the values without having to explicitly stating each one. The code below will print the names of the properties, but I don't know how to get the value.

Can anyone help?

  Dim prop As System.Reflection.PropertyInfo
  For Each prop In obj.GetType.GetProperties()
    Debug.Write(prop.Name & " ^^ ")
  Next prop
  Debug.WriteLine(vbCrLf)

 

[ispeaker]

ANSWER:

Put this into any collection class, and it will loop through every object in the collection and print the value of each object.

The code between the ==== lines is the code that gets the value of the property.

Public Shared Sub PrintValues(ByVal ItemList As IEnumerable)
Dim myEnumerator As System.Collections.IEnumerator = _
ItemList.GetEnumerator()
Dim obj As objPartsPricing.Part
Dim Value
While myEnumerator.MoveNext()
obj = myEnumerator.Current
'==========================================================
Dim prop As System.Reflection.PropertyInfo
For Each prop In obj.GetType.GetProperties()
Debug.Write(prop.GetValue(obj, prop.GetIndexParameters) & " -- ")
Next prop
Debug.WriteLine(vbCrLf)
'==========================================================
End While
Debug.WriteLine("")
End Sub

 

[chrissie1]

Thank you.

Christiaan Baes
Belgium

I just like this --> [Wiggle] [Wiggle]

 

[ispeaker]

Your welcome, Chrissie1. Watch out for one thing: if one of the properties is another object or collection, it won't be able to handle it. I'm working on it. Will post solution.

 

[ispeaker]

To prevent the script from generating an error when a property of one class is another class, use this:

If Not prop.PropertyType.IsClass Then . . .

 

[rrhandle]

I tried this, and noticed that if a property is of type STRING nothing is returned. Did I miss something?