Mega Code Archive
PropertyInfo PropertyType Property
Imports System
Imports System.Reflection
Imports Microsoft.VisualBasic
Namespace MyNamespace
Public Class Example
Public ReadOnly Property Answer As Integer
Get
Return 42
End Get
End Property
Public Shared Sub Main()
Dim t As Type = GetType(MyNamespace.Example)
Dim pi As PropertyInfo = t.GetProperty("Answer")
Console.WriteLine(t.Name)
Console.WriteLine(pi.Name)
Console.WriteLine(pi.PropertyType)
End Sub
End Class
End Namespace