[sanyor77]

هذا الكود يعمل بنفس الطريقة التي كان يعمل الكود الأول، بخلاف أنه يضيف تخفيض النافذة المرادة عند الضغط على زر "موافق". كما يتحقق الكود من صحة الشرط الذي تم تحديده عند الضغط على زر "حظر". إذا كان الشرط صحيحا (أي إذا كان النص المدخل في النص المحدد "Txt_File_Num" فارغا)، سيتم عرض رسالة تطلب من المستخدم وجود رقم ملف المريض لفتح قائمة المنع والسماح. عند عرض الرسالة، سيتم تركيز المؤشر على النص المحدد لتتيح للمستخدم إدخال النص. إذا لم يتم إدخال النص، فسيتم تخفيض النافذة المرادة.

الكود النهائي

كود :

Private Sub Btn_Edit_Click(sender As Object, e As EventArgs) Handles Btn_Edit.Click
If Txt_Vis_Name.Text = "" Then
MsgBox("الرجاء إدخال اسم الزائر")
Txt_Vis_Name.Focus()
Exit Sub
ElseIf Txt_File_Num.Text = "" Then
MsgBox("لا بد من وجود رقم ملف المريض لفتح قائمة المنع والسماح")
Txt_File_Num.Focus()
Exit Sub
Else
Me.Hide()
End If
End Sub

يعمل الكود على التحقق من صحة كلا من الشروط الذين تم تحديدهما في الكود الأول والثاني، وعرض رسالة تطلب من المستخدم إدخال النص المطلوب إذا كان الشرط خاطئا. وإذا كان كلا الشروط صحيحا، فسيتم تخفيض النافذة الحالية.