Синтаксис инициализации коллекции в Visual Basic 2008?

Question

Я пытаюсь определить, есть ли способ в Visual Basic 2008 (Express Edition, если это имеет значение), чтобы сделать инлайн инициализации коллекции, а-ля JavaScript или Python:

Dim oMapping As Dictionary(Of Integer, String) = {{1,"First"}, {2, "Second"}} 

Я знаю, что Visual Basic 2008 поддерживает инициализацию массива вроде этого, но я не могу заставить его работать для коллекций ... У меня синтаксис неправильный или он просто не реализован?

Answer 1

Visual Basic 9.0 пока не поддерживается. Однако Visual Basic 10.0will.

Answer 2

Вы можете достичь его с помощью String() ToDictionary в этой одной строки сложной формы:.

Dim kv As Dictionary(Of Integer, String) = _ 
     New String() {"1-first", "2-second", "3-third"}.ToDictionary(_ 
     Function(s) CInt(s.Substring(0, s.IndexOf("-"))), _ 
     Function(it) it.Substring(it.IndexOf("-") + 1)) 

Не очень элегантный способ, но полезный вообще.

Answer 3

Адрес VB collection initializersОт ключевого слова. (Начиная с Visual Studio 2010)

Список:

Dim list As New List(Of String) From {"First", "Second"} 

Словарь:

Dim oMapping As New Dictionary(Of Integer, String) From {{1, "First"}, {2, "Second"}}