1 2 3 4 5 6 7 8 9 |
Dim pi As Reflection.PropertyInfo() = Me.GetType().GetProperties() For i As Integer = 0 To pi.Length - 1 MsgBox("У свойства " & pi(i).Name & " значение " & pi(i).GetValue(Me, Nothing)) Next 'Если нужно узнать тип свойства: If pi(i).PropertyType Is GetType(String) Then |