dim x as new musteri
x.isim="Cengiz HAN"
Dim o As Object
o = GetType(musteri).InvokeMember("isim", BindingFlags.GetField, Nothing, x, Nothing)
MsgBox(o)
Class musteri
Public isim As String
Public email As String
Public yas As String
End Class
Yukarıdaki kod parçası Cengiz HAN değerini ekrana getirecektir.
Bir nesnenin filed,property ve methodlarını listelemek için:
Dim m() As MemberInfo
m = GetType(musteri).GetMembers()
For i As Integer = 0 To m.Length - 1
Select Case m(i).MemberType
Case MemberTypes.Field
Me.cmbFields.Items.Add(m(i).Name())
Case MemberTypes.Method
Me.cmbMethods.Items.Add(m(i).Name())
Case MemberTypes.Property
Me.cmbProperties.Items.Add(m(i).Name())
End Select
Next
Nesnenin field,property ve methodlarını listeleyen, field ve property lerine değer atayan, parametresiz methodları çağıran bir uygulama hazırladım. İndirmek için aşağıdaki linki kullanabilirsiniz.

reflection.zip (30,47 KB)