reflection question

[Antony]

Hello - I am wanting to print out a "Yes" next to classes that
implement "Interface0 1", otherwise a "No". Here is my code. It crashes
with a null reference exception and I am not sure why. Ideas?
Thank you for you help.
Tony
Imports System.Reflecti on

Public Class Form1
Inherits System.Windows. Forms.Form

''Windows Form Designer generated code

Interface Interface01
End Interface

MustInherit Class Abstract01
End Class

Class Class01
Implements Interface01
End Class

Class Class02
End Class

Class Class03
Inherits Class01
End Class

Class ClassA2
Inherits Abstract01
End Class

Private Sub Button1_Click(B yVal sender As System.Object, _
ByVal e As System.EventArg s) Handles Button1.Click
Dim asmbly As [Assembly] = [Assembly].GetExecutingAs sembly()
Dim asmblyType As Type
For Each asmblyType In asmbly.GetTypes
If asmblyType.Base Type.Equals(Get Type(Interface0 1)) Then
Debug.Write("Ye s: ")
Else : Debug.Write("No : ")
End If
Debug.WriteLine (asmblyType.Ful lName)
Next
End Sub
End Class

[_Andy_]

On 3 Oct 2003 15:06:28 -0700, to************* ***@hotmail.com (Antony)
wrote:

If asmblyType.Base Type.Equals(Get Type(Interface0 1)) Then
Debug.Write("Ye s: ")

No base type would cause your problem. Use the Type.GetInterfa ces()
collection instead.

[Fergus Cooney]

Hi Antony,

Furthermore:

SomeType.BaseTy pe will give you the <class> that SomeType inherited from.
It will never give you an interface as these cannot be inherited.

Regards,
Fergus

[Tom Spink]

Hi, an implemented interface isn't a base type, because you can implement as
many interfaces as you want:

Public Class Class01
Implements Interface01
Implements Interface02

[Antony]

Andy, Fergus - that is clear now. Thank you.
Tony

"Fergus Cooney" <fi******@tesco .net> wrote in message news:<eO******* *******@TK2MSFT NGP10.phx.gbl>. ..

Hi Antony,

Furthermore:

SomeType.BaseTy pe will give you the <class> that SomeType inherited from.
It will never give you an interface as these cannot be inherited.

Regards,
Fergus

[Antony]

Thanks Tom.

Just one more thing, if I modify my code (below) it prints out the
names of all classes etc. in a /*project*/. Is it possible to print
out the names of all classes using similar code in a /*solution*/ ?

Thank you
Tony
Private Sub Button1_Click(B yVal sender As System.Object, _
ByVal e As System.EventArg s) Handles Button1.Click
Dim asmbly As [Assembly] = [Assembly].GetExecutingAs sembly
Dim asmblyType As Type
For Each asmblyType In asmbly.GetTypes
Debug.WriteLine (asmblyType.Ful lName)
Next
End Sub


"Tom Spink" <th**********@n tlworld.com> wrote in message news:<en******* *******@TK2MSFT NGP10.phx.gbl>. ..

Hi, an implemented interface isn't a base type, because you can implement as
many interfaces as you want:

Public Class Class01
Implements Interface01
Implements Interface02
.
.
.
Implements Interface99
End Class

So, your code should be:

' /// (See footnotes to convert to VS2002)
Private Sub MySub()
Dim asmThis As [Assembly] = [Assembly].GetExecutingAs sembly()
Dim blnFoundInterfa ce As Boolean

For Each typType As Type In asmThis.GetType s

blnFoundInterfa ce = False

For Each typInterface As Type In typType.GetInte rfaces
If typInterface Is GetType(Interfa ce01) Then
blnFoundInterfa ce = True
Exit For
End If
Next

If blnFoundInterfa ce Then
Debug.Write("Ye s: ")
Else
Debug.Write("No : ")
End If

Debug.WriteLine (typType.FullNa me)

Next

End Sub
' ///

--
HTH,
-- Tom Spink, Über Geek

Please respond to the newsgroup,
so all can benefit

" System.Reflecti on Master "

==== Converting to 2002 ====
Remove inline declarations
Antony schriebt,
: Hello - I am wanting to print out a "Yes" next to classes that
: implement "Interface0 1", otherwise a "No". Here is my code. It crashes
: with a null reference exception and I am not sure why. Ideas?
: Thank you for you help.
: Tony
:
:
: Imports System.Reflecti on
:
: Public Class Form1
: Inherits System.Windows. Forms.Form
:
: ''Windows Form Designer generated code
:
: Interface Interface01
: End Interface
:
: MustInherit Class Abstract01
: End Class
:
: Class Class01
: Implements Interface01
: End Class
:
: Class Class02
: End Class
:
: Class Class03
: Inherits Class01
: End Class
:
: Class ClassA2
: Inherits Abstract01
: End Class
:
: Private Sub Button1_Click(B yVal sender As System.Object, _
: ByVal e As System.EventArg s) Handles Button1.Click
: Dim asmbly As [Assembly] = [Assembly].GetExecutingAs sembly()
: Dim asmblyType As Type
: For Each asmblyType In asmbly.GetTypes
: If asmblyType.Base Type.Equals(Get Type(Interface0 1)) Then
: Debug.Write("Ye s: ")
: Else : Debug.Write("No : ")
: End If
: Debug.WriteLine (asmblyType.Ful lName)
: Next
: End Sub
: End Class

[Tom Spink]

One Project is one assembly, a solution can contain many assemblies. You'd
have to perform reflection on all referenced assemblies, by dynamically
loading them.

If your project doesn't reference an assembly, (and you are using .NET 1.1)
then you can call [Assembly].LoadFile to load it into an Assembly object,
then run the code on that assembly.

If you are using .NET 1.0, there is the .Load method, which requires the
fully qualified name of the Assembly.

--
HTH,
-- Tom Spink, Über Geek

Please respond to the newsgroup,
so all can benefit

" System.Reflecti on Master "

==== Converting to 2002 ====
Remove inline declarations
"Antony" <to************ ****@hotmail.co m> wrote in message
news:37******** *************** ***@posting.goo gle.com...
: Thanks Tom.
:
: Just one more thing, if I modify my code (below) it prints out the
: names of all classes etc. in a /*project*/. Is it possible to print
: out the names of all classes using similar code in a /*solution*/ ?
:
: Thank you
: Tony
:
:
: Private Sub Button1_Click(B yVal sender As System.Object, _
: ByVal e As System.EventArg s) Handles Button1.Click
: Dim asmbly As [Assembly] = [Assembly].GetExecutingAs sembly
: Dim asmblyType As Type
: For Each asmblyType In asmbly.GetTypes
: Debug.WriteLine (asmblyType.Ful lName)
: Next
: End Sub
:
:
:
:
:
:
: "Tom Spink" <th**********@n tlworld.com> wrote in message
news:<en******* *******@TK2MSFT NGP10.phx.gbl>. ..
: > Hi, an implemented interface isn't a base type, because you can
implement as
: > many interfaces as you want:
: >
: > Public Class Class01
: > Implements Interface01
: > Implements Interface02
: > .
: > .
: > .
: > Implements Interface99
: > End Class
: >
: > So, your code should be:
: >
: > ' /// (See footnotes to convert to VS2002)
: > Private Sub MySub()
: > Dim asmThis As [Assembly] = [Assembly].GetExecutingAs sembly()
: > Dim blnFoundInterfa ce As Boolean
: >
: > For Each typType As Type In asmThis.GetType s
: >
: > blnFoundInterfa ce = False
: >
: > For Each typInterface As Type In typType.GetInte rfaces
: > If typInterface Is GetType(Interfa ce01) Then
: > blnFoundInterfa ce = True
: > Exit For
: > End If
: > Next
: >
: > If blnFoundInterfa ce Then
: > Debug.Write("Ye s: ")
: > Else
: > Debug.Write("No : ")
: > End If
: >
: > Debug.WriteLine (typType.FullNa me)
: >
: > Next
: >
: > End Sub
: > ' ///
: >
: > --
: > HTH,
: > -- Tom Spink, Über Geek
: >
: > Please respond to the newsgroup,
: > so all can benefit
: >
: > " System.Reflecti on Master "
: >
: > ==== Converting to 2002 ====
: > Remove inline declarations
: >
: >
: > Antony schriebt,
: > : Hello - I am wanting to print out a "Yes" next to classes that
: > : implement "Interface0 1", otherwise a "No". Here is my code. It crashes
: > : with a null reference exception and I am not sure why. Ideas?
: > : Thank you for you help.
: > : Tony
: > :
: > :
: > : Imports System.Reflecti on
: > :
: > : Public Class Form1
: > : Inherits System.Windows. Forms.Form
: > :
: > : ''Windows Form Designer generated code
: > :
: > : Interface Interface01
: > : End Interface
: > :
: > : MustInherit Class Abstract01
: > : End Class
: > :
: > : Class Class01
: > : Implements Interface01
: > : End Class
: > :
: > : Class Class02
: > : End Class
: > :
: > : Class Class03
: > : Inherits Class01
: > : End Class
: > :
: > : Class ClassA2
: > : Inherits Abstract01
: > : End Class
: > :
: > : Private Sub Button1_Click(B yVal sender As System.Object, _
: > : ByVal e As System.EventArg s) Handles Button1.Click
: > : Dim asmbly As [Assembly] = [Assembly].GetExecutingAs sembly()
: > : Dim asmblyType As Type
: > : For Each asmblyType In asmbly.GetTypes
: > : If asmblyType.Base Type.Equals(Get Type(Interface0 1)) Then
: > : Debug.Write("Ye s: ")
: > : Else : Debug.Write("No : ")
: > : End If
: > : Debug.WriteLine (asmblyType.Ful lName)
: > : Next
: > : End Sub
: > : End Class

[Fergus Cooney]

Hi Tom,

Is there any class which can provide a list of the Assemblies within the
Soloution?

Regards,
Fergus

[Tom Spink]

Hi Fergus,

A Solution isn't compiled into anything, a solution has no meaning in .NET,
it is simply a Visual Studio term for a collection of projects. A Project
could be an assembly, e.g. a C#, J#, VB.NET assembly, or it could be
something completely different like a Help File.

So basically, no, because a solution means nothing in .NET.

--
HTH,
-- Tom Spink, Über Geek

Please respond to the newsgroup,
so all can benefit

" System.Reflecti on Master "

==== Converting to 2002 ====
Remove inline declarations
"Fergus Cooney" <fi******@tesco .net> wrote in message
news:ua******** *****@TK2MSFTNG P11.phx.gbl...
: Hi Tom,
:
: Is there any class which can provide a list of the Assemblies within
the
: Soloution?
:
: Regards,
: Fergus
:
:

[Antony]

Hi Fergus, yes this is what I am looking for too.

I have a "good feeling" about:

For Each aAll As [Assembly] In AppDomain.Curre ntDomain.GetAss emblies()
'Code in here
Next

but I can't get it going and my underlying feeling is that Tom is on
the right when he says "No".

Cheers
Tony
"Fergus Cooney" <fi******@tesco .net> wrote in message news:<ua******* ******@TK2MSFTN GP11.phx.gbl>.. .

Hi Tom,

Is there any class which can provide a list of the Assemblies within the
Soloution?

Regards,
Fergus