كيف يمكن البحث عن كل العناصر الموجوده فى الليست بوكس

عزيزي:

لقد قمت بتكرار السؤال في قسمين متتاليين يرجى عدم التكرار

قد قمت بإجابتك سابقا

استخدم :

bindingsource.DataSource=listbox1.Items;

وطلبت مني كود كامل فاكتب كودك الكامل هل تقصد مثالا كاملا؟

حمل المثال التالي:

bingAllList.rar

شكرا لك اخى الكريم ولكن هذا المثال بلغه سى شارب وليس دوت نت

فماذا افعل حتى احصل على الكود بلغه الدوت نت ولك جزيل الشكر

:huh:  ومين قلك انو السي شارب مو دوت نت !!

انت تقصد فيجوال بيزك ؟ لا مشكلة أبدا إذا نظرت في الكود وتمعنت فيه قليلا ستحوله بكل بساطة .

Public Partial Class Form1
	Inherits Form
	Public Sub New()
		InitializeComponent()
		loadFoo()
		listBox1.DataSource = foolist
		listBox1.DisplayMember = "Name"
		listBox1.ValueMember = "Id"
	End Sub
	Private foolist As New List(Of foo)()
	Private Sub loadFoo()
		For i As Integer = 0 To 9
			Dim f As New foo()
			f.Name = "Item" & i.ToString()
			foolist.Add(f)
		Next
	End Sub

	Private Sub button1_Click(sender As Object, e As EventArgs)
		dataGridView1.DataSource = Nothing
		bindingSource1.DataSource = listBox1.Items
		dataGridView1.DataSource = bindingSource1
	End Sub

	Private Sub button2_Click(sender As Object, e As EventArgs)
		dataGridView1.DataSource = Nothing
		bindingSource1.DataSource = listBox1.Items
		dataGridView1.DataSource = bindingSource1
		dataGridView1.Columns(0).Visible = False
	End Sub

End Class

وأيضا الكلاس foo المثال عن الأوبجكت :

Public Class foo
	Public Sub New()
		Id = Guid.NewGuid()
	End Sub
	<DisplayName("الرقم")> _
	Public Property Id() As Guid
		Get
			Return m_Id
		End Get
		Set
			m_Id = Value
		End Set
	End Property
	Private m_Id As Guid
	<DisplayName("الاسم")> _
	Public Property Name() As String
		Get
			Return m_Name
		End Get
		Set
			m_Name = Value
		End Set
	End Property
	Private m_Name As String
End Class