VirtualPoint 介面
可讓您管理超過文字文件右邊界的文字,在雙向 (Bidirectional) Windows 中則為左邊界。
命名空間: EnvDTE
組件: EnvDTE (在 EnvDTE.dll 中)
語法
'宣告
<GuidAttribute("42320454-626C-4DD0-9ECB-357C4F1966D8")> _
Public Interface VirtualPoint _
Inherits TextPoint
[GuidAttribute("42320454-626C-4DD0-9ECB-357C4F1966D8")]
public interface VirtualPoint : TextPoint
[GuidAttribute(L"42320454-626C-4DD0-9ECB-357C4F1966D8")]
public interface class VirtualPoint : TextPoint
[<GuidAttribute("42320454-626C-4DD0-9ECB-357C4F1966D8")>]
type VirtualPoint =
interface
interface TextPoint
end
public interface VirtualPoint extends TextPoint
VirtualPoint 類型會公開下列成員。
屬性
名稱 | 描述 | |
---|---|---|
AbsoluteCharOffset | 取得從文件開頭到物件的字元位移 (Offset),以 1 為基底。 | |
AtEndOfDocument | 如果物件是在文件的結尾,則傳回 true。 | |
AtEndOfLine | 如果物件是在一行的結尾,則傳回 true。 | |
AtStartOfDocument | 如果物件是在文件的開頭,則傳回 true。 | |
AtStartOfLine | 如果物件是在一行的開頭,則傳回 true。 | |
CodeElement | 傳回在 VirtualPoint 位置的程式碼項目。 | |
DisplayColumn | 取得包含物件的目前顯示資料行數目。 | |
DTE | 取得最上層的擴充性物件。 | |
Line | 取得物件的行號。 | |
LineCharOffset | 取得物件的字元位移。 | |
LineLength | 傳回一個包含物件的行之字元數,不包含換行字元。 | |
Parent | 取得 VirtualPoint 物件的直屬父物件。 | |
VirtualCharOffset | 取得虛擬空間中之虛擬點的資料行索引。 | |
VirtualDisplayColumn | 取得目前位置的顯示資料行。 |
回頁首
方法
名稱 | 描述 | |
---|---|---|
CreateEditPoint | 在進行呼叫之物件的所在位置建立並傳回 EditPoint 物件。 | |
EqualTo | 傳回指定 TextPoint 物件的 AbsoluteCharOffset 屬性值是否與進行呼叫的 VirtualPoint 物件的該屬性值相同。 | |
GreaterThan | 傳回是否呼叫物件的 AbsoluteCharOffset 屬性值大於指定點物件的屬性值。 | |
LessThan | 傳回是否呼叫物件的 AbsoluteCharOffset 屬性值小於指定物件的屬性值。 | |
TryToShow | 嘗試顯示文字點的位置。 |
回頁首
備註
VirtualPoint 物件與 TextPoint 物件類似,不過,前者可以查詢文件中的虛擬空間。 VirtualPoint 物件是由 TextSelection.StartPoint 和 TextSelection.EndPoint 傳回。
虛擬空間指現有文字行右邊的空白空間以及存在此區域的虛擬點。
範例
Sub VirtualPointExample()
' Before running this example, open a text document.
Dim objSel As TextSelection = DTE.ActiveDocument.Selection
Dim objActive As VirtualPoint = objSel.ActivePoint
' Collapse the selection to the beginning of the line.
objSel.StartOfLine()
' objActive is "live", tied to the position of the actual selection,
' so it will reflect the new position.
Dim iCol As Long = objActive.DisplayColumn
' Move the selection to the end of the line.
objSel.EndOfLine()
MsgBox("The length of the insertion point line is " & (objActive.DisplayColumn - iCol) & " display characters.")
MsgBox("VirtualCharOffset value: " & objActive.VirtualCharOffset & vbCr & "VirtualDisplayColumn value: " & objActive.VirtualDisplayColumn)
End Sub