تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
هل من الممكن التعامل مع Dictionary مثل هذا
#1
اريد اضافة قائمة فى 
كود :
Public Shared testlist As New Dictionary(Of String, String)

لاكن المشكلة ان هذا الكود لايقبل الى قيمتيآ

كود :
 BannedList.Add("vb4arb1", "vb4arb2")
 هل يمكن جعلة يقبل 6 قيم ام هذا مستحيل ؟
الرد
تم الشكر بواسطة:
#2
السلام عليكم

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

احدى الطريق وهي أن تجعل القيمة الثانية مصفوفة مثل هذا الكود
كود :
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))
الرد
تم الشكر بواسطة: Mohamed20
#3
(13-01-17, 01:25 AM)مساعدة كتب : السلام عليكم

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

احدى الطريق وهي أن تجعل القيمة الثانية مصفوفة مثل هذا الكود
كود :
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))

جزاك الله خير اخى
الرد
تم الشكر بواسطة:
#4
وهذه طريقة أخرى باستخدام كلاس للحقول مثل هذا الكود
كود :
Private testlist As New List(Of test)
Class test
    Property ID As String
    Property Username As String
    Property Key As String
    Property Key2 As String
    Property JoinDate As String
    Property LeftDate As String
    Property Zone As String
End Class

ولإضافة البيانات لها مثل هذا الكود
كود :
testlist.Add(New test With {
                .ID = "1", .Username = "vb4arb0",
                .Key = "556", .Key2 = "101",
                .JoinDate = "2017/10/02 14:37:24",
                .LeftDate = "2017/10/02 15:37:24",
                .Zone = "0"}
            )

ولقراءة البيانات مثل هذا الكود
كود :
MsgBox(testlist(0).ID)
MsgBox(testlist(0).Username)
أو
كود :
Dim tst As test = testlist(0)

MsgBox(tst.ID)
MsgBox(tst.Username)

وفي حالة البحث واظهار النتيجة مثل هذا الكود
كود :
Dim tst = testlist.Where(Function(t) t.ID = 1).FirstOrDefault
If tst IsNot Nothing Then
    MsgBox(tst.JoinDate)
    MsgBox(tst.LeftDate)
Else
    MsgBox("لا يوجد")
End If
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  التعامل مع two data sourse في Crystal Report Mohammed Nafa 2 99 24-09-20, 09:19 PM
آخر رد: Mohammed Nafa
  [VB.NET] مشروع مرفق يبين كيفية التعامل مع Datagridview lkaam 4 2,422 23-09-20, 12:28 PM
آخر رد: sulim
Wink [سؤال] هل من الممكن تغير حجم الخط في صندوق الرسائل منه 3 191 22-08-20, 03:27 PM
آخر رد: عبد العزيز البسكري
  سؤال : هل من الممكن تفريغ الفورم حول صورة لتظهر الصورة فقط بدون خلفية او ظهور الفورم xprogrammer 2 285 28-07-20, 11:17 AM
آخر رد: Anas Mahmoud
  [سؤال] ما هيه فكره عمل مضاد الفيروسات هل من الممكن عمل مثله منه 1 245 23-07-20, 07:07 AM
آخر رد: محمد ايمن
  كيفيه التعامل مع الصنف atefkhalf2004 3 285 11-07-20, 12:08 AM
آخر رد: atefkhalf2004
  سؤال في طريقة التعامل مع قاعدة البيانات عند تحزيم المشروع adnan gharbi 4 583 15-05-20, 01:03 PM
آخر رد: adnan gharbi
  [VB.NET] كيفية التعامل مع اداه. Serial port في فيجوال بيسك منه 1 274 08-05-20, 02:21 PM
آخر رد: asemshahen5
  [VB.NET] التعامل مع Datetimepicker tahaayyoub 2 277 13-04-20, 06:38 PM
آخر رد: tahaayyoub
Thumbs Up [VB.NET] التعامل مع خلفية الصورة DOX.1 7 474 03-04-20, 11:17 PM
آخر رد: ابراهيم ايبو

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم