将c＃应用程序转换为VB

Question

我正在将C＃应用程序转换为VB，但对于一些产生的错误并不确定。

在C＃我有─

var quotesInvoker = new QuotesInvoker(new[] { "EUR=X", "JPY=X" }); 

它转换到 -

Dim quotesInvoker = New Reuters_Downloader.HttpSample.Invokers.QuotesInvoker(New() {"EUR=X", "JPY=X"}) 

但是新的（）具有 '预期的类型' 如果我修改代码来读取的错误 -

Dim quotesInvoker = New Reuters_Downloader.HttpSample.Invokers.QuotesInvoker(CType(New Object() {"EUR=X", "JPY=X"}, String())) 

问题消失了，但我不知道这是否是一个好的解决方案。任何意见？

借助于此，我们有这个C＃QuotesInvoker代码 -

public class QuotesInvoker : IInvoker<RetrieveItem_Request_3, ItemResponse_Short_Or_Full[]> 
{ 
    private readonly string[] rics; 

    public QuotesInvoker(string[] rics) 
    { 
     this.rics = rics; 
    } 

    public ItemResponse_Short_Or_Full[] Invoke(AuthorizationType authorization, RetrieveItem_Request_3 request) 
    { 
     var proxy = new Quotes_1Client(); 
     ItemResponse_Short_Or_Full[] response; 
     proxy.RetrieveItem_3(null, authorization, request, out response); 
     return response; 
    } 

    public RetrieveItem_Request_3 CreateRequest() 
    { 
     var retval = new RetrieveItem_Request_3(); 
     retval.TrimResponse = false; 

     var request = new ItemRequest_2[1]; 
     var request0 = new ItemRequest_2(); 
     request0.Fields = ""; 
     var keys = new List<InstrumentKey_2>(); 
     foreach(var ric in rics) 
     { 
      keys.Add(new InstrumentKey_2 
      { 
       Name = ric, 
       NameType = "RIC" 
      }); 
     } 
     request0.RequestKey = keys.ToArray(); 
     request0.ExpandChains = true; 
     request0.Scope = Scope.All; 
     request[0] = request0; 

     retval.ItemRequest = request; 
     return retval; 
    } 
} 

其转换为 -

Public Class QuotesInvoker 
    Implements IInvoker(Of RetrieveItem_Request_3, ItemResponse_Short_Or_Full()) 
    Private ReadOnly rics As String() 

    Public Sub New(rics As String()) 
     Me.rics = rics 
    End Sub 

    Public Function Invoke(authorization As AuthorizationType, request As RetrieveItem_Request_3) As ItemResponse_Short_Or_Full() 
     Dim proxy = New Quotes_1Client() 
     Dim response As ItemResponse_Short_Or_Full() = Nothing 
     proxy.RetrieveItem_3(Nothing, authorization, request, response) 
     Return response 
    End Function 

    Public Function CreateRequest() As RetrieveItem_Request_3 
     Dim retval = New RetrieveItem_Request_3() 
     retval.TrimResponse = False 

     Dim request = New ItemRequest_2(0) {} 
     Dim request0 = New ItemRequest_2() 
     request0.Fields = "" 
     Dim keys = New List(Of InstrumentKey_2)() 
     For Each ric In rics 
      keys.Add(New InstrumentKey_2() With { _ 
       Key .Name = ric, _ 
       Key .NameType = "RIC" _ 
      }) 
     Next 
     request0.RequestKey = keys.ToArray() 
     request0.ExpandChains = True 
     request0.Scope = Scope.All 
     request(0) = request0 

     retval.ItemRequest = request 
     Return retval 
    End Function 
End Class 

这在“类 'QuotesInvoker' 2线路产生一个错误必须实现“功能的createRequest （）ThomsonReutersKnowledgeDirect.RetrieveItem_Request_3'为接口'IInvoker（ThomsonReutersKnowledgeDirect.RetrieveItem_Request_3，ThomsonReutersKnowledgeDirect.ItemResponse_Short_Or_Full（））'。“

的“无差错” Vb的译名为“RetrieveItem_Request_3' 是 -

<System.Diagnostics.DebuggerStepThroughAttribute()> _ 
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "3.0.0.0")> _ 
<System.ServiceModel.MessageContractAttribute(IsWrapped:=False)> _ 
Partial Public Class RetrieveItem_3_RequestMessage 

    <System.ServiceModel.MessageHeaderAttribute([Namespace]:="http://www.reuters.com/ns/2008/03/01/webservices/rkd/Cache_1")> _ 
    Public CacheRequest As ThomsonReutersKnowledgeDirect.CacheRequest 

    <System.ServiceModel.MessageHeaderAttribute([Namespace]:="http://www.reuters.com/ns/2006/05/01/webservices/rkd/Common_1")> _ 
    Public Authorization As ThomsonReutersKnowledgeDirect.AuthorizationType 

    <System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://www.reuters.com/ns/2006/05/01/webservices/rkd/Quotes_1", Order:=0)> _ 
    Public RetrieveItem_Request_3 As ThomsonReutersKnowledgeDirect.RetrieveItem_Request_3 

    Public Sub New() 
    End Sub 

    Public Sub New(CacheRequest As ThomsonReutersKnowledgeDirect.CacheRequest, Authorization As ThomsonReutersKnowledgeDirect.AuthorizationType, RetrieveItem_Request_3 As ThomsonReutersKnowledgeDirect.RetrieveItem_Request_3) 
     Me.CacheRequest = CacheRequest 
     Me.Authorization = Authorization 
     Me.RetrieveItem_Request_3 = RetrieveItem_Request_3 
    End Sub 
End Class 

我失去了与这个所以希望得到任何帮助解决所产生的翻译错误 感谢

Answer 1

回答到。第一个问题：是的，就是这样，VB编译器需要这种语法的数组类型，你可以修改：

Dim quotesInvoker = New Reuters_Downloader.HttpSample.Invokers.QuotesInvoker(New String() {"EUR=X", "JPY=X"}) 

至于你的第二个错误：C＃编译器支持隐式实现接口成员，而VB编译器不支持。所以，在VB中，你应该始终明确指定的成员来实现：

Public Function CreateRequest() As RetrieveItem_Request_3 _ 
    Implements IInvoker(Of ThomsonReutersKnowledgeDirect.RetrieveItem_Request_3, ThomsonReutersKnowledgeDirect.ItemResponse_Short_Or_Full()).CreateRequest 

Answer 2

为了您的第一个问题，你可以使用：

Dim quotesInvoker = New QuotesInvoker({ "EUR=X", "JPY=X" }) 

对于第二个问题，只需添加必要的“器具”条款（在方法头部末尾键入“Implements”，VB将为您提供选择）。如果转换器不具有接口代码或程序集引用来查找接口方法，则转换器不会为您添加它们。