Dim properties As Reflection.PropertyInfo() = Me.GetType( _
          ).GetProperties(BindingFlags.Public Or BindingFlags.Instance)
 
        For Each prop As Reflection.PropertyInfo In properties
            If prop.GetValue(Me, Nothing).GetType().ToString = "System.Double" _
              Then
                MessageBox.Show(prop.Name & " " & prop.GetValue(Me, _
                Nothing).ToString)
            End If
        Next

fg viperbone

Beitrag wurde zuletzt am 27.07.09 um 07:57:44 editiert.