[F.H.M]

(24-09-24, 01:45 PM)Taha Okla كتب :

كود :

Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   For Each i1 In Form1.ComboBox1.Items        '   نسخ بيانات القائمة في النافذة1 للقائمة في هذه النافذة
       ComboBox1.Items.Add(i1)
   Next
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   ComboBox1.Items.Add(TextBox1.Text)
   Form1.ComboBox1.Items.Add(TextBox1.Text)
End Sub

كذلك تفعل بالحذف إذا أردت الحذف - 
ما تفعله على الأداة في نافذة 2 - تنفذه على الأداة في النافذة1

هذا بالضبط ما أردته الله يعطيك العافية وجزاك الله خير

لكن توجد مشكلة وهي عندما أخرج من البرنامج لا يحفظ الإدخالات