VB.NET : Recuperare il valore o il tipo di una proprietà in maniera ricorsiva tramite reflection.

Le due funzioni che vi propongo consentono di recuperare, in maniera ricorsiva, il valore o il tipo di una proprietà (pubblica) di un oggetto.

La proprietà può essere anche una delle proprietà di un oggetto aggregato all'oggetto di partenza, ad esempio:

dim fInfo as new FileInfo("c:\prova.txt")
dim value as object = getPropertyValue(fInfo,"Directory.LastAccessTime.Day")

recupera la proprietà Day (Integer) della proprietà LastAccessTime (di tipo DateTime) contenuta nella proprietà Directory (di tipo DirectoryInfo) dell'oggetto fInfo.

E' possibile indicare l'indice dell'oggetto da recuperare nel caso delle proprietà indicizzate (array, collection, etc., etc.).

In maniera analoga lavora la funzione che recupera il tipo della proprietà.

Imports System.Reflection
Public Shared Function GetPropertyType(ByVal objType As Type, _
        ByVal propertyName As String) As Type
    Dim retval As Object = Nothing
    Dim strArray = propertyName.Split(".")
    If strArray.Count > 0 Then
        Dim propinfo As PropertyInfo = objType.GetProperty(strArray(0))
        If Not propinfo Is Nothing Then
            If strArray.Count > 1 Then
                Dim dotIndex = propertyName.IndexOf(".")
                Dim propName = propertyName.Substring(IIf(dotIndex >= 0, dotIndex + 1, 0))
                retval = GetPropertyType(propinfo.PropertyType, propName)
            Else
                retval = propinfo.PropertyType
            End If
        Else
            Throw New Exception("Property name error!!!")
        End If
    Else
        retval = objType
    End If
    Return retval
End Function

Public Shared Function GetPropertyValue(ByVal obj As Object, _
        ByVal propertyName As String, _
        Optional ByVal index As Integer = -1) As Object
    Dim retval As Object = Nothing
    Dim strArray = propertyName.Split(".")
    If strArray.Count > 0 Then
        Dim objType As Type = obj.GetType()
        Dim propinfo As PropertyInfo = objType.GetProperty(strArray(0))
        If Not propinfo Is Nothing Then
            If strArray.Count > 1 Then
                Dim dotIndex = propertyName.IndexOf(".")
                Dim propName = propertyName.Substring(IIf(dotIndex >= 0, dotIndex + 1, 0))
                retval = GetPropertyValue(propinfo.GetValue(obj, Nothing), propName, index)
            Else
                If index >= 0 Then
                    Dim indexes As Object()
                    ReDim indexes(0)
                    indexes(0) = index
                    retval = propinfo.GetValue(obj, indexes)
                Else
                    retval = propinfo.GetValue(obj, Nothing)
                End If
            End If
        Else
            Throw New Exception("Property name error!!!")
        End If
    Else
        retval = obj
    End If
    Return retval
End Function

Technorati Tag: VB.NET,Visual Studio 2008,Visual Studio 2005,.NET Framework 2.0,Reflection