+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : التحديد المتعدد في الليست بوكس (/showthread.php?tid=32321)
التحديد المتعدد في الليست بوكس - ghias - 02-12-19
مرحبا اخواني
لدي ليست بوكس يظهر القيم من جدول في sql server database بالكود التالي
Dim DT As New DataTable
DT.Clear()
DT = CLS_CATEGORY_.SHOW_ITEME_BYGROUP(TXT_GUID.Text)
If DT.Rows.Count > 0 Then
ListBox1.DataSource = DT
ListBox1.DisplayMember = "NAME"
ListBox1.ValueMember = "GUID"
End If
إني احصل على قيمة العنصر المختار من الليست بوك بهذا الكود
TXT_ITEME_GUID.Text = ListBox1.SelectedValue.ToString()
كيف استطيع أن احصل على قيم العناصر المحددة في الليست بوكس في حال
تحديد أكثر من عنصر في الليست بوكس في نفس الوقت.
أفيدونا أفادكم الله.
RE: التحديد المتعدد في الليست بوكس - smalw - 02-12-19
كود :
For i = 0 To ListBox1.SelectedIndices.Count - 1
Dim GUID = ListBox1.SelectedItems(i)("GUID").tostring
Dim NAME = ListBox1.SelectedItems(i)("NAME").tostring
MsgBox(GUID & ": " & NAME)
NextRE: التحديد المتعدد في الليست بوكس - ghias - 02-12-19
[quote pid='152829' dateline='1575269049']
كود :
For i = 0 To ListBox1.SelectedIndices.Count - 1
Dim GUID = ListBox1.SelectedItems(i)("GUID")
Dim NAME = ListBox1.SelectedItems(i)("NAME")
MsgBox(GUID & ": " & NAME)
Next[/quote]
مشكور أخي العزيز لكن بواسطة هذا الكود يمكن اظهار Name فقط بينما الـ GUID لايمكن اظهاره فهو يعطي رسالة خطأ بعدم القدرة على تحويل الـGUID إلى تنسيق string
ولك مني كل الشكر
RE: التحديد المتعدد في الليست بوكس - ghias - 02-12-19
(02-12-19, 11:10 AM)smalw كتب : tostring
تم العتعديل
كلام دقيق مشكور أخي العزيز