vb.net - 是否可以使用字符串键/值对初始化New System.Collections.Generic.Dictionary？

Question

是否可以在一个语句中使用字符串键/值对创建和初始化 System.Collections.Generic.Dictionary 对象？

我正在考虑构造函数的字符串数组..

例如

Private mStringArray As String() = {"String1", "String2", "etc"}

如果这真是一种 syntactic sugar，我希望可以在.Net 2.0(Visual Studio 2005)和Visual Basic中使用的答案-尽管我很好奇是否有可能，不要让那让你失望； o)

Answer 1

我认为VB.NET 2中没有开箱即用的方法，但是您可以扩展通用字典以使其按您希望的方式工作。

下面的控制台应用程序说明了这一点:

Imports System.Collections.Generic

Module Module1

    Sub Main()

        Dim items As New FancyDictionary(Of Integer, String)(New Object(,) {{1, "First Item"}, {2, "Second Item"}, {3, "Last Item"}})
        Dim enumerator As FancyDictionary(Of Integer, String).Enumerator = items.GetEnumerator

        While enumerator.MoveNext
            Console.WriteLine(String.Format("{0} : {1}", enumerator.Current.Key, enumerator.Current.Value))
        End While

        Console.Read()

    End Sub

    Public Class FancyDictionary(Of TKey, TValue)
        Inherits Dictionary(Of TKey, TValue)

        Public Sub New(ByVal InitialValues(,) As Object)

            For i As Integer = 0 To InitialValues.GetLength(0) - 1

                Me.Add(InitialValues(i, 0), InitialValues(i, 1))

            Next

        End Sub

    End Class

End Module