Assembly Information Class (In response to lack of information)

[jspencer]

Imports System.Reflection

Public Class AssemblyInformation
    Public ReadOnly Property ProjectDescription()
        Get
            Dim asm As AssemblyDescriptionAttribute
            asm = Attribute.GetCustomAttribute([Assembly].GetExecutingAssembly, GetType(AssemblyDescriptionAttribute))
            Return asm.Description
        End Get
    End Property

    Public ReadOnly Property Copyright()
        Get
            Dim asm As AssemblyCopyrightAttribute
            asm = Attribute.GetCustomAttribute([Assembly].GetExecutingAssembly, GetType(AssemblyCopyrightAttribute))
            Return asm.Copyright
        End Get
    End Property

    Public ReadOnly Property Company()
        Get
            Dim asm As AssemblyCompanyAttribute
            asm = Attribute.GetCustomAttribute([Assembly].GetExecutingAssembly, GetType(AssemblyCompanyAttribute))
            Return asm.Company
        End Get
    End Property

    Public ReadOnly Property Title()
        Get
            Dim asm As AssemblyTitleAttribute
            asm = Attribute.GetCustomAttribute([Assembly].GetExecutingAssembly, GetType(AssemblyTitleAttribute))
            Return asm.Title
        End Get
    End Property

    Public ReadOnly Property Trademark()
        Get
            Dim asm As AssemblyTrademarkAttribute
            asm = Attribute.GetCustomAttribute([Assembly].GetExecutingAssembly, GetType(AssemblyTrademarkAttribute))
            Return asm.Trademark
        End Get
    End Property

    Public ReadOnly Property VersionMajor()
        Get
            Dim Ver As [Assembly]
            Return Ver.GetExecutingAssembly().GetName().Version.Major
        End Get
    End Property

    Public ReadOnly Property VersionMinor()
        Get
            Dim Ver As [Assembly]
            Return Ver.GetExecutingAssembly().GetName().Version.Minor
        End Get
    End Property

    Public ReadOnly Property VersionBuild()
        Get
            Dim Ver As [Assembly]
            Return Ver.GetExecutingAssembly().GetName().Version.Build
        End Get
    End Property

    Public ReadOnly Property VersionRevision()
        Get
            Dim Ver As [Assembly]
            Return Ver.GetExecutingAssembly().GetName().Version.Revision
        End Get
    End Property

    Public ReadOnly Property Version()
        Get
            Dim p_VerMajor, p_VerMinor, p_Build, p_Revision As String

            Dim Ver As [Assembly]
            p_VerMajor = Ver.GetExecutingAssembly().GetName().Version.Major
            p_VerMinor = Ver.GetExecutingAssembly().GetName().Version.Minor
            p_Build = Ver.GetExecutingAssembly().GetName().Version.Build
            p_Revision = Ver.GetExecutingAssembly().GetName().Version.Revision

            Return p_VerMajor & "." & p_VerMinor & "." & p_Build & "." & p_Revision
        End Get
    End Property

End Class

(This is a class that I found on the net and thought that someone else might find it helpful. Dont know who the original author was, but thank you anyway).

 

[jspencer]

Sorry, Divil. That was my first post and wasnt sure how it would come out.

 

[jspencer]

I also found that the me.dispose method at the end loops and ends up raising an exception. I havent figured out why yet.

 

[Heiko]

Because it leads to an infinite recursion.



Why would a Method do nothing but call itself ? Id drop the whole method.

 

[jspencer]

Thanks Heiko, youre absolutely correct. I thought it was a bit strange, but hadnt looked at it properly yet.