我一直在尝试编写一个宏 do 相当于
- 按 Ctrl+Alt+E 打开“例外”窗口
- 切换“公共语言运行时异常”的“抛出”列中的文本框
- 点击确定
如果我记录这个,它只会记录一行宏代码,不会执行任何操作。有人知道怎么做吗?
已经晚了,我还没有测试过,但这有帮助吗?
Dim dbg As EnvDTE90.Debugger3 = DTE.Debugger
Dim exSettings As EnvDTE90.ExceptionSettings = dbg.ExceptionGroups.Item("Common Language Runtime Exceptions")
Dim exSetting As EnvDTE90.ExceptionSetting = exSettings.Item("System.Data")
If exSetting.BreakWhenThrown Then
exSettings.SetBreakWhenThrown(False, exSetting)
Else
exSettings.SetBreakWhenThrown(True, exSetting)
End If
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)