16-11-19, 11:54 AM
16-11-19, 01:32 PM
السلام عليكم ورحمة الله وبركاته
كود :
Form2.ListBox1.Items.AddRange(Me.ListBox1.Items) 'Me تعني الفورم رقم واحد
Form2.ListBox2.Items.AddRange(Me.ListBox2.Items)16-11-19, 02:02 PM
السلام عليكم
ممكن توضيح للكود واين يتم وضعه
ممكن توضيح للكود واين يتم وضعه
16-11-19, 02:09 PM
ممكن في زر بوتون
لكن هل تقصد شي ثاني لا ادري؟اذا تقصد شيئ ثاني ياريت تشرحه اخي
كود :
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لكن هل تقصد شي ثاني لا ادري؟اذا تقصد شيئ ثاني ياريت تشرحه اخي
16-11-19, 02:21 PM
اولا اشكرك جداااا
ثانيا اقصد الزر فى ايا من الفورم الاصلى ام المنسوخ به
ثانيا اقصد الزر فى ايا من الفورم الاصلى ام المنسوخ به
16-11-19, 02:27 PM
أخي هذا يعتمد على آلية عمل برنامجك , يعني متى تريد ان تكون القيم مطابقة؟ هل عند فتح الفورم الثاني ام عند حصول شرط معين ام عند ادخال البيانات
على سبيل المثال الكود السابق كنت اقصد به الفورم الاساسي
ممكن ايضآ بهذا الشكل عن طريق فورم 2
أي عند فتح الفورم الثاني يتم ملئ البيانات
وكما قلت لك يعتمد على آلية عمل برنامجك
على سبيل المثال الكود السابق كنت اقصد به الفورم الاساسي
كود :
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أي عند فتح الفورم الثاني يتم ملئ البيانات
وكما قلت لك يعتمد على آلية عمل برنامجك
16-11-19, 04:29 PM
الكود لايعمل
16-11-19, 06:49 PM
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
16-11-19, 07:21 PM
الف مليون شكر صديقى العزيز