[احمد خطاب]

السلام عليكم
عندى 2 ليست بوكس فى فورم 1 ازاى اجعلهم فى فورم2 بنفس ذات البيانات التى بداخلهم

[3booody]

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

كود :

Form2.ListBox1.Items.AddRange(Me.ListBox1.Items) 'Me تعني الفورم رقم واحد
       Form2.ListBox2.Items.AddRange(Me.ListBox2.Items)

[احمد خطاب]

السلام عليكم
ممكن توضيح للكود واين يتم وضعه

[3booody]

ممكن في زر بوتون

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Form2.ListBox1.Items.AddRange(Me.ListBox1.Items)
       Form2.ListBox2.Items.AddRange(Me.ListBox2.Items)
       Form2.Show()
   End Sub

لكن هل تقصد شي ثاني لا ادري؟اذا تقصد شيئ ثاني ياريت تشرحه اخي

[احمد خطاب]

اولا اشكرك جداااا
ثانيا اقصد الزر فى ايا من الفورم الاصلى ام المنسوخ به

[3booody]

أخي هذا يعتمد على آلية عمل برنامجك , يعني متى تريد ان تكون القيم مطابقة؟ هل عند فتح الفورم الثاني ام عند حصول شرط معين ام عند ادخال البيانات

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

كود :

Public Class Form1

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Form2.ListBox1.Items.AddRange(Me.ListBox1.Items)
       Form2.ListBox2.Items.AddRange(Me.ListBox2.Items)
       Form2.Show()
   End Sub
End Class

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

كود :

Public Class Form2

   Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Me.ListBox1.Items.AddRange(Form1.ListBox1.Items)
       Me.ListBox2.Items.AddRange(Form1.ListBox2.Items)
   End Sub
End Class

أي عند فتح الفورم الثاني يتم ملئ البيانات
وكما قلت لك يعتمد على آلية عمل برنامجك

[احمد خطاب]

الكود لايعمل

[asemshahen5]

PHP كود :

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim frm As New Form2
        Dim arr As New ArrayList
        arr.Clear()
        arr.AddRange(ListBox1.Items)
        frm.ListBox1.Items.AddRange(arr.ToArray)
        frm.Show()
    End Sub 


[احمد خطاب]

الف مليون شكر صديقى العزيز