TextSelection.IsEmpty Özellik

  • Başvuru

Tanım

Ad Alanı:
EnvDTE
Bütünleştirilmiş Kod:
EnvDTE.dll
Bütünleştirilmiş Kod:

Bağlantı noktasının etkin noktaya eşit olup olmadığını alır.

public:
 property bool IsEmpty { bool get(); };
public:
 property bool IsEmpty { bool get(); };
[System.Runtime.InteropServices.DispId(10)]
public bool IsEmpty { [System.Runtime.InteropServices.DispId(10)] get; }
[<System.Runtime.InteropServices.DispId(10)>]
[<get: System.Runtime.InteropServices.DispId(10)>]
member this.IsEmpty : bool
Public ReadOnly Property IsEmpty As Boolean

Özellik Değeri

Boolean

TrueDeğilse, bağlantı noktasının etkin noktaya eşit olup olmadığını gösteren bir Boole değeri False .

Öznitelikler
DispIdAttribute

Örnekler

Sub IsEmptyExample()  
    ' Before running this example, open a text document.  
    Dim objSel As TextSelection = DTE.ActiveDocument.Selection  
    If objSel.IsEmpty Then  
        ' If there is no text selected, swap the words before and after   
        ' the insertion point. We begin by selecting the word before   
        ' the insertion point.  
        objSel.WordLeft(True)  
        If Not objSel.IsEmpty Then  
            ' We can continue only if the selection was not already at   
            ' the beginning of the document.  
            Dim strBefore As String = objSel.Text  

            ' The text is saved in strBefore; now delete it and move   
            ' past the following word.  
            objSel.Delete()  
            objSel.WordRight(True)  
            If objSel.Text.StartsWith(" ") Or objSel.Text.StartsWith(Microsoft.VisualBasic.ControlChars.Tab) Then  
                ' The previous call to WordRight may have skipped some   
                ' white space instead of an actual word. In that case,   
                ' we should call it again.  
                objSel.WordRight(True)  
            End If  

            ' Insert the new text at the end of the selection.  
            objSel.Insert(strBefore, vsInsertFlags.vsInsertFlagsInsertAtEnd)  
        End If  
    Else  
        ' If some text is selected, replace the following word with the   
        ' text selection.  
        Dim strSelected As String = objSel.Text  

        objSel.MoveToPoint(objSel.BottomPoint)  
        objSel.WordRight(True)  
        If objSel.Text.StartsWith(" ") Or objSel.Text.StartsWith(Microsoft.VisualBasic.ControlChars.Tab) Then  
            ' The previous call to WordRight may have skipped some   
            ' white space instead of an actual word. In that case, we   
            ' should call it again.  
            objSel.WordRight(True)  
        End If  

        ' Insert the text, overwriting the existing text and leaving   
        ' the selection containing the inserted text.  
        objSel.Insert(strSelected, vsInsertFlags.vsInsertFlagsContainNewText)  
    End If  
End Sub

Açıklamalar

IsEmpty metin seçiminin yer işareti ve etkin uçlarının metin belgesindeki aynı konumda olup olmadığını döndürür.

Şunlara uygulanır