Imports System
Imports System.Reflection
Imports System.ComponentModel.Design
Imports Microsoft.VisualBasic
Class FieldInfo_IsSpecialName
Public Shared Sub Main()
Try
Dim myType As Type = GetType(ViewTechnology)
Dim myField As FieldInfo() = myType.GetFields()
Dim i As Integer
For i = 0 To myField.Length - 1
If myField(i).IsSpecialName Then
Console.WriteLine(myField(i).Name)
End If
Next i
Catch e As Exception
Console.WriteLine("Exception : {0} ", e.Message.ToString())
End Try
End Sub
End Class
|