- Код: Выделить всё
' Есть модуль
Module SuperModule
Public Sub ErrorSub
' В этой процедуре возникает ошибка
End Sub
End Module
' Из другого модуля процедура ErrorSub вызывается следующим образом
Dim mAssembly As System.Reflection.Assembly
mAssembly = System.Reflection.Assembly.GetExecutingAssembly
Dim BaseType As Type
BaseType = mAssembly.GetType(mAssembly.GetName.Name + "SuperModule")
Dim tmpMethod As System.Reflection.MethodInfo
tmpMethod = BaseType.GetMethod("ErrorSub")
tmpMethod.Invoke(vbNull, Nothing)
Все работает, метод выполняется, но в случае Exception деббагер останавливается на Invoke с System.Reflection.TargetInvocationException, а хотелось бы, чтобы он вставал на той строчке ErrorSub, которая вызвала ошибку. Это возможно?