اود معرفة طريقة الحصول على قمية عنصر في القائمة

مرحباً أخي الكريم,

هل جربت استخدام الخاصية ( SelectedItems ) ؟

بالتوفيق

شكراً لك اخي الكريم Bashar Rabat

حاولت ان استخدم كل الخصائص المتوفرة ومنها SelectedItems ولكنني لم استطع الحصول على ما اريد

قد اكون لم استخدمها بالطريقة الصحيحة او انني لا اعرف طريقة الحصول على النتائج

اتمنى ان تضع لي مثالاً على ذلك مع خالص شكري وتقديري

أتمنى منك أخي حسن ان ترسل المشروع لكي توضح الفكرة

أتمنى لك التوفيق والنجاح

السلام عليكــم ورحمـة الله وبركاتــه ،،

شكرا لكل من شارك في هذا الموضوع بطريقه او رأي

اخي am_proactive

لا يمكنني ارسال المشروع لان حجمه كبير جداً واشكرك على الاهتمام بالموضوع وهذا ليس بغريب

الحقيقه انني طرحت نفس الموضوع في منتدى آخر وبفضل الله اورد لنا احد الاعضاء الكرام في ذلك المنتدى مثالاً وجدت فيه الحل وما اريد وذلك بعد تعديل بسيط حسب متطلبات البرنامج لدي واحببت ان يعم الخير ويستفيد من هذا الكود من يرغب ذلك واعتذر لادارة المنتدى ان كان مثل هذا لا يسمح به في المنتدى ... وهذا هو الكود

Dim lbx2 As New Collection
		If ListBox2.Items.Count <> 0 Then
			Dim single_v
			Dim row As DataRowView
			Dim z As Integer
			For Each row In ListBox2.SelectedItems
				z = z + 1
				single_v = row(1).ToString
				Dim dahada As Boolean
				Dim A As Integer
				dahada = False
				For A = 1 To lbx2.Count
					If single_v <> lbx2.Item(A) Then
						'do nothing
					Else
						dahada = True
					End If
				Next
				If dahada Then
					'no need to add to collection
				Else
					lbx2.Add(single_v, single_v)
				End If
				z = z + 1
			Next
			Dim intlbx As Integer
			For intlbx = 1 To lbx2.Count
				MsgBox(lbx2.Item(intlbx))
			Next
		End If

اخي صدقني اني جوعان مشغول بدي اروح اوكل خذ هذا مثال بسيط للذي تريدة عملته بسرعة شوفه إن شاء الله انو سهل تفهمة سلام

WindowsApplication19.rar