Visual Basic Forum

Rip_ · Verfasst am: 04.08.2008, 12:12

Ich habe mal ein Snippet für euch gemacht wo gezeigt wird wie man Attribute einer Klasse mit der Reflection auswertet.

Es funktioniert allerdings nur wenn sich in dem Programm ein Object mit der fraglichen Klasse abbildet.

Bild :

[code]

Imports System.Reflection
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim assm As Assembly
Dim t As Type
Dim att As Attribute
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Try
assm = Assembly.LoadFile(OpenFileDialog1.FileName)
Label1.Text = "Datei-Ort : " & OpenFileDialog1.FileName

For Each t In assm.GetTypes()
TextBox1.AppendText(t.FullName + vbCrLf)
For Each att In t.GetCustomAttributes(False)
TextBox1.AppendText(" " + att.ToString + vbCrLf)
Next
TextBox1.AppendText(vbCrLf)

Next
Catch ex As Exception
Label1.Text = ex.Message
End Try
End If
End Sub
End Class

[/code]

Ich habe genobelt und geknobelt und mir dann was zurecht geschnitten. Sollte funktionieren aber bei manchen *.dll's kommen noch Fehler.
_________________