Bagikan melalui


TextPattern.GetSelection Metode

Definisi

Mengambil kumpulan rentang teks terpisah yang terkait dengan pilihan teks atau pilihan saat ini.

public:
 cli::array <System::Windows::Automation::Text::TextPatternRange ^> ^ GetSelection();
public System.Windows.Automation.Text.TextPatternRange[] GetSelection();
member this.GetSelection : unit -> System.Windows.Automation.Text.TextPatternRange[]
Public Function GetSelection () As TextPatternRange()

Mengembalikan

Kumpulan rentang teks yang putus-putus.

Pengecualian

Kontainer teks tidak mendukung pilihan teks.

Contoh

private TextPatternRange CurrentSelection(AutomationElement target)
{
    // Specify the control type we're looking for, in this case 'Document'
    PropertyCondition cond = new PropertyCondition(AutomationElement.ControlTypeProperty, ControlType.Document);

    // target --> The root AutomationElement.
    AutomationElement textProvider = target.FindFirst(TreeScope.Descendants, cond);

    TextPattern textpatternPattern = textProvider.GetCurrentPattern(TextPattern.Pattern) as TextPattern;

    if (textpatternPattern == null)
    {
        Console.WriteLine("Root element does not contain a descendant that supports TextPattern.");
        return null;
    }
    TextPatternRange[] currentSelection = textpatternPattern.GetSelection();
    return currentSelection[0];
}
Private Function CurrentSelection(ByVal target As AutomationElement) As TextPatternRange
    ' Specify the control type we're looking for, in this case 'Document'
    Dim cond As PropertyCondition = New PropertyCondition(AutomationElement.ControlTypeProperty, ControlType.Document)

    ' target --> The root AutomationElement.
    Dim textProvider As AutomationElement = target.FindFirst(TreeScope.Descendants, cond)

    Dim textpatternPattern As TextPattern = CType(textProvider.GetCurrentPattern(TextPattern.Pattern), TextPattern)

    If (textpatternPattern Is Nothing) Then
        Console.WriteLine("Root element does not contain a descendant that supports TextPattern.")
        Return Nothing
    End If
    Dim currentTextSelection As TextPatternRange() = textpatternPattern.GetSelection()
    Return currentTextSelection(0)
End Function

Keterangan

Jika tidak ada teks yang dipilih, GetSelection mengembalikan rentang teks degenerasi (rentang kosong) pada posisi kursor sistem (titik penyisipan teks).

Jika kursor sistem (titik penyisipan teks) tidak ada, GetSelection mungkin mengembalikan null.

Nota

SupportedTextSelection Gunakan properti untuk menguji apakah pemilihan teks atau penempatan titik penyisipan teks didukung oleh kontrol.

Berlaku untuk

Lihat juga