Gewusst wie: Programmgesteuertes Ändern der TextWrapping-Eigenschaft
Aktualisiert: November 2007
Beispiel
Im folgenden Codebeispiel wird veranschaulicht, wie der Wert der TextWrapping-Eigenschaft programmgesteuert mit Microsoft Visual Basic .NET geändert wird.
Vier Schaltflächen werden innerhalb eines StackPanel-Elements in Extensible Application Markup Language (XAML) eingefügt. Das Click-Ereignis jeder Schaltfläche entspricht einer im unten stehenden Microsoft Visual Basic .NET-Code definierten Sub-Prozedur. Nach dem Aufruf des TextWrapping-Werts, der jedem Ereignis zugeordnet wird, wird der TextBlock, der vom Name txt2 identifiziert wird, aktualisiert, um die Änderung der Eigenschaft widerzuspiegeln.
<StackPanel Orientation="Horizontal" Margin="0,0,0,20">
<Button Name="btn1" Background="Silver" Width="100" Click="Wrap">Wrap</Button>
<Button Name="btn2" Background="Silver" Width="100" Click="NoWrap">NoWrap</Button>
<Button Name="btn4" Background="Silver" Width="100" Click="WrapWithOverflow">WrapWithOverflow</Button>
</StackPanel>
<TextBlock Name="txt2" TextWrapping="Wrap" Margin="0,0,0,20" Foreground="Black">
Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Lorem ipsum dolor sit amet,
consectetuer adipiscing elit.Lorem ipsum dolor sit aet, consectetuer adipiscing elit.
Lorem ipsum dolor sit amet, consectetuer adipiscing elit.
</TextBlock>
Die den oben definierten Button-Klicks zugeordneten Ereignisse werden in Microsoft Visual Basic .NET-Sub-Prozeduren behandelt. Jeder Click ändert den Wert der TextWrapping-Eigenschaft auf den in der Prozedur angegebenen Wert und aktualisiert das Element txt1, um die Änderung der Eigenschaft widerzuspiegeln.
Private Sub Wrap(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs)
txt2.TextWrapping = System.Windows.TextWrapping.Wrap
txt1.Text = "The TextWrap property is currently set to Wrap."
End Sub
Private Sub NoWrap(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs)
txt2.TextWrapping = System.Windows.TextWrapping.NoWrap
txt1.Text = "The TextWrap property is currently set to NoWrap."
End Sub
Private Sub WrapWithOverflow(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs)
txt2.TextWrapping = System.Windows.TextWrapping.WrapWithOverflow
txt1.Text = "The TextWrap property is currently set to WrapWithOverflow."
End Sub
private void Wrap(object sender, RoutedEventArgs e)
{
txt2.TextWrapping = System.Windows.TextWrapping.Wrap;
txt1.Text = "The TextWrap property is currently set to Wrap.";
}
private void NoWrap(object sender, RoutedEventArgs e)
{
txt2.TextWrapping = System.Windows.TextWrapping.NoWrap;
txt1.Text = "The TextWrap property is currently set to NoWrap.";
}
private void WrapWithOverflow(object sender, RoutedEventArgs e)
{
txt2.TextWrapping = System.Windows.TextWrapping.WrapWithOverflow;
txt1.Text = "The TextWrap property is currently set to WrapWithOverflow.";
}