[سؤال] أرجوكم مساعة في أداة الليست بوكس

[سؤال] أرجوكم مساعة في أداة الليست بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=12998)

أرجوكم مساعة في أداة الليست بوكس - فراس صلاح - 20-08-15

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

RE: أرجوكم مساعة في أداة الليست بوكس - hassan - 20-08-15

تفضل

PHP كود :

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

RE: أرجوكم مساعة في أداة الليست بوكس - فراس صلاح - 20-08-15

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

RE: أرجوكم مساعة في أداة الليست بوكس - سعود - 20-08-15

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

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

RE: أرجوكم مساعة في أداة الليست بوكس - فراس صلاح - 20-08-15

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

كود :

ListBox1.Items.Remove(ListBox1.SelectedItem)

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

كود :

FORM2.ListBox1.SelectedItem = LstOrder.SelectedIte

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

RE: أرجوكم مساعة في أداة الليست بوكس - سعود - 20-08-15

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

RE: أرجوكم مساعة في أداة الليست بوكس - الطالب - 20-08-15

سلام

كود :

Form2.ListBox1.SelectedIndex = ListBox1.SelectedIndex

موفقين

RE: أرجوكم مساعة في أداة الليست بوكس - سعود - 21-08-15

أخي الكريم الاستاذ"الطالب" هو يقصد اكثر من 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

RE: أرجوكم مساعة في أداة الليست بوكس - الطالب - 21-08-15

سلام

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

كود :

For i = 0 To ListBox1.Items.Count - 1

    Form2.ListBox1.SetSelected(i, ListBox1.GetSelected(i))

Next

موفقين

RE: أرجوكم مساعة في أداة الليست بوكس - سعود - 21-08-15

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