Using Assembly to display

[toytoy]

Hi

I try to use assembly to display the name to the form but the error state that [Assembly] and AssemblyCompanyAttribute....AssemblyCopyrightAttribute and AssemblyTitleAttribute are not defined.... Why ?

Here is the code:

Private Sub frmAbout_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Load the labels from AssemblyInfo.vb
'Display attribute informaation

Dim objAttributes() As Object
Dim asmInfo As [Assembly]
Dim atrCompany As AssemblyCompanyAttribute
Dim atrCopyright As AssemblyCopyrightAttribute
Dim atrTitle As AssemblyTitleAttribute

asmInfo = [Assembly].load("Ch01HandsOn")
objAttributes = asmInfo.GetCustomerAttributes(False)
Dim objItem As Object
'Convert from object to desired types
'Need Select Case because ordr of attributes in array varies
For Each objItem In objAttributes
Select Case objItem.GetType.ToString()
Case "System.Reflection.AssemblyTitleAttribute"
atrTitle = CType(objItem, AssemblyTitleAttribute)
Me.Text = "About" & atrTitle.Title.ToString()
Case "System.Reflection.AssemblyCompanyAttribute"
atrCompany = CType(objItem, AssemblyCompanyAttribute)
lblCompany.Text = atrCompany.Comapny.ToString()
Case "System.Reflection.AssemblyCopyrightAttribute"
atrCopyright = CType(objItem, AssemblyCopyrightAttribute)
lblCopyright.Text = atrCopyright.Copyright.ToString()
End Select
Next
End Sub

Thanks

 

[Paszt]

Did you import the System.Reflection namespace?

If not, put this statement at the top of the codePage: Imports System.Reflection

Here's a link to some source code that shows how to create an aboutBox: About... The About Box