[فراس صلاح]

السلام عليكم ورحمة الله وبركاته أما بعد أخواني أريد مساعدتكم بأداة الليست بوكس والسؤال هو كيف يمكنني ان أجعل ألitems بالليست بوكس 1 نفس اللي بالليست بوكس 2 السؤال سهل أعتقد أتمنا أن أجد إجابة

[hassan]

تفضل

PHP كود :

 For Each list2 As String In ListBox2.Items
            ListBox1.Items.Add(list2)
        Next 


[فراس صلاح]

شكراً لك أخي لكن أن قمت بالحذف من الليست بوكس 1 هل ينحذف من الليست بوكس 2 أرجوك إجابة

[سعود]

(20-08-15, 08:21 PM)فراس صلاح كتب : شكراً لك أخي لكن أن قمت بالحذف من الليست بوكس 1 هل ينحذف من الليست بوكس 2 أرجوك إجابة

لو كانو مرتبطين بمصدر واحد فنعم يتم الحذف من الكل ... اما بالطريقة  المكتوبة بمشاركة الاخ فلا .. حتى تعيد الاجراء.

[فراس صلاح]

شكراً لكم جزيلاً لكن وجدت طريقة لإضافة وحذف الITEMS المحددة لكن يجب أن يكون الليست بوكس في نفس الفورم وهذا هو الكود 

كود :

ListBox1.Items.Remove(ListBox1.SelectedItem)

لكن كيف أجعله يحدد ما حدده المستخدم في ليست بوكس في فورم آخر مثال كود 

كود :

FORM2.ListBox1.SelectedItem = LstOrder.SelectedIte

مع العلم أن الكود لم ينجح هل هناك طريقة لجعله ينجح ويعمل وشكراً لكم سلفاً

[سعود]

ممكن تستعين بدالة من نوع Listofstring تخزن ما تم تحديده وتستقبل النتيجة بفورم اخر.
ارجو ان اكون فهمت المطلوب.

[الطالب]

سلام

كود :

Form2.ListBox1.SelectedIndex = ListBox1.SelectedIndex

موفقين

[سعود]

أخي الكريم الاستاذ"الطالب" هو يقصد اكثر من Item هل نستخدم selecteditems

---

هذي تجربتي

PHP كود :

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Form2.Left = Me.Left - Form2.Width
        Form2.Top = Me.Top
        Form2.Show()
    End Sub
    Private Sub Form1_Move(sender As Object, e As EventArgs) Handles Me.Move
        Form2.Left = Me.Left - Form2.Width
        Form2.Top = Me.Top
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Form2.ListBox1.Items.Clear()
        Form2.ListBox1.Items.AddRange(Me.ListBox1.Items)
    End Sub
    Public lst As New List(Of String)
    Private Function sel()
        For t = 0 To Form2.ListBox1.Items.Count - 1
            If lst.Contains(Form2.ListBox1.Items(t)) Then
                Form2.ListBox1.SetSelected(t, True)
            End If
        Next
    End Function

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        For Each itm In ListBox1.SelectedItems
            lst.Add(itm)
        Next
        sel()
    End Sub
End Class 


---

وهذي لقطة
http://www.gulfup.com/?bWu7qy

[الطالب]

سلام

شكرا استاذ سعود على التنبيه

كود :

For i = 0 To ListBox1.Items.Count - 1
    Form2.ListBox1.SetSelected(i, ListBox1.GetSelected(i))
Next

موفقين

[سعود]

ماشاءالله تبارك الله .. كل فترة اتعلم منك اشياء جديدة  والاروع فيها تنفيذ مهام عدة باكواد قليلة.
انظر للاكواد والدوال عندي