كيف يمكن التعامل مع صناديق الرسائل[MsgBox]

هذه الدالة مليحة ومفيده وبما أننا نستخدم ال NET فالنستخدم الفئة MessageBox والتي تشابهها في الإستخدام.

لنفترض بأنك تريد أن تظهر رسالة عندما يضغط المستخدم زر الإغلاق في برنامجك،تطلب منه أن يؤكد أنه بالفعل يريد الخروج من البرنامج ولم يقم بالضغط على زر الإغلاق بالخطأ، فنستطيع أن نكتب هذه الرسالة التالي في حدث Closing للفورم:

Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        
        If MessageBox.Show("Are you sure you want to quit?", "Confirm", MessageBoxButtons.YesNo) = DialogResult.Yes Then
        Else
            e.Cancel = True
End If

End Sub

أو نستخدم هذا الكود والذي يؤدي الى نفس النتيجة:

Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        Dim myMessage As DialogResult = MessageBox.Show("Are you sure you want to quit?", "Confirm", MessageBoxButtons.YesNo)

If myMessage = DialogResult.Yes Then
            Me.Dispose()

Else
            e.Cancel = True
End If

هذا مثال جيد لجميع الرسائل

Fig12.26.zip

السلام عليكم ورحمة الله وبركاتة

كثير الشكر للاخوة الكرام