如何遍歷vb.net中的對象的屬性？

Question

我正在調試項目中一個複雜的計算對象，我想在文本框中顯示它的各種屬性和很多屬性，以使我的測試更加簡單。

我可以這樣做

for each p as someKindOfProperty in MyObject1 
    debug.print(p.name & " - " & debug.print p.value) 
    textbox1.text = textbox1.text & vbcrlf & p.name & " - " & p.value 
next 

???

怎麼樣？

Answer 1

Dim props As PropertyInfo() = GetType(Color).GetProperties(BindingFlags.[Static] Or BindingFlags.[Public]) 

For Each prop As PropertyInfo In props 
    Dim o As Object = prop.GetValue(Nothing, Nothing) 
    If o IsNot Nothing Then 
     textbox1.Text = Textbox1.text + Constants.vbcrlf + prop.Name + " - " + o.ToString() 
    End If 
Next