[مساعدة]

السلام عليكم

ليس مستحيل، ولكن تحتاج طريقة مختلفة قليلا عن العادة،

احدى الطريق وهي أن تجعل القيمة الثانية مصفوفة مثل هذا الكود

كود :

Public Shared testlist As New Dictionary(Of String, String())

ولإضافة البيانات لها مثل هذا الكود

كود :

testlist.Add("a", New String() {"a1", "a2", "a3", "a4", "a5", "a6"})
testlist.Add("b", New String() {"b1", "b2", "b3", "b4", "b5", "b6"})
testlist.Add("c", New String() {"c1", "c2", "c3", "c4", "c5", "c6"})

ولقراءة البيانات مثل هذا الكود

كود :

MsgBox(testlist("b")(0))
MsgBox(testlist("b")(1))
MsgBox(testlist("b")(2))
MsgBox(testlist("b")(3))

أو

كود :

Dim v() As String = testlist.Item("b")

MsgBox(v(0))
MsgBox(v(1))
MsgBox(v(2))