TextSelection.MoveToLineAndOffset メソッド
更新 : 2007 年 11 月
アクティブ ポイントを指定の位置に移動します。
名前空間 : EnvDTE
アセンブリ : EnvDTE (EnvDTE.dll 内)
構文
'宣言
Sub MoveToLineAndOffset ( _
Line As Integer, _
Offset As Integer, _
Extend As Boolean _
)
'使用
Dim instance As TextSelection
Dim Line As Integer
Dim Offset As Integer
Dim Extend As Boolean
instance.MoveToLineAndOffset(Line, Offset, _
Extend)
void MoveToLineAndOffset(
int Line,
int Offset,
bool Extend
)
void MoveToLineAndOffset(
[InAttribute] int Line,
[InAttribute] int Offset,
[InAttribute] bool Extend
)
function MoveToLineAndOffset(
Line : int,
Offset : int,
Extend : boolean
)
パラメータ
Line
型 : System.Int32必ず指定します。1 から始まる移動先の行番号。Line には、vsGoToLineOptions の定数のいずれかを指定することもできます。
Offset
型 : System.Int32必ず指定します。行内の文字インデックス位置で、1 から始まります。
Extend
型 : System.Boolean省略可能です。既定値は false です。現在の選択範囲を拡張するブール値。Extend が true の場合は、選択範囲のアクティブな終点は移動しますが、アンカーの終点は元の位置のままになります。それ以外の場合は、どちらの終点も指定した位置に移動します。この引数は、TextSelection オブジェクトにだけ適用されます。
解説
Offset の値が行の最後の文字を越える場合、ドキュメントは行末に移動します。
例
Sub MoveToLineAndOffsetExample()
' Before running this example, open a text document.
Dim objSel As TextSelection = DTE.ActiveDocument.Selection
' Move to the beginning of the document so we can iterate over the
' whole thing.
objSel.StartOfDocument()
While objSel.FindPattern("#if _DEBUG")
' If we found the beginning of a debug-only section, save the
' position.
Dim lStartLine As Long = objSel.TopPoint.Line
Dim lStartColumn As Long = objSel.TopPoint.LineCharOffset
' Look for the end.
If objSel.FindPattern("#endif") Then
' Select the entire section and outline it.
objSel.SwapAnchor()
objSel.MoveToLineAndOffset(lStartLine, lStartColumn, True)
objSel.OutlineSection()
objSel.LineDown()
End If
End While
End Sub
アクセス許可
- 直前の呼び出し元に対する完全な信頼。このメンバは、部分的に信頼されているコードから使用することはできません。詳細については、「部分信頼コードからのライブラリの使用」を参照してください。