تقييم الموضوع :
  • 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
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل من الممكن العمل على قاعدة بيانات اكسل على الفيجوال بيسك خالد كامل1 4 83 24-03-24, 02:00 AM
آخر رد: خالد كامل1
  سؤال حول التعامل مع قاعدة البيانات maherhaddaf 2 432 21-07-23, 10:05 AM
آخر رد: maherhaddaf
  التعامل مع الملفات النصية - حذف سطر معين من ملف mmaalmesry 2 583 20-01-23, 09:29 AM
آخر رد: mmaalmesry
Exclamation [VB.NET] التعامل مع عناصر صفحة html من خلال WebView2 paypalet 2 846 26-09-22, 05:00 PM
آخر رد: Basil Abdallah
  [سؤال] كيفيه التعامل مع الاسكي كود حسن الجلب 5 903 16-08-22, 09:01 AM
آخر رد: سعود
  [سؤال] كيفيه التعامل مع ملف XML من حيث الانشاء والكتابة والتعديل والحذف والقراءة حسن الجلب 2 728 02-08-22, 03:00 AM
آخر رد: dr.programming
  التعامل مع قاعدة بيانات sql عن بعد عبدالكريم برشدان 3 810 25-07-22, 03:49 AM
آخر رد: asemshahen5
  التعامل مع رقم الفاتورة علي الشبكة عبدالكريم برشدان 2 652 24-07-22, 02:17 AM
آخر رد: Taha Okla
  التعامل مع الموبايل عن طريق الكمبيوتر ابو انس 2 1,184 14-04-22, 03:16 AM
آخر رد: ابو انس
  [سؤال] ممكن شرح او رابط افضل طرق عرض البيانات في الداتاجريد و التعامل معها غدير الصليحي 2 1,548 19-01-22, 01:46 AM
آخر رد: رضوان الجماعي

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


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