24-09-24, 01:45 PM
كود :
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
قال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».