منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

تفضل

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

موفقين

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