VirtualPoint الواجهة
يسمح لك إلى معالجة النص خارج الهامش الأيمن (الهامش الأيسر في 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تشبه الكائنات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