次の方法で共有

VirtualPoint インターフェイス

  • [アーティクル]

更新 : 2007 年 11 月

テキスト ドキュメントの右端余白 (双方向の Windows では左端余白) を超えてテキストを操作できます。

名前空間 :  EnvDTE
アセンブリ :  EnvDTE (EnvDTE.dll 内)

構文

'宣言
<GuidAttribute("42320454-626C-4DD0-9ECB-357C4F1966D8")> _
Public Interface VirtualPoint _
    Implements TextPoint
'使用
Dim instance As VirtualPoint

[GuidAttribute("42320454-626C-4DD0-9ECB-357C4F1966D8")]
public interface VirtualPoint : TextPoint

[GuidAttribute(L"42320454-626C-4DD0-9ECB-357C4F1966D8")]
public interface class VirtualPoint : TextPoint

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

参照

参照

VirtualPoint メンバ

EnvDTE 名前空間