grüß gott zusammen,
ich scheitere beim erstellen einer ~list of~.
Ziel wäre aus einer (un)menge von Filtern (alle als classen vorliegend)
per mausklick eine auszuwählen und dann auf ein bild zu "transferieren"...
Die FilterClassen haben alle ein Interface namens IFilter.
so lade ich die Classen "rein"
[highlight=vbnet]
Friend FilterList As New List(Of IFilter)
Sub makeFilter()
Dim Info As System.Reflection.Assembly = _
System.Reflection.Assembly.LoadFrom("F:\3d\Af3D\Af 3D\Af3D\bin\Debug\AForge.imaging.dll")
Dim CrLf As String = System.Environment.NewLine()
'Try
For Each Items As Type In Info.GetTypes()
If Items.IsClass() Then
Console.WriteLine(Items.Namespace)
If Items.Namespace = "AForge.Imaging.Filters" Then
ListBox1.Items.Add(Items.Name) ' funktioniert bestens ...
End If
End If
Next
'Catch ex As Exception
' MessageBox.Show(ex.Message(), "Info - " & _
' System.Reflection.MethodBase.GetCurrentMethod().Na me())
'End Try
End Sub
[/highlight]
Das befüllen der "FilterList(OF IFilter) klappt leider nicht.
So wäre wohl der korrekte weg:
[highlight=vbnet]
Dim meinFilter as new ColorFilter() ' als EINER von eben den vielen
FilterList.Add(meinFilter)
' Dim aktFilter = new Items ' geht ja nicht ...
Sub FilterAngeklickt(f as IFilter)
BildXYZ.Filter = f
end Sub
[/highlight]
Muss ich da ein "Delegate" oder DirectCast oder ähnliches Erstellen.
Ein klitzekleines Beispiel wäre mir da wirklich hiiiiilfreich.
Besten Dank
R aus München
' was gefunden :-)
http://svn.espend.de/listing.php?rep...50bb8fe31afb70
ich scheitere beim erstellen einer ~list of~.
Ziel wäre aus einer (un)menge von Filtern (alle als classen vorliegend)
per mausklick eine auszuwählen und dann auf ein bild zu "transferieren"...
Die FilterClassen haben alle ein Interface namens IFilter.
so lade ich die Classen "rein"
[highlight=vbnet]
Friend FilterList As New List(Of IFilter)
Sub makeFilter()
Dim Info As System.Reflection.Assembly = _
System.Reflection.Assembly.LoadFrom("F:\3d\Af3D\Af 3D\Af3D\bin\Debug\AForge.imaging.dll")
Dim CrLf As String = System.Environment.NewLine()
'Try
For Each Items As Type In Info.GetTypes()
If Items.IsClass() Then
Console.WriteLine(Items.Namespace)
If Items.Namespace = "AForge.Imaging.Filters" Then
ListBox1.Items.Add(Items.Name) ' funktioniert bestens ...
End If
End If
Next
'Catch ex As Exception
' MessageBox.Show(ex.Message(), "Info - " & _
' System.Reflection.MethodBase.GetCurrentMethod().Na me())
'End Try
End Sub
[/highlight]
Das befüllen der "FilterList(OF IFilter) klappt leider nicht.
So wäre wohl der korrekte weg:
[highlight=vbnet]
Dim meinFilter as new ColorFilter() ' als EINER von eben den vielen
FilterList.Add(meinFilter)
' Dim aktFilter = new Items ' geht ja nicht ...
Sub FilterAngeklickt(f as IFilter)
BildXYZ.Filter = f
end Sub
[/highlight]
Muss ich da ein "Delegate" oder DirectCast oder ähnliches Erstellen.
Ein klitzekleines Beispiel wäre mir da wirklich hiiiiilfreich.
Besten Dank
R aus München
' was gefunden :-)
http://svn.espend.de/listing.php?rep...50bb8fe31afb70