Mega Code Archive
Type GetInterface
<![CDATA[
Imports System.IO
Imports System.Net
Imports System.Text
Imports System.Collections
Imports System.Reflection
Public Class MainClass
Public Shared Sub Main()
Dim hashtableObj As New Hashtable()
Dim objType As Type = hashtableObj.GetType()
Dim arrayMethodInfo() As MethodInfo
Try
arrayMethodInfo = objType.GetInterface("IDeserializationCallback").GetMethods()
Dim index As Integer
For index = 0 To arrayMethodInfo.Length - 1
Console.WriteLine(arrayMethodInfo(index).ToString())
Next index
arrayMethodInfo = objType.GetInterface("ienumerable", True).GetMethods()
For index = 0 To arrayMethodInfo.Length - 1
Console.WriteLine(arrayMethodInfo(index).ToString())
Next index
Catch e As Exception
Console.WriteLine(("Exception : " + e.ToString()))
End Try
End Sub 'Main
End Class 'MyInterfaceClass
]]>