TextDecoration 构造函数
定义
重要
一些信息与预发行产品相关,相应产品在发行之前可能会进行重大修改。 对于此处提供的信息,Microsoft 不作任何明示或暗示的担保。
初始化 TextDecoration 类的新实例。
重载
TextDecoration()
初始化 TextDecoration 类的新实例。
public:
TextDecoration();
public TextDecoration ();
Public Sub New ()
示例
下面的代码示例演示如何使用无参数构造函数创建 TextDecoration 。
// Use a Red pen for the underline text decoration.
private void SetRedUnderline()
{
// Create an underline text decoration. Default is underline.
TextDecoration myUnderline = new TextDecoration();
// Create a solid color brush pen for the text decoration.
myUnderline.Pen = new Pen(Brushes.Red, 1);
myUnderline.PenThicknessUnit = TextDecorationUnit.FontRecommended;
// Set the underline decoration to a TextDecorationCollection and add it to the text block.
TextDecorationCollection myCollection = new TextDecorationCollection();
myCollection.Add(myUnderline);
TextBlock2.TextDecorations = myCollection;
}
' Use a Red pen for the underline text decoration.
Private Sub SetRedUnderline()
' Create an underline text decoration. Default is underline.
Dim myUnderline As New TextDecoration()
' Create a solid color brush pen for the text decoration.
myUnderline.Pen = New Pen(Brushes.Red, 1)
myUnderline.PenThicknessUnit = TextDecorationUnit.FontRecommended
' Set the underline decoration to a TextDecorationCollection and add it to the text block.
Dim myCollection As New TextDecorationCollection()
myCollection.Add(myUnderline)
TextBlock2.TextDecorations = myCollection
End Sub
<!-- Use a Red pen for the underline text decoration -->
<TextBlock
FontSize="36" >
jumps over
<TextBlock.TextDecorations>
<TextDecorationCollection>
<TextDecoration
PenThicknessUnit="FontRecommended">
<TextDecoration.Pen>
<Pen Brush="Red" Thickness="1" />
</TextDecoration.Pen>
</TextDecoration>
</TextDecorationCollection>
</TextBlock.TextDecorations>
</TextBlock>
注解
适用于
TextDecoration(TextDecorationLocation, Pen, Double, TextDecorationUnit, TextDecorationUnit)
用指定的 TextDecoration、Location、Pen、PenOffset 和 PenOffsetUnit 值初始化 PenThicknessUnit 类的新实例。
public:
TextDecoration(System::Windows::TextDecorationLocation location, System::Windows::Media::Pen ^ pen, double penOffset, System::Windows::TextDecorationUnit penOffsetUnit, System::Windows::TextDecorationUnit penThicknessUnit);
public TextDecoration (System.Windows.TextDecorationLocation location, System.Windows.Media.Pen pen, double penOffset, System.Windows.TextDecorationUnit penOffsetUnit, System.Windows.TextDecorationUnit penThicknessUnit);
new System.Windows.TextDecoration : System.Windows.TextDecorationLocation * System.Windows.Media.Pen * double * System.Windows.TextDecorationUnit * System.Windows.TextDecorationUnit -> System.Windows.TextDecoration
Public Sub New (location As TextDecorationLocation, pen As Pen, penOffset As Double, penOffsetUnit As TextDecorationUnit, penThicknessUnit As TextDecorationUnit)
参数
- location
- TextDecorationLocation
文本修饰的位置。
- penOffset
- Double
相对于文本修饰位置的垂直位移。 如果为负值,则向下移动修饰;如果为正值,则向上移动修饰。
- penOffsetUnit
- TextDecorationUnit
用于解释 penOffset
值的单位。
- penThicknessUnit
- TextDecorationUnit
用于解释 pen
的 Thickness 值的单位。
示例
下面的代码示例演示如何使用 penOffset``penOffsetUnit``pen
和penThicknessUnit
参数创建一个。TextDecoration location
// Use a Maroon pen for the baseline text decoration.
private void SetMaroonBaseline()
{
// Create an baseline text decoration 2 units lower than the default.
TextDecoration myBaseline = new TextDecoration(
TextDecorationLocation.Baseline,
new Pen(Brushes.Maroon, 1),
2.0,
TextDecorationUnit.Pixel,
TextDecorationUnit.Pixel);
// Set the baseline decoration to a TextDecorationCollection and add it to the text block.
TextDecorationCollection myCollection = new TextDecorationCollection();
myCollection.Add(myBaseline);
TextBlock2.TextDecorations = myCollection;
}
' Use a Maroon pen for the baseline text decoration.
Private Sub SetMaroonBaseline()
' Create an baseline text decoration 2 units lower than the default.
Dim myBaseline As New TextDecoration(TextDecorationLocation.Baseline, New Pen(Brushes.Maroon, 1), 2.0, TextDecorationUnit.Pixel, TextDecorationUnit.Pixel)
' Set the baseline decoration to a TextDecorationCollection and add it to the text block.
Dim myCollection As New TextDecorationCollection()
myCollection.Add(myBaseline)
TextBlock2.TextDecorations = myCollection
End Sub
<TextBlock>
<TextBlock.TextDecorations>
<TextDecoration Location="Baseline" PenOffset="2" PenOffsetUnit="Pixel" PenThicknessUnit="Pixel" >
<TextDecoration.Pen>
<Pen Brush="Maroon" Thickness="1" />
</TextDecoration.Pen>
</TextDecoration>
</TextBlock.TextDecorations>
The quick red fox
</TextBlock>