Hi zusammen,
bin mir nicht so sicher obs überhaupt geht, da ich nach ein paar stunden "suchen" nix gefunden habe was passend wäre:
Ich hole mir per Reflection:
[highlight=vbnet]
Dim T As Type = funA.GetType() ' die basisklasse
Dim chartType As Type = GetType(ZEDHelper.Chart.chart) ' die "zu suchende" klasse
For Each p As PropertyInfo In T.GetProperties
If p.PropertyType = chartType Then
' hier kann ich zwar mit activator etc. auf die Methoden usw. zugreifen
' ... NICHTjedoch wie ich gern möchte:
Dim Chart as ZEDHelper.Chart.chart = CType(T.InvokeMember(p.Name, ... ZEDHelper.Chart.chart)
End If
Next
[/highlight]
danke für hilfe
bin mir nicht so sicher obs überhaupt geht, da ich nach ein paar stunden "suchen" nix gefunden habe was passend wäre:
Ich hole mir per Reflection:
[highlight=vbnet]
Dim T As Type = funA.GetType() ' die basisklasse
Dim chartType As Type = GetType(ZEDHelper.Chart.chart) ' die "zu suchende" klasse
For Each p As PropertyInfo In T.GetProperties
If p.PropertyType = chartType Then
' hier kann ich zwar mit activator etc. auf die Methoden usw. zugreifen
' ... NICHTjedoch wie ich gern möchte:
Dim Chart as ZEDHelper.Chart.chart = CType(T.InvokeMember(p.Name, ... ZEDHelper.Chart.chart)
End If
Next
[/highlight]
danke für hilfe
Comment