UndoContext.IsStrict プロパティ
更新 : 2007 年 11 月
元に戻すスタックのリンケージが厳密かどうかを示す値を取得します。
名前空間 : EnvDTE
アセンブリ : EnvDTE (EnvDTE.dll 内)
構文
'宣言
ReadOnly Property IsStrict As Boolean
'使用
Dim instance As UndoContext
Dim value As Boolean
value = instance.IsStrict
bool IsStrict { get; }
property bool IsStrict {
bool get ();
}
function get IsStrict () : boolean
プロパティ値
型 : System.Boolean
元に戻すスタックのリンケージが厳密である場合は true を示し、それ以外の場合は false を示すブール値。
解説
リンケージが厳密な場合は、[元に戻す] ボックス内の名前の前に、"+" が表示されます。
例
Sub IsStrictExample()
' Before running, select text in an open document.
Dim txtSel As TextSelection
Dim strTS As String, strAnswer As String, bIsOpen As Boolean
txtSel = DTE.ActiveDocument.Selection
strTS = txtSel.Text
' Check to see if UndoContext object is already open.
If DTE.UndoContext.IsOpen = True Then
bIsOpen = True
Else
' Open the UndoContext object to track changes.
DTE.UndoContext.Open("RemoveNewLines", False)
End If
MsgBox("Current IsAborted value: " & DTE.UndoContext.IsAborted & vbCr & "Current IsStrict value: " & DTE.UndoContext.IsStrict)
' Perform search for newline characters and remove them.
If strTS <> "" Then
txtSel.Delete()
strTS = Replace(strTS, vbNewLine, "", Compare:=vbTextCompare)
txtSel.Insert(strTS)
End If
' Check to see if you want to discard changes.
strAnswer = MsgBox("Do you want to discard all changes made?", vbYesNo & vbQuestion)
If strAnswer = True Then
DTE.UndoContext.SetAborted()
MsgBox("Current IsAborted value: " & DTE.UndoContext.IsAborted & vbCr & "IsStrict value: " & DTE.UndoContext.IsStrict)
End If
' If UndoContext was already open, don't close it.
If bIsOpen = True Then
' Close the UndoContext object to commit the changes.
DTE.UndoContext.Close()
End If
End Sub
アクセス許可
- 直前の呼び出し元に対する完全な信頼。このメンバは、部分的に信頼されているコードから使用することはできません。詳細については、「部分信頼コードからのライブラリの使用」を参照してください。