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

_ ابسط من اشكال الرسائل التى يمكنك انشائها هو ظهور مربع بها نص و زر امر كما فى الشكل التالى :

الكود:



Dim message As String = "Simple MessageBox"

MessageBox.Show(message)




_ لكن هناك بعض الاضافات التى يمنكنك استخدامها منها مثلا الخاصية title و التى تجعلك قادر على انشاء عنوان للرسالة كما فى الشكل التالى :

الكود:



Dim message As String = "Simple MessageBox"

Dim title As String = "Title"

MessageBox.Show(message, title)



الكود:



[right]Dim message As String = "Do you want to close this window?"

        Dim title As String = "Close Window"

        Dim buttons As MessageBoxButtons = MessageBoxButtons.YesNo

        Dim result As DialogResult = MessageBox.Show(message, title, buttons)

        If (result = DialogResult.Yes) Then

            Me.Close()

        Else

        End If



الكود:



Dim message As String = "Do you want to abort this operation?"

Dim title As String = "Close Window"

Dim buttons As MessageBoxButtons = MessageBoxButtons.AbortRetryIgnore

Dim result As DialogResult = MessageBox.Show(message, title, buttons, MessageBoxIcon.Warning)

If (result = DialogResult.Abort) Then

  Me.Close()

Else
End If



الكود:



Dim result As DialogResult = MessageBox.Show(message, title, buttons, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button2,
MessageBoxOptions.RightAlign Or  MessageBoxOptions.RtlReading)