C# 下面的VB.Net等同于什么

我需要将以下内容转换为VB.Net。我尝试了在线转换器，但转换出错

var result = JsonConvert.DeserializeObject<T>(parsed["result"].ToString(),
                    new JsonSerializerSettings
                    {
                        /*
                         * Because Aliexpress Api logic is very weird - 
                         * it could return "-" for totalResults field, 
                         * Which is Integer by documentation and common sense
                        */
                        Error = HandleDeserializationError
                    });

 protected void HandleDeserializationError(object sender, ErrorEventArgs errorArgs)
        {
            var currentError = errorArgs.ErrorContext.Error.Message;
            errorArgs.ErrorContext.Handled = true;
        }

ErrorEventArgs类定义为

  Public Class ErrorEventArgs
        Inherits EventArgs

        Public Sub New(currentObject As Object, errorContext As ErrorContext)

        Public ReadOnly Property CurrentObject As Object
        Public ReadOnly Property ErrorContext As ErrorContext
    End Class

基本上我有转换程序：

Protected Sub HandleDeserializationError(sender As Object, errorArgs As ErrorEventArgs)
            Dim currentError As String = errorArgs.ErrorContext.[Error].Message
            errorArgs.ErrorContext.Handled = True
        End Sub

我需要将其指定为事件处理程序

差不多

 Dim s As JsonSerializerSettings = New JsonSerializerSettings()
                s.Error = HandleDeserializationError()
                Dim result = JsonConvert.DeserializeObject(Of T)(parsed("result").ToString(), s)

---

与生成的代码非常相似，但有一些更改。我不知道生成器使用

键做了什么，我认为没有必要在此上下文中将
Error
关键字括起来

Dim Result=JsonConvert.DeserializeObject（共T个）（已解析（“结果”）.ToString（）_
带有{.Error=AddressOf HandleDeserializationError}的新JSONSerializationSetting
受保护的Sub-HandleDeserializationError（发送方作为对象，ErrorArgs作为事件Args）
“这个方法的第一行没有做任何事情
errorArgs.ErrorContext.Handled=True
端接头
错误消息？它是ErrorContext类的一部分，更新了描述错误消息的文本将非常有用。嗯。。。关但是参数现在是个问题你怎么知道的？错误消息是什么？任何看到这个问题的人都会想知道同样的事情，你会一直得到否决票，直到你发布它。如果我的代码与你的代码完全一样，那么我必须生成一个函数：Private function HandleDeserializationError（）作为EventHandler（属于ErrorEventArgs）错误是：paramater sender未指定参数，未为参数ErrorArgs指定and参数
 Dim s As JsonSerializerSettings = New JsonSerializerSettings()
                s.Error = HandleDeserializationError()
                Dim result = JsonConvert.DeserializeObject(Of T)(parsed("result").ToString(), s)