在 VB.NET 中使用 KeyValuePair 进行反向查找字典（C# 中的示例提示需要转换）

Question

我目前正在进行 VB.NET 项目，希望使用 KeyValuePair 来促进反向查找。

我在这里找到了一个很好的 C# 示例： http://www.dreamincode.net/forums /showtopic78080.htm，但是我在转换为 VB.NET 时遇到了一个小问题（手动和使用翻译器（在线 carlosag））。例如，我在 Add 方法中期望的语法如下：

    Public Sub Add(ByVal key As TKey, ByVal value As TValue)
        Me.Add(New KeyValuePair(Of Tkey(key, value))
    End Sub

然而这告诉我“‘System.Collections.Generic.KeyValuePair(Of TKey, TValue)’的类型参数太少”

任何帮助肯定会有所帮助（事实上，包括匿名方法的示例的完整翻译也会有所帮助：D。

Answer 1

我通过我通常用来将 C# 转换为 VB.NET 的工具运行了您提到的示例，网址为 www.developerfusion.co.uk/tools

Imports System 
Imports System.Collections.Generic 
Imports System.Text 
Namespace ConsoleApplication1 
    Class PairCollection(Of TKey, TValue) 
        Inherits List(Of KeyValuePair(Of TKey, TValue)) 
        Public Sub Add(ByVal key As TKey, ByVal value As TValue) 
            Me.Add(New KeyValuePair(Of TKey, TValue)(key, value)) 
        End Sub 
        Public Function FindByKey(ByVal key As TKey) As List(Of KeyValuePair(Of TKey, TValue)) 
            Return Me.FindAll(Function(ByVal item As KeyValuePair(Of TKey, TValue)) (item.Key.Equals(key))) 
        End Function 
        Public Function FindByValue(ByVal value As TValue) As List(Of KeyValuePair(Of TKey, TValue)) 
            Return Me.FindAll(Function(ByVal item As KeyValuePair(Of TKey, TValue)) (item.Value.Equals(value))) 
        End Function 
    End Class 
    Class Program 
        Private Shared Sub Main(ByVal args As String()) 
            Dim menu As New PairCollection(Of String, Double)() 
            menu.Add("Burger", 3.5R) 
            menu.Add("Hot Dog", 2.25) 
            menu.Add("Fries", 1.75) 
            Console.WriteLine(menu.FindByKey("Fries")(0)) 
            Console.ReadLine() 
        End Sub 
    End Class 
End Namespace 

正如您所看到的，Add() 方法的结果与您的方法略有不同。

Answer 2

1-正如kevinw指出的，你原来的代码是错误的，它应该是：

Me.Add(New KeyValuePair(Of TKey, TValue)(key, value))

2-上面的代码应该在继承自PairCollection中插入一个新的KeyValuePair >列表（KeyValuePair）。如果它不起作用，那么您的 Inherits 行很可能是错误的。根据错误，Add 方法需要一个键，而不是 KeyValuePair...也许您是从 Dictionary 而不是 继承的>列表？

Answer 3

通过使 Add 方法重载来解决：

Public Overloads Sub Add(ByVal key As TKey, ByVal value As TValue)
   Me.Add(New KeyValuePair(Of TKey, TValue)(key, value))
End Sub

奇怪的是，尽管 MyBase.Add 可以工作（通过 Reflector 中的反编译发现），但我却没有（尽管“this”在 C# 中工作）。我想我将此归因于 VB.NET 中的一个怪癖？

感谢 Kevinw 和 Meta-Knight。原来的代码是错误的，但我一直都是从List继承的。