Public Shared Function GetDisplayName(Of T)(propName As String) As String 'プロパティー情報取得 Dim propInfo = GetType(T).GetProperty(propName) '属性取得 Dim att = Attribute.GetCustomAttribute(propInfo, GetType(DisplayNameAttribute)) 'キャストして属性値取得 Dim name = CType(att, DisplayNameAttribute).DisplayName Return name End Function
Dim name = GetDisplayName(Of Class)(NameOf(ClassA.Alpha))