[resolved] loop through all properties [/resolved]

[dogfish227]

is there any way to loop through all the properties of an object?

Example: if i had an object of this class

public class ObjectExample
 
private _a as integer
private _b as string
 
public property a() as integer
 get 
    return _a
 end get
 set(byval value as integer)
   _a = value
 end set
end property
 
public property b() as string
 get 
    return _b
 end get
 set(byval value as string)
   _b = value
 end set
end property
 
end class

now i want to be able to loop throught and check the value of property a and then of property b.

is this even possible?

[Negative0]

Something like this:

Make sure you have a Imports System.Reflection at the top.

Dim PropInfo As PropertyInfo()
        Dim pi As PropertyInfo
        Dim tmpObject() As Object
        PropInfo = Me.GetType.GetProperties()
        For Each pi In PropInfo
            If pi.DeclaringType.Name = "ObjectExample" Then
                MsgBox((pi.Name & " : " & pi.GetValue(Me, tmpObject)))
            End If
        Next

[Memnoch1207]

Or

Imports System
Module Module1
 
    Sub Main()
        Dim props() As System.Reflection.PropertyInfo
        Dim objProp As System.Reflection.PropertyInfo
        Dim objPerson As Person = New Person
 
        props = objPerson.GetType.GetProperties
 
        For Each objProp In props
            Console.WriteLine("Property Name: " & objProp.Name _
                & "; Type: " & objProp.PropertyType.Name)
        Next
    End Sub
End Module
 
Public Class Person
 
    Private mName As String
    Public Property Name() As String
        Get
            Return mName
        End Get
        Set(ByVal Value As String)
            mName = Value
        End Set
    End Property
 
    Private mAge As Integer
    Public Property Age() As Integer
        Get
            Return mAge
        End Get
        Set(ByVal Value As Integer)
            mAge = Value
        End Set
    End Property
 
End Class

[dogfish227]

thanks that worked great