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

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

سؤال فى الليست بوكس - احمد خطاب - 16-11-19

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

RE: سؤال فى الليست بوكس - 3booody - 16-11-19

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



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


RE: سؤال فى الليست بوكس - احمد خطاب - 16-11-19

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

RE: سؤال فى الليست بوكس - 3booody - 16-11-19

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

كود :
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

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

RE: سؤال فى الليست بوكس - احمد خطاب - 16-11-19

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

RE: سؤال فى الليست بوكس - 3booody - 16-11-19

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

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

كود :
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


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

RE: سؤال فى الليست بوكس - احمد خطاب - 16-11-19

الكود لايعمل

RE: سؤال فى الليست بوكس - asemshahen5 - 16-11-19

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 


RE: سؤال فى الليست بوكس - احمد خطاب - 16-11-19

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