المشاركات : 193
المواضيع 106
الإنتساب : Jul 2016
السمعة :
1
الشكر: 161
تم شكره 32 مرات في 27 مشاركات
اريد اضافة قائمة فى
كود :
Public Shared testlist As New Dictionary(Of String, String)
لاكن المشكلة ان هذا الكود لايقبل الى قيمتيآ
كود :
BannedList.Add("vb4arb1", "vb4arb2")
هل يمكن جعلة يقبل 6 قيم ام هذا مستحيل ؟
المشاركات : 595
المواضيع 1
الإنتساب : Dec 2016
السمعة :
45
الشكر: 0
تم شكره 544 مرات في 355 مشاركات
السلام عليكم
ليس مستحيل، ولكن تحتاج طريقة مختلفة قليلا عن العادة،
احدى الطريق وهي أن تجعل القيمة الثانية مصفوفة مثل هذا الكود
كود :
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))
المشاركات : 193
المواضيع 106
الإنتساب : Jul 2016
السمعة :
1
الشكر: 161
تم شكره 32 مرات في 27 مشاركات
13-01-17, 01:48 AM
(آخر تعديل لهذه المشاركة : 13-01-17, 01:54 AM {2} بواسطة Mohamed20.)
(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))
جزاك الله خير اخى
المشاركات : 595
المواضيع 1
الإنتساب : Dec 2016
السمعة :
45
الشكر: 0
تم شكره 544 مرات في 355 مشاركات
وهذه طريقة أخرى باستخدام كلاس للحقول مثل هذا الكود
كود :
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
|