08-01-17, 01:35 PM
السلام عليكم
هذا كود Button1 الذ يختبر CheckBox1 وعليه يحدد هل يفتح Form2 أم لا وفيه كود يقرأ TextBox1 من Form2 إذا تم الضغط على Button1 في الForm2
وهذا كود Button1 في Form2 لإرجاع قيمة OK عند غلق Form2
هذا كود Button1 الذ يختبر CheckBox1 وعليه يحدد هل يفتح Form2 أم لا وفيه كود يقرأ TextBox1 من Form2 إذا تم الضغط على Button1 في الForm2
كود :
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
' CheckBox1 الأوامر قبل فحص
' CheckBox1 اختبار تحديد
If CheckBox1.Checked Then
' Form2 في OK التأكد من أنه تم ضغط على زر
If Form2.ShowDialog() = Windows.Forms.DialogResult.OK Then
' Form2 قراءة مربع النص الذي في
MsgBox(Form2.TextBox1.Text)
End If
End If
' CheckBox1 الأوامر بعد فحص
End Subوهذا كود Button1 في Form2 لإرجاع قيمة OK عند غلق Form2
كود :
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
' وغلق الفورم OK إعادة قيمة
Me.DialogResult = Windows.Forms.DialogResult.OK
End Sub

