Mega Code Archive
Fill the baseline decoration with a linear gradient brush in VB
<![CDATA[
<Window xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
x:Class="TextDecorationExample.Window1"
Title="TextDecoration Example"
Width="720"
Height="400"
Loaded="WindowLoaded">
<StackPanel>
<!-- . -->
<TextBlock Name="baselineTextBlock" FontSize="24" Width="180" VerticalAlignment="Center">The lazy dog</TextBlock>
</StackPanel>
</Window>
//File:Window.xaml.vb
Imports System
Imports System.Windows
Imports System.Windows.Media
Namespace TextDecorationExample
Public Partial Class Window1
Inherits Window
Private Sub WindowLoaded(sender As Object, e As EventArgs)
' Fill the baseline decoration with a linear gradient brush.
Dim myCollection As New TextDecorationCollection()
Dim myBaseline As New TextDecoration()
myBaseline.Location = TextDecorationLocation.Baseline
' Set the linear gradient brush.
Dim myPen As New Pen()
myPen.Brush = New LinearGradientBrush(Colors.Orange, Colors.Red, 0)
myPen.Thickness = 3
myBaseline.Pen = myPen
myBaseline.PenThicknessUnit = TextDecorationUnit.FontRecommended
' Set the baseline decoration to the text block.
myCollection.Add(myBaseline)
baselineTextBlock.TextDecorations = myCollection
End Sub
End Class
End Namespace
]]>