1

RunToCursor を実行するときにブレークポイントを無視する簡単なマクロを作成しようとしました。

しかし、何らかの理由で RunToCursor 呼び出しがまったく機能せず (「操作はサポートされていません」)、ブレークポイントの状態も適切にリセットされません。一部は再アクティブ化されますが、すべてではありません。何か案は?

Sub RunToLineAndIgnoreBreakpoints()
    Dim bptStates(DTE.Debugger.Breakpoints.Count - 1) As Boolean


    Dim i = 0
    For Each bpt As Breakpoint In DTE.Debugger.Breakpoints
        bptStates(i) = bpt.Enabled
        i += 1
        bpt.Enabled = False
    Next

    Try
        DTE.Debugger.RunToCursor(True)
        '       Catch ex As Exception
    Finally
        i = 0
        For Each bpt As Breakpoint In DTE.Debugger.Breakpoints
            bpt.Enabled = bptStates(i)
            i += 1
        Next
    End Try
End Sub
4

0 に答える 0