Coderush 插件未生成正确的 try catch end try 块

Question

我们创建了一个小插件来添加 xml 注释块并为函数创建 try-catch。 （我们只需将其添加到我们编写的每个函数中） 但在最新的 devexpress 更新中，我遇到了以下代码的问题。

Private Sub cpAddComment_Apply(ByVal sender As System.Object, ByVal ea As DevExpress.CodeRush.Core.ApplyContentEventArgs) Handles cpAddXMLCommentAndTryCatch.Apply
    ' create elementbuilder and add current code to it
    Dim objMethod As New Method
    objMethod = objOldMethod.Clone()
    objElementBuilder.AddStatement(Nothing, objMethod)

    ' add try
    Dim objTry As DevExpress.CodeRush.StructuralParser.Try = objElementBuilder.AddTry(objMethod)
    Dim objCatch As DevExpress.CodeRush.StructuralParser.Catch = objElementBuilder.AddCatch(objMethod, "Exception", "ex")

    ' add exception
    Dim strErrorString As String = """Error in " + objMethod.Location + """, ex"
    Dim objThrow As New DevExpress.CodeRush.StructuralParser.Throw

    Dim objException As New DevExpress.CodeRush.StructuralParser.TypeReferenceExpression("Exception")
    Dim objExceptionString As New DevExpress.CodeRush.StructuralParser.PrimitiveExpression(strErrorString)
    Dim objNewException As New DevExpress.CodeRush.StructuralParser.ObjectCreationExpression(objException)
    objNewException.AddArgument(objExceptionString)
    objThrow.Expression = objNewException
    'objThrow.AddFooter(" ") 'This isnt working either
    objElementBuilder.AddThrow(objCatch, objThrow)


    ' substitute code
    Dim newCode As String = objElementBuilder.GenerateCode()
    ea.TextDocument.Replace(objOldMethod.Range, newCode, "Update Method", True)
end sub

它没有生成正确的 Try-catch 块，而是生成以下错误代码：

    Try
    Catch ex As Exception
    Throw New Exception("Error in test", ex)End Try

奇怪的是，以下代码似乎可以工作（其代码大致相同，但事件处理程序显示消息框而不是异常）

If not CodeRush.Language.ActiveExtension.DotNetLanguageType = DotNetLanguageType.CSharp Then
    Dim objExceptionString As New DevExpress.CodeRush.StructuralParser.PrimitiveExpression("Messagebox.Show(" + strErrorString + ")" + vbCrLf)
    objElementBuilder.AddStatement(objCatch, objExceptionString)
Else

此问题存在于 Vb 中。 Net，但在 C# 中括号放置正确。

Answer 1

我已重现您的问题并在 DevExpress 支持中心注册。欢迎您在此处跟踪其状态。修复后，您可以通过 support@devexpress.com 向支持团队请求包含修复程序的构建。目前，作为解决方法，您可以将此代码行： 替换

objThrow.Expression = objNewException

为：

objThrow.Expression = New SnippetExpression(CodeRush.Language.GenerateExpressionCode(objNewException) + vbCrLf)

这将在 Visual Basic 中正确生成 try/catch 块。