التعامل مع مربع الرسائل MessgeBox فى الفجوال بيسك دوت نت

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

التعامل مع مربع الرسائل MessgeBox فى الفجوال بيسك دوت نت

مُساهمة من طرف أبوسجود في الثلاثاء يونيو 11, 2013 7:43 pm

بسم الله الرحمن الرحيم
إخوانى الكرام أهلا وسهلا بكم ....مربع الرسائل 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)



_ فى الامثلة السابقة تجد ان الرسالة بها زر أمر واحد (ok) لكن يمكنك انشاء اكثر من زر من خلال القيم التالية :
OK
OKCancel
AbortRetryIgnore
YesNoCancel
YesNo
RetryCancel
وذلك من خلال الكود التالى :
الرمز:


[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



وكما ترى التعليمات البرمجية اعلاه تقوم بإنشاء MESSAGEBOX مع عنوان وعدد 2 زر أمر (yes,no).لاستخدامهما فى إغلاق التطبيق. إذا تم النقر على زر نعم، سوف يتم إغلاق التطبيق....وشكل الرسالة على النحو التالى :


_ من الاضافات التى يمكنك استخدامها فى مربع الرسائل هو استخدام ايقونات للرسالة و ذلك باستخدام أحد القيم التالية :
None
Hand
Question
Exclamation
Asterisk
Stop
Error
Warning
Information

وكل تلك القيم تعبر على رمز معين للرسالة و يمكنك استخدام تلك القيم من خلال الكود التالى :
الرمز:


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



و الرسالة ستكون كما فى الشكل التالى :


_ يمكنك ايضا تنسيق مربع الرسالة و ذلك من خلال التحكم فى اتجاة النص و الايقونة من خلال استخادم أحد القيم التالية :
ServiceNotification
DefaultDesktopOnly
RightAlign
RtlReading

فمثلا اذا اردت ان يكون اتجاة نص الرسالة و الايقونة الى اليمن كما فى الشكل التالى :

استخدم الكود التالى :
الرمز:


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



و فى النهاية اتمنى أن اكون قدمت شىء مفيد لكم


أبوسجود
.....
.....

تاريخ التسجيل : 18/02/2011
المساهمات : 87
النقاط : 162
التقيم : 7
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى