TextBox'a yer tutucu ekleme

Aşağıdaki örnekte, boş olduğunda TextBox içinde yer tutucu metnin TextBox nasıl görüntüleneceği gösterilmektedir. TextBox metni olduğunda, yer tutucu metin gizlenir. Yer tutucu metin, kullanıcıların ne tür bir giriş TextBox beklediğini anlamasına yardımcı olur.

Bu makalede şunları öğreneceksiniz:

Yer tutucu metni sağlamak için ekli bir özellik oluşturun.
Yer tutucu metni görüntülemek için bir donatıcı oluşturun.
Ekli özelliği bir TextBox kontrol unsuruna ekleyin.

Ekli özellik oluşturma

Ekli özelliklerle, değerleri bir denetime ekleyebilirsiniz. Bu özelliği WPF'de çok sık kullanırsınız, örneğin bir denetimde Grid.Row veya Panel.ZIndex özelliklerini ayarladığınızda. Daha fazla bilgi için, bkz. Ekli Özelliklere Genel Bakış. Bu örnekte, bir öğesine yer tutucu metin eklemek için TextBox ekli özellikler kullanılır.

Projenize adlı TextBoxHelper yeni bir sınıf ekleyin ve açın.

Aşağıdaki ad alanlarını ekleyin:

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

adlı Placeholderyeni bir bağımlılık özelliği oluşturun.

Bu bağımlılık özelliği, değiştirilen geri çağırma temsilcisini kullanır.

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)
        )

OnPlaceholderChanged özelliğini TextBox ile bütünleştirmek için yöntemi oluşturun.

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

Ekli özellik değeri değiştiğinde bu yöntemin çağrılmasının iki yolu vardır:

Ekli özellik bir TextBoxöğesine ilk kez eklendiğinde bu yöntem çağrılır. Bu eylem, ekli özelliğin kontrolün olaylarıyla entegrasyonu için bir fırsat sağlar.
Bu özellik her değiştirildiğinde, görsel yer tutucu metnini yenilemek için donatıcı geçersiz kılınabilir.

sonraki bölümde GetOrCreateAdorner yöntemi oluşturulacaktır.

Olay işleyicilerini TextBox için oluşturun.

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

Olay Loaded , denetimin şablonu uygulandıktan sonra donatıcının oluşturulabilmesi için ele alınır. İşleyici, olay tetiklendiğinde ve süsleyici oluşturulduktan sonra kendisini kaldırır.

TextChanged olayı, Text bir değere ayarlandığında donatıcının gizlendiğinden veya görüntülendiğinden emin olmak için işlenir.

Donatıcı oluştur

Adorner denetimine bağlı ve AdornerLayer içinde işlenen bir görseldir. Daha fazla bilgi için bkz . Donatıcılara Genel Bakış.

TextBoxHelper sınıfını açın.

Aşağıdaki kodu ekleyerek GetOrCreateAdorner yöntemini oluşturun.

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

Bu yöntem, Adorner öğesini eklemek veya almak için güvenli bir yol sağlar. Süslemeler, kontrolün AdornerLayer var olmayabilecek bir öğesine eklendiğinden, ek güvenlik gerektirir. Bir denetime XAML ekli özelliği uygulandığında, görsel ağacı oluşturmak için denetimin şablonu henüz uygulanmadığından donatıcı katmanı mevcut değildir. Denetim yüklendikten sonra süsleyici katmanı geri alınmalıdır. Donatıcı katmanını atlayan bir şablon denetime uygulanmışsa, donatıcı katmanı da eksik olabilir.

PlaceholderAdorner sınıfına TextBoxHelper adlı bir alt sınıf ekleyin.

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

Bir donatıcı, Adorner sınıfından devralır. Bu özel süsleyici, yer tutucu metni çizmek için OnRender(DrawingContext) yöntemini geçersiz kılar. Kodu inceleyelim:

İlk olarak, çağırarak TextBoxHelper.GetPlaceholder(textBoxControl)yer tutucu metnin mevcut olup olmadığını denetleyin.
Bir FormattedText nesne oluşturun. Bu nesne, görselde hangi metnin çizildiğiyle ilgili tüm bilgileri içerir.
FormattedText.MaxTextWidth ve FormattedText.MaxTextHeight özellikleri denetimin bölgesine ayarlanır. Öznenin geçerli olduğundan emin olmak için ayrıca FormattedText nesnesine en az 10 değerinde asgari bir değer atanır.
, renderingOffset çizilen metnin konumunu depolar.
Denetimin PART_ContentHost şablonu bunu bildiriyorsa kullanın. Bu bölüm, denetimin şablonunda metnin çizildiği yeri temsil eder. Bu parça bulunursa, konumunu hesaba katmak için renderingOffset öğesini değiştirin.
Metni çizmek için DrawText(FormattedText, Point) nesnesini ve metnin konumunu alarak FormattedText'yi çağırın.

Ekli özelliği uygula

Ekli özellik tanımlandıktan sonra ad alanının XAML'e aktarılması ve ardından bir TextBox denetim üzerinde başvurulması gerekir. Aşağıdaki kod .NET ad alanı DotnetDocsSample'i XML ad alanı l ile eşler.

<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>

ekli özellik, söz dizimi TextBoxkullanılarak öğesine xmlNamespace:Class.Property eklenir.

Tam örnek

Aşağıdaki kod tam TextBoxHelper sınıfıdır.

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

Ayrıca bakınız

Geri Bildirim

Bu sayfayı yararlı buldunuz mu?

Last updated on 2025-05-07