Compartilhar via

Adicionar um espaço reservado a um TextBox

O exemplo a seguir mostra como exibir o texto de espaço reservado em um TextBox quando o TextBox estiver vazio. Quando o TextBox contém texto, o texto do espaço reservado fica oculto. O texto do espaço reservado ajuda os usuários a entenderem que tipo de entrada o TextBox espera.

Um aplicativo de exemplo com dois controles TextBox que possuem espaços reservados. A primeira TextBox fornece um exemplo de nome e a segunda um exemplo de email.

Neste artigo, você aprenderá a:

  • Crie uma propriedade anexada para fornecer o texto do espaço reservado.
  • Crie um adorno para exibir o texto do espaço reservado.
  • Adicione a propriedade anexada a um controle TextBox.

Criar uma propriedade anexada

Com propriedades anexadas, você pode acrescentar valores a um controle. Você usa muito esse recurso no WPF, como quando você define Grid.Row ou Panel.ZIndex propriedades em um controle. Para obter mais informações, consulte Visão geral de propriedades anexadas. Este exemplo usa propriedades anexadas para adicionar texto de espaço reservado a um TextBox.

  1. Adicione uma nova classe ao projeto nomeada TextBoxHelper e abra-a.

  2. Adicione os seguintes namespaces:

    using System.Linq;
using System.Windows;
using System.Windows.Controls;
using System.Windows.Documents;
using System.Windows.Media;

    Imports System.Linq
Imports System.Security.Cryptography
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Documents
Imports System.Windows.Media

  3. Criar uma nova propriedade de dependência chamada Placeholder.

    Esta propriedade de dependência usa o delegado de retorno de chamada alterado da propriedade.

    public static string GetPlaceholder(DependencyObject obj) =>
    (string)obj.GetValue(PlaceholderProperty);

public static void SetPlaceholder(DependencyObject obj, string value) =>
    obj.SetValue(PlaceholderProperty, value);

public static readonly DependencyProperty PlaceholderProperty =
    DependencyProperty.RegisterAttached(
        "Placeholder",
        typeof(string),
        typeof(TextBoxHelper),
        new FrameworkPropertyMetadata(
            defaultValue: null,
            propertyChangedCallback: OnPlaceholderChanged)
        );

    Public Shared Function GetPlaceholder(obj As DependencyObject) As String
    Return obj.GetValue(PlaceholderProperty)
End Function

Public Shared Sub SetPlaceholder(obj As DependencyObject, value As String)
    obj.SetValue(PlaceholderProperty, value)
End Sub

Public Shared ReadOnly PlaceholderProperty As DependencyProperty =
    DependencyProperty.RegisterAttached(
        "Placeholder",
        GetType(String),
        GetType(TextBoxHelper),
        New FrameworkPropertyMetadata(
            defaultValue:=Nothing,
            propertyChangedCallback:=AddressOf OnPlaceholderChanged)
        )

  4. Crie o método OnPlaceholderChanged para integrar a propriedade anexada com um TextBox.

    private static void OnPlaceholderChanged(DependencyObject d, DependencyPropertyChangedEventArgs e)
{
    if (d is TextBox textBoxControl)
    {
        if (!textBoxControl.IsLoaded)
        {
            // Ensure that the events are not added multiple times
            textBoxControl.Loaded -= TextBoxControl_Loaded;
            textBoxControl.Loaded += TextBoxControl_Loaded;
        }

        textBoxControl.TextChanged -= TextBoxControl_TextChanged;
        textBoxControl.TextChanged += TextBoxControl_TextChanged;

        // If the adorner exists, invalidate it to draw the current text
        if (GetOrCreateAdorner(textBoxControl, out PlaceholderAdorner adorner))
            adorner.InvalidateVisual();
    }
}

    Private Shared Sub OnPlaceholderChanged(d As DependencyObject, e As DependencyPropertyChangedEventArgs)
    Dim textBoxControl = TryCast(d, TextBox)

    If textBoxControl IsNot Nothing Then

        If Not textBoxControl.IsLoaded Then

            'Ensure that the events are not added multiple times
            RemoveHandler textBoxControl.Loaded, AddressOf TextBoxControl_Loaded
            AddHandler textBoxControl.Loaded, AddressOf TextBoxControl_Loaded

        End If

        RemoveHandler textBoxControl.TextChanged, AddressOf TextBoxControl_TextChanged
        AddHandler textBoxControl.TextChanged, AddressOf TextBoxControl_TextChanged

        'If the adorner exists, invalidate it to draw the current text
        Dim adorner As PlaceholderAdorner = Nothing
        If GetOrCreateAdorner(textBoxControl, adorner) Then
            adorner.InvalidateVisual()
        End If

    End If

End Sub

    Há duas maneiras de esse método ser chamado quando o valor da propriedade anexada é alterado:

    • Quando a propriedade anexada é adicionada pela primeira vez a um TextBox, este método é invocado. Essa ação oferece uma oportunidade para que a propriedade anexada se integre aos eventos do controle.
    • Sempre que essa propriedade for alterada, o adorno poderá ser invalidado para atualizar o texto do espaço reservado visual.

    O GetOrCreateAdorner método é criado na próxima seção.

  5. Crie os manipuladores de eventos para o TextBox.

    private static void TextBoxControl_Loaded(object sender, RoutedEventArgs e)
{
    if (sender is TextBox textBoxControl)
    {
        textBoxControl.Loaded -= TextBoxControl_Loaded;
        GetOrCreateAdorner(textBoxControl, out _);
    }
}

private static void TextBoxControl_TextChanged(object sender, TextChangedEventArgs e)
{
    if (sender is TextBox textBoxControl
        && GetOrCreateAdorner(textBoxControl, out PlaceholderAdorner adorner))
    {
        // Control has text. Hide the adorner.
        if (textBoxControl.Text.Length > 0)
            adorner.Visibility = Visibility.Hidden;

        // Control has no text. Show the adorner.
        else
            adorner.Visibility = Visibility.Visible;
    }
}

    Private Shared Sub TextBoxControl_Loaded(sender As Object, e As RoutedEventArgs)
    Dim textBoxControl As TextBox = TryCast(sender, TextBox)

    If textBoxControl IsNot Nothing Then
        RemoveHandler textBoxControl.Loaded, AddressOf TextBoxControl_Loaded
        GetOrCreateAdorner(textBoxControl, Nothing)
    End If
End Sub

Private Shared Sub TextBoxControl_TextChanged(sender As Object, e As TextChangedEventArgs)
    Dim textBoxControl As TextBox = TryCast(sender, TextBox)
    Dim adorner As PlaceholderAdorner = Nothing

    If textBoxControl IsNot Nothing AndAlso GetOrCreateAdorner(textBoxControl, adorner) Then

        If textBoxControl.Text.Length > 0 Then
            'Control has text. Hide the adorner.
            adorner.Visibility = Visibility.Hidden
        Else
            'Control has no text. Show the adorner.
            adorner.Visibility = Visibility.Visible
        End If

    End If
End Sub

    O evento Loaded é tratado para que o adorno possa ser criado após a aplicação do modelo do controle. O manipulador se remove depois que o evento é acionado e o adorno é criado.

    O evento TextChanged é tratado para garantir que o adorno esteja oculto ou exibido dependendo se o valor Text for definido.

Criar um adorno

O Adorner é um visual associado a um controle e renderizado em um AdornerLayer. Para mais informações, consulte Visão geral dos adornos.

  1. Abra a TextBoxHelper classe.

  2. Adicione o código a seguir para criar o GetOrCreateAdorner método.

    private static bool GetOrCreateAdorner(TextBox textBoxControl, out PlaceholderAdorner adorner)
{
    // Get the adorner layer
    AdornerLayer layer = AdornerLayer.GetAdornerLayer(textBoxControl);

    // If null, it doesn't exist or the control's template isn't loaded
    if (layer == null)
    {
        adorner = null;
        return false;
    }

    // Layer exists, try to find the adorner
    adorner = layer.GetAdorners(textBoxControl)?.OfType<PlaceholderAdorner>().FirstOrDefault();

    // Adorner never added to control, so add it
    if (adorner == null)
    {
        adorner = new PlaceholderAdorner(textBoxControl);
        layer.Add(adorner);
    }

    return true;
}

    Private Shared Function GetOrCreateAdorner(textBoxControl As TextBox, ByRef adorner As PlaceholderAdorner) As Boolean

    'Get the adorner layer
    Dim layer As AdornerLayer = AdornerLayer.GetAdornerLayer(textBoxControl)

    'If nothing, it doesn't exist or the control's template isn't loaded
    If layer Is Nothing Then
        adorner = Nothing
        Return False
    End If

    'Layer exists, try to find the adorner
    adorner = layer.GetAdorners(textBoxControl)?.OfType(Of PlaceholderAdorner)().FirstOrDefault()

    'Adorner never added to control, so add it
    If adorner Is Nothing Then
        adorner = New PlaceholderAdorner(textBoxControl)
        layer.Add(adorner)
    End If

    Return True

End Function

    Esse método fornece uma maneira segura de adicionar ou recuperar o Adorner. Adornos exigem segurança extra porque são adicionados ao controle AdornerLayer, que pode não existir. Quando uma propriedade anexada XAML é aplicada a um controle, o modelo do controle ainda não foi aplicado para criar a árvore visual, portanto, a camada de adorno não existe. A camada do adorno deve ser recuperada depois que o controle é carregado. A camada de adorno também poderá estar ausente se um modelo que omite a camada de adorno for aplicado ao controle.

  3. Adicione uma classe filha chamada PlaceholderAdorner à classe TextBoxHelper.

    public class PlaceholderAdorner : Adorner
{
    public PlaceholderAdorner(TextBox textBox) : base(textBox) { }

    protected override void OnRender(DrawingContext drawingContext)
    {
        TextBox textBoxControl = (TextBox)AdornedElement;

        string placeholderValue = TextBoxHelper.GetPlaceholder(textBoxControl);

        if (string.IsNullOrEmpty(placeholderValue))
            return;

        // Create the formatted text object
        FormattedText text = new FormattedText(
                                    placeholderValue,
                                    System.Globalization.CultureInfo.CurrentCulture,
                                    textBoxControl.FlowDirection,
                                    new Typeface(textBoxControl.FontFamily,
                                                 textBoxControl.FontStyle,
                                                 textBoxControl.FontWeight,
                                                 textBoxControl.FontStretch),
                                    textBoxControl.FontSize,
                                    SystemColors.InactiveCaptionBrush,
                                    VisualTreeHelper.GetDpi(textBoxControl).PixelsPerDip);

        text.MaxTextWidth = System.Math.Max(textBoxControl.ActualWidth - textBoxControl.Padding.Left - textBoxControl.Padding.Right, 10);
        text.MaxTextHeight = System.Math.Max(textBoxControl.ActualHeight, 10);

        // Render based on padding of the control, to try and match where the textbox places text
        Point renderingOffset = new Point(textBoxControl.Padding.Left, textBoxControl.Padding.Top);

        // Template contains the content part; adjust sizes to try and align the text
        if (textBoxControl.Template.FindName("PART_ContentHost", textBoxControl) is FrameworkElement part)
        {
            Point partPosition = part.TransformToAncestor(textBoxControl).Transform(new Point(0, 0));
            renderingOffset.X += partPosition.X;
            renderingOffset.Y += partPosition.Y;

            text.MaxTextWidth = System.Math.Max(part.ActualWidth - renderingOffset.X, 10);
            text.MaxTextHeight = System.Math.Max(part.ActualHeight, 10);
        }

        // Draw the text
        drawingContext.DrawText(text, renderingOffset);
    }
}

    Public Class PlaceholderAdorner
    Inherits Adorner

    Public Sub New(adornedElement As UIElement)
        MyBase.New(adornedElement)
    End Sub

    Protected Overrides Sub OnRender(drawingContext As DrawingContext)
        Dim textBoxControl As TextBox = DirectCast(AdornedElement, TextBox)

        Dim placeholderValue As String = TextBoxHelper.GetPlaceholder(textBoxControl)

        If String.IsNullOrEmpty(placeholderValue) Then
            Return
        End If

        'Create the formatted text object
        Dim text As New FormattedText(
            placeholderValue,
            System.Globalization.CultureInfo.CurrentCulture,
            textBoxControl.FlowDirection,
            New Typeface(textBoxControl.FontFamily,
                         textBoxControl.FontStyle,
                         textBoxControl.FontWeight,
                         textBoxControl.FontStretch),
            textBoxControl.FontSize,
            SystemColors.InactiveCaptionBrush,
            VisualTreeHelper.GetDpi(textBoxControl).PixelsPerDip)

        text.MaxTextWidth = Math.Max(textBoxControl.ActualWidth - textBoxControl.Padding.Left - textBoxControl.Padding.Right, 10)
        text.MaxTextHeight = Math.Max(textBoxControl.ActualHeight, 10)

        'Render based on padding of the control, to try and match where the textbox places text
        Dim renderingOffset As New Point(textBoxControl.Padding.Left, textBoxControl.Padding.Top)

        'Template contains the content part; adjust sizes to try and align the text
        Dim part As FrameworkElement = TryCast(textBoxControl.Template.FindName("PART_ContentHost", textBoxControl), FrameworkElement)

        If part IsNot Nothing Then
            Dim partPosition As Point = part.TransformToAncestor(textBoxControl).Transform(New Point(0, 0))
            renderingOffset.X += partPosition.X
            renderingOffset.Y += partPosition.Y

            text.MaxTextWidth = Math.Max(part.ActualWidth - renderingOffset.X, 10)
            text.MaxTextHeight = Math.Max(part.ActualHeight, 10)
        End If

        ' Draw the text
        drawingContext.DrawText(text, renderingOffset)
    End Sub

End Class

    Um adorno herda da classe Adorner. Este adorno específico substitui o método OnRender(DrawingContext) para desenhar o texto do espaço reservado. Vamos detalhar o código:

    • Primeiro, verifique se o texto do espaço reservado existe chamando TextBoxHelper.GetPlaceholder(textBoxControl).
    • Crie um objeto FormattedText. Este objeto contém todas as informações sobre qual texto é exibido no visual.
    • As propriedades FormattedText.MaxTextWidth e FormattedText.MaxTextHeight são definidas para a região do controle. Também definiram um valor mínimo de 10 para garantir que o objeto FormattedText seja válido.
    • O renderingOffset armazena a posição do texto desenhado.
    • Use o PART_ContentHost se o modelo do controle o declarar. Essa parte representa onde o texto é desenhado no modelo do controle. Se essa parte for encontrada, modifique o renderingOffset para considerar sua posição.
    • Desenhe o texto chamando DrawText(FormattedText, Point) e passando o objeto FormattedText e a posição do texto.

Aplicar a propriedade anexada

Depois que a propriedade anexada é definida, seu namespace precisa ser importado para o XAML e, em seguida, referenciado em um TextBox controle. O código a seguir mapeia o namespace DotnetDocsSample do .NET para o namespace lXML.

<Window x:Class="DotnetDocsSample.MainWindow"
        xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
        xmlns:l="clr-namespace:DotnetDocsSample"
        Title="Recipe Tracker" Width="400" SizeToContent="Height">
    <StackPanel Margin="10">
        <TextBlock FontSize="20" TextWrapping="Wrap">Welcome to Recipe Tracker! To get started, create a new account.</TextBlock>
        
        <Label Padding="0,5">Name</Label>
        <TextBox l:TextBoxHelper.Placeholder="Ex. Jeffry Goh" />
        
        <Label Padding="0,5">Email</Label>
        <TextBox l:TextBoxHelper.Placeholder="jeffry@contoso.com" />
        
        <Label Padding="0,5">Password</Label>
        <PasswordBox />
        
        <Button HorizontalAlignment="Right" Width="100" Margin="0,10,0,5">Submit</Button>
    </StackPanel>
</Window>

A propriedade anexada é adicionada a um TextBox usando a sintaxe xmlNamespace:Class.Property.

Exemplo completo

O código a seguir é a classe completa TextBoxHelper .

public static class TextBoxHelper
{
    public static string GetPlaceholder(DependencyObject obj) =>
        (string)obj.GetValue(PlaceholderProperty);

    public static void SetPlaceholder(DependencyObject obj, string value) =>
        obj.SetValue(PlaceholderProperty, value);

    public static readonly DependencyProperty PlaceholderProperty =
        DependencyProperty.RegisterAttached(
            "Placeholder",
            typeof(string),
            typeof(TextBoxHelper),
            new FrameworkPropertyMetadata(
                defaultValue: null,
                propertyChangedCallback: OnPlaceholderChanged)
            );

    private static void OnPlaceholderChanged(DependencyObject d, DependencyPropertyChangedEventArgs e)
    {
        if (d is TextBox textBoxControl)
        {
            if (!textBoxControl.IsLoaded)
            {
                // Ensure that the events are not added multiple times
                textBoxControl.Loaded -= TextBoxControl_Loaded;
                textBoxControl.Loaded += TextBoxControl_Loaded;
            }

            textBoxControl.TextChanged -= TextBoxControl_TextChanged;
            textBoxControl.TextChanged += TextBoxControl_TextChanged;

            // If the adorner exists, invalidate it to draw the current text
            if (GetOrCreateAdorner(textBoxControl, out PlaceholderAdorner adorner))
                adorner.InvalidateVisual();
        }
    }

    private static void TextBoxControl_Loaded(object sender, RoutedEventArgs e)
    {
        if (sender is TextBox textBoxControl)
        {
            textBoxControl.Loaded -= TextBoxControl_Loaded;
            GetOrCreateAdorner(textBoxControl, out _);
        }
    }

    private static void TextBoxControl_TextChanged(object sender, TextChangedEventArgs e)
    {
        if (sender is TextBox textBoxControl
            && GetOrCreateAdorner(textBoxControl, out PlaceholderAdorner adorner))
        {
            // Control has text. Hide the adorner.
            if (textBoxControl.Text.Length > 0)
                adorner.Visibility = Visibility.Hidden;

            // Control has no text. Show the adorner.
            else
                adorner.Visibility = Visibility.Visible;
        }
    }

    private static bool GetOrCreateAdorner(TextBox textBoxControl, out PlaceholderAdorner adorner)
    {
        // Get the adorner layer
        AdornerLayer layer = AdornerLayer.GetAdornerLayer(textBoxControl);

        // If null, it doesn't exist or the control's template isn't loaded
        if (layer == null)
        {
            adorner = null;
            return false;
        }

        // Layer exists, try to find the adorner
        adorner = layer.GetAdorners(textBoxControl)?.OfType<PlaceholderAdorner>().FirstOrDefault();

        // Adorner never added to control, so add it
        if (adorner == null)
        {
            adorner = new PlaceholderAdorner(textBoxControl);
            layer.Add(adorner);
        }

        return true;
    }

    public class PlaceholderAdorner : Adorner
    {
        public PlaceholderAdorner(TextBox textBox) : base(textBox) { }

        protected override void OnRender(DrawingContext drawingContext)
        {
            TextBox textBoxControl = (TextBox)AdornedElement;

            string placeholderValue = TextBoxHelper.GetPlaceholder(textBoxControl);

            if (string.IsNullOrEmpty(placeholderValue))
                return;

            // Create the formatted text object
            FormattedText text = new FormattedText(
                                        placeholderValue,
                                        System.Globalization.CultureInfo.CurrentCulture,
                                        textBoxControl.FlowDirection,
                                        new Typeface(textBoxControl.FontFamily,
                                                     textBoxControl.FontStyle,
                                                     textBoxControl.FontWeight,
                                                     textBoxControl.FontStretch),
                                        textBoxControl.FontSize,
                                        SystemColors.InactiveCaptionBrush,
                                        VisualTreeHelper.GetDpi(textBoxControl).PixelsPerDip);

            text.MaxTextWidth = System.Math.Max(textBoxControl.ActualWidth - textBoxControl.Padding.Left - textBoxControl.Padding.Right, 10);
            text.MaxTextHeight = System.Math.Max(textBoxControl.ActualHeight, 10);

            // Render based on padding of the control, to try and match where the textbox places text
            Point renderingOffset = new Point(textBoxControl.Padding.Left, textBoxControl.Padding.Top);

            // Template contains the content part; adjust sizes to try and align the text
            if (textBoxControl.Template.FindName("PART_ContentHost", textBoxControl) is FrameworkElement part)
            {
                Point partPosition = part.TransformToAncestor(textBoxControl).Transform(new Point(0, 0));
                renderingOffset.X += partPosition.X;
                renderingOffset.Y += partPosition.Y;

                text.MaxTextWidth = System.Math.Max(part.ActualWidth - renderingOffset.X, 10);
                text.MaxTextHeight = System.Math.Max(part.ActualHeight, 10);
            }

            // Draw the text
            drawingContext.DrawText(text, renderingOffset);
        }
    }
}

Public Class TextBoxHelper

    Public Shared Function GetPlaceholder(obj As DependencyObject) As String
        Return obj.GetValue(PlaceholderProperty)
    End Function

    Public Shared Sub SetPlaceholder(obj As DependencyObject, value As String)
        obj.SetValue(PlaceholderProperty, value)
    End Sub

    Public Shared ReadOnly PlaceholderProperty As DependencyProperty =
        DependencyProperty.RegisterAttached(
            "Placeholder",
            GetType(String),
            GetType(TextBoxHelper),
            New FrameworkPropertyMetadata(
                defaultValue:=Nothing,
                propertyChangedCallback:=AddressOf OnPlaceholderChanged)
            )

    Private Shared Sub OnPlaceholderChanged(d As DependencyObject, e As DependencyPropertyChangedEventArgs)
        Dim textBoxControl = TryCast(d, TextBox)

        If textBoxControl IsNot Nothing Then

            If Not textBoxControl.IsLoaded Then

                'Ensure that the events are not added multiple times
                RemoveHandler textBoxControl.Loaded, AddressOf TextBoxControl_Loaded
                AddHandler textBoxControl.Loaded, AddressOf TextBoxControl_Loaded

            End If

            RemoveHandler textBoxControl.TextChanged, AddressOf TextBoxControl_TextChanged
            AddHandler textBoxControl.TextChanged, AddressOf TextBoxControl_TextChanged

            'If the adorner exists, invalidate it to draw the current text
            Dim adorner As PlaceholderAdorner = Nothing
            If GetOrCreateAdorner(textBoxControl, adorner) Then
                adorner.InvalidateVisual()
            End If

        End If

    End Sub

    Private Shared Sub TextBoxControl_Loaded(sender As Object, e As RoutedEventArgs)
        Dim textBoxControl As TextBox = TryCast(sender, TextBox)

        If textBoxControl IsNot Nothing Then
            RemoveHandler textBoxControl.Loaded, AddressOf TextBoxControl_Loaded
            GetOrCreateAdorner(textBoxControl, Nothing)
        End If
    End Sub

    Private Shared Sub TextBoxControl_TextChanged(sender As Object, e As TextChangedEventArgs)
        Dim textBoxControl As TextBox = TryCast(sender, TextBox)
        Dim adorner As PlaceholderAdorner = Nothing

        If textBoxControl IsNot Nothing AndAlso GetOrCreateAdorner(textBoxControl, adorner) Then

            If textBoxControl.Text.Length > 0 Then
                'Control has text. Hide the adorner.
                adorner.Visibility = Visibility.Hidden
            Else
                'Control has no text. Show the adorner.
                adorner.Visibility = Visibility.Visible
            End If

        End If
    End Sub


    Private Shared Function GetOrCreateAdorner(textBoxControl As TextBox, ByRef adorner As PlaceholderAdorner) As Boolean

        'Get the adorner layer
        Dim layer As AdornerLayer = AdornerLayer.GetAdornerLayer(textBoxControl)

        'If nothing, it doesn't exist or the control's template isn't loaded
        If layer Is Nothing Then
            adorner = Nothing
            Return False
        End If

        'Layer exists, try to find the adorner
        adorner = layer.GetAdorners(textBoxControl)?.OfType(Of PlaceholderAdorner)().FirstOrDefault()

        'Adorner never added to control, so add it
        If adorner Is Nothing Then
            adorner = New PlaceholderAdorner(textBoxControl)
            layer.Add(adorner)
        End If

        Return True

    End Function

    Public Class PlaceholderAdorner
        Inherits Adorner

        Public Sub New(adornedElement As UIElement)
            MyBase.New(adornedElement)
        End Sub

        Protected Overrides Sub OnRender(drawingContext As DrawingContext)
            Dim textBoxControl As TextBox = DirectCast(AdornedElement, TextBox)

            Dim placeholderValue As String = TextBoxHelper.GetPlaceholder(textBoxControl)

            If String.IsNullOrEmpty(placeholderValue) Then
                Return
            End If

            'Create the formatted text object
            Dim text As New FormattedText(
                placeholderValue,
                System.Globalization.CultureInfo.CurrentCulture,
                textBoxControl.FlowDirection,
                New Typeface(textBoxControl.FontFamily,
                             textBoxControl.FontStyle,
                             textBoxControl.FontWeight,
                             textBoxControl.FontStretch),
                textBoxControl.FontSize,
                SystemColors.InactiveCaptionBrush,
                VisualTreeHelper.GetDpi(textBoxControl).PixelsPerDip)

            text.MaxTextWidth = Math.Max(textBoxControl.ActualWidth - textBoxControl.Padding.Left - textBoxControl.Padding.Right, 10)
            text.MaxTextHeight = Math.Max(textBoxControl.ActualHeight, 10)

            'Render based on padding of the control, to try and match where the textbox places text
            Dim renderingOffset As New Point(textBoxControl.Padding.Left, textBoxControl.Padding.Top)

            'Template contains the content part; adjust sizes to try and align the text
            Dim part As FrameworkElement = TryCast(textBoxControl.Template.FindName("PART_ContentHost", textBoxControl), FrameworkElement)

            If part IsNot Nothing Then
                Dim partPosition As Point = part.TransformToAncestor(textBoxControl).Transform(New Point(0, 0))
                renderingOffset.X += partPosition.X
                renderingOffset.Y += partPosition.Y

                text.MaxTextWidth = Math.Max(part.ActualWidth - renderingOffset.X, 10)
                text.MaxTextHeight = Math.Max(part.ActualHeight, 10)
            End If

            ' Draw the text
            drawingContext.DrawText(text, renderingOffset)
        End Sub

    End Class
End Class

Consulte também

  • Last updated on