我需要这样做才能为自定义控件创建动态背景画笔(继承ContentControl)。我的自定义控件有两个依赖项属性:StartColor和EndColor。在自定义控件的控件模板中,控件包含在边框中,背景为RadialGradientBrush
,具有渐变停止。一个渐变停止的颜色绑定到StartColor,另一个绑定到EndColor。我在XAML中有这个工作,但我需要将它转换为VB代码。 XAML中控件模板的border元素使用以下代码完成:
<Style x:Key="{x:Type wpf:MyControl}"
TargetType="{x:Type wpf:MyControl}"
BasedOn="{StaticResource {x:Type ContentControl}}">
<Style.Setters>
<Setter Property="Template">
<Setter.Value>
<ControlTemplate TargetType="{x:Type wpf:MyControl}">
...
<Border HorizontalAlignment="Stretch"
x:Name="background" Width="Auto"
Grid.RowSpan="3"
Opacity="0.9"
CornerRadius="{TemplateBinding CornerRadius}">
<Border.Background>
<Custom:RadialGradientBrush>
<Custom:GradientStop Color="{Binding Path=EndColor,
RelativeSource={RelativeSource TemplatedParent},
Mode=OneWay}"
Offset="0.462"/>
<Custom:GradientStop Color="{Binding StartColor,
RelativeSource={RelativeSource TemplatedParent},
Mode=OneWay}"
Offset="1"/>
</Custom:RadialGradientBrush>
</Border.Background>
</Border>
...
</ControlTemplate>
</Setter.Value>
</Setter>
</Style.Setters>
</Style>
我尝试在VB代码中创建边框,如下所示,但它不起作用:
...
Dim backgroundBorder As New FrameworkElementFactory(GetType(Border))
With backgroundBorder
.Name = "background"
.SetValue(Grid.RowSpanProperty, 3)
.SetValue(Grid.OpacityProperty, 0.9)
.SetBinding(Border.CornerRadiusProperty, New Binding("CornerRadius") With {.RelativeSource = New RelativeSource(RelativeSourceMode.TemplatedParent)})
End With
Dim backgroundBrush As New RadialGradientBrush()
Dim startColorGradientStop As New GradientStop()
startColorGradientStop.Offset = 1.0
BindingOperations.SetBinding(startColorGradientStop, GradientStop.ColorProperty, New Binding("StartColor") With {.RelativeSource = New RelativeSource(RelativeSourceMode.TemplatedParent), .Mode = BindingMode.OneWay})
backgroundBrush.GradientStops.Add(startColorGradientStop)
Dim endColorGradientStop As New GradientStop()
endColorGradientStop.Offset = 0.462
BindingOperations.SetBinding(endColorGradientStop, GradientStop.ColorProperty, New Binding("EndColor") With {.RelativeSource = New RelativeSource(RelativeSourceMode.TemplatedParent), .Mode = BindingMode.OneWay})
backgroundBrush.GradientStops.Add(endColorGradientStop)
backgroundBorder.SetValue(Border.BackgroundProperty, backgroundBrush)
...
有关如何在VB代码中完成此任务的任何想法?
答案 0 :(得分:1)
根据MS的说法,你知道不再推荐使用FrameworkElementFactory方法吗?建议的方法是使用XamlReader.Parse在代码中创建任何元素/资源。
答案 1 :(得分:0)
您必须访问Border ContentControl作为内容的Parent ContentControl。并在VB代码中设置它。
我在ContentControl中的意思是无论哪个控件都是Border的父级,您需要在OnApplyTemplate覆盖函数上访问它,并将VB.NET创建的边框作为子视图添加到该视觉中。