Here is an example of the same class above in VB.NET
Public Class ParameterDataTemplateSelector
Inherits DataTemplateSelector
Public Overrides Function SelectTemplate(ByVal item AsObject,
ByVal container As System.Windows.DependencyObject) As
System.Windows.DataTemplate
If Not item Is Nothing And Also
item.GetType.IsSubclassOf(GetType(Parameter)) Then
Dim Parameter As Parameter = CType(item, Parameter)
Dim Window As ResourceDictionary = Application.Current.Resources
Dim TemplateName As String =
String.Format(CultureInfo.CurrentCulture, "{0}{1}",
GetType(Parameter).Name, "DataTemplate")
Dim Template As DataTemplate = Window.Item(TemplateName)
Return Template
End If
Return Nothing
End Function
End Class