C#到vb.net的转换

我需要将此代码从C#转换为VB。我不确定语法是否正确

C#

很抱歉给出了一个“元答案”

对于像这样的小转换，如果您不确定语法和/或结果，这是一个很好的工具

使用的可能性：

在C#中编译，并反编译到VB.Net

在VB.Net中编译，与原始版本比较

---

曾为我的一个项目工作，但我怀疑有一些事情会让它不开心。你也一样。

我想他已经试过了，看看它是如何生成他正在使用的相同VB.NET代码的。我试过这个转换器和另一个转换器，都得到了相同的结果。公平地说，我没有试着插入你的代码。你是否做过一些标准的工作，比如确保VB项目有相同的引用，使用相同版本的.NET等等？我从头开始创建了另一个项目，以确保它不是那样的，并且具有相同的结果。我注意到，如果我从发布服务器中删除该属性，我可以很好地运行项目。好吧，我想我已经排除了synatx作为错误的原因。我用了反射器，得到了同样的密码。

[XcoWorkerExtension(Optional = new Type[] { typeof(Subscribe<OnNewsArrived>) })]
    private readonly XcoPublisher<OnNewsArrived> publisher = new    XcoPublisher<OnNewsArrived>();

<XcoWorkerExtension([Optional]:=New Type() {GetType(Subscribe(Of OnNewsArrived))})> _
    Private ReadOnly publisher As New XcoPublisher(Of OnNewsArrived)()

internal XcoWorkerExtensionAttribute Get_worker_extension_attribute(FieldInfo field)
    {
        object[] fieldAttrs = field.GetCustomAttributes(typeof(XcoWorkerExtensionAttribute), false);
        object[] classAttrs = field.FieldType.GetCustomAttributes(typeof(XcoWorkerExtensionAttribute), false);
        if (fieldAttrs.Length > 0 && classAttrs.Length == 0)
            throw new XcoWorkerException("A field can only be marked with the XcoWorkerExtension attribute when its type is also marked with this attribute");

        if (fieldAttrs.Length > 0)
            return (XcoWorkerExtensionAttribute)fieldAttrs[0];
        if (classAttrs.Length > 0)
            return (XcoWorkerExtensionAttribute)classAttrs[0];
        return null;
    }