هل من الممكن التعامل مع Dictionary مثل هذا - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182) +--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183) +--- الموضوع : هل من الممكن التعامل مع Dictionary مثل هذا (/showthread.php?tid=18789) |
هل من الممكن التعامل مع Dictionary مثل هذا - Mohamed20 - 13-01-17 اريد اضافة قائمة فى كود : Public Shared testlist As New Dictionary(Of String, String) لاكن المشكلة ان هذا الكود لايقبل الى قيمتيآ كود : BannedList.Add("vb4arb1", "vb4arb2") RE: هل من الممكن التعامل مع Dictionary مثل هذا - مساعدة - 13-01-17 السلام عليكم ليس مستحيل، ولكن تحتاج طريقة مختلفة قليلا عن العادة، احدى الطريق وهي أن تجعل القيمة الثانية مصفوفة مثل هذا الكود كود : Public Shared testlist As New Dictionary(Of String, String()) ولإضافة البيانات لها مثل هذا الكود كود : testlist.Add("a", New String() {"a1", "a2", "a3", "a4", "a5", "a6"}) ولقراءة البيانات مثل هذا الكود كود : MsgBox(testlist("b")(0)) كود : Dim v() As String = testlist.Item("b") RE: هل من الممكن التعامل مع Dictionary مثل هذا - Mohamed20 - 13-01-17 (13-01-17, 01:25 AM)مساعدة كتب : السلام عليكم جزاك الله خير اخى RE: هل من الممكن التعامل مع Dictionary مثل هذا - مساعدة - 13-01-17 وهذه طريقة أخرى باستخدام كلاس للحقول مثل هذا الكود كود : Private testlist As New List(Of test) ولإضافة البيانات لها مثل هذا الكود كود : testlist.Add(New test With { ولقراءة البيانات مثل هذا الكود كود : MsgBox(testlist(0).ID) كود : Dim tst As test = testlist(0) وفي حالة البحث واظهار النتيجة مثل هذا الكود كود : Dim tst = testlist.Where(Function(t) t.ID = 1).FirstOrDefault |