التعامل مع صناديق الحوار msgbox {الجمعة 28 أكتوبر - 21:38}

الرسائل Msgbox







الشكل العام للرسالة :

MsgBox 'نص الرسالة', vbDefaultButton1, 'العنوان'

الشكل الكامل (مع ربط بالتعليمات):

MsgBox 'نص الرسالة', vbMsgBoxHelpButton, 'العنوان', 'c:windowshelpwindows.chm', 0

مسار ملف التعليمات







إليك بالأمثلة عن الرسائل :



الشكل العام

Msgbox'رسالتك هنا'

مثال

On Error GoTo r Dir1 = Drive1 Exit Sub r: MsgBox 'الرجاء إدخال قرص', vbCritical, 'لايوجد قرص هنا'

MsgBox 'حدث خطأ', vbCritical, 'خطأ'

On Error GoTo r Dir1 = Drive1 Exit Sub r: MsgBox 'الرجاء إدخال قرص', vbExclamation, 'لايوجد قرص هنا'

MsgBox 'رسالتك هنا', vbExclamation, 'العنوان'

On Error GoTo r Dir1 = Drive1 Exit Sub r: MsgBox 'الرجاء إدخال قرص', vbInformation, 'لايوجد قرص هنا'

MsgBox 'رسالتك هنا', vbInformation, 'العنوان'

On Error GoTo r Dir1 = Drive1 Exit Sub r: MsgBox 'الرجاء إدخال قرص أنقر فوق تعليمات للمزيد', vbMsgBoxHelpButton, 'لايوجد قرص هنا', 'c:windowshelpwindows.chm', 0

MsgBox 'رسالتك هنا', vbMsgBoxHelpButton, 'العنوان', 'C:WINDOWSHELPcalc.CHM', 0

On Error GoTo r Dir1 = Drive1 Exit Sub r: If MsgBox('الرجاء إدخال قرص أنقر فوق موافق', vbOKCancel, 'لايوجد قرص هنا') = vbOK Then MsgBox 'أعد المحاولة' Else End End If

MsgBox 'رسالتك هنا ', vbOKCancel, 'العنوان'

On Error GoTo r Dir1 = Drive1 Exit Sub r: If MsgBox('الرجاء إدخال قرص أنقر فوق موافق', vbOKCancel, 'لايوجد قرص هنا') = vbOK Then MsgBox 'أعد المحاولة' Else End End If

MsgBox 'رسالتك هنا ', vbYesNo + vbQuestion, 'العنوان'

On Error GoTo r Dir1 = Drive1 Exit Sub r: If MsgBox('لايوجد قرص هل تريد الخروج؟', vbYesNo, 'لايوجد قرص هنا') = vbYes Then End End If

MsgBox 'رسالتك هنا ', vbSystemModal, 'العنوان'

رسالة عادية مع أيقونة النظام

MsgBox 'رسالتك هنا ', vbAbortRetryIgnore, 'العنوان'

On Error GoTo r Dir1 = Drive1 Exit Sub r: Dim a a = MsgBox(' أنقر فوق إعادة لمحاولة أخرى - تجاهل : للبقاء دون محاولة-إحباط : إغلاق البرنامج', vbAbortRetryIgnore, 'لايوجد قرص هنا') Select Case a Case vbRetry MsgBox 'أعد المحاولة' Case vbAbort End Case vbIgnore End Select

هام : كيفية وضع عدة
أسطر تحت بعضها في الرسالة:

Dim a As String a = 'السطر الأول' & vbCrLf a = a & 'السطر الثاني' & vbCrLf a = a & 'السطر الثالث' MsgBox a, vbMsgBoxRight + vbInformation, 'العنوان' 'ويمكنك أن تضيف عدد السطور التي تريد بنفس الطريقة ' '&vbCrlf' السطر الأخير بدون

لاحظ المكتوب بالأزرق وهو نوع الرسالة وهو يعني إتجاه الرسالة من اليمين لليسار +
تلميحات وهذا هام في الرسالة المكتوبة باللغة العربية



أي إنه يمكنك أن إضافة إشارة + بعد النوع الأول لإختيار نوع آخر مثلاً سؤال ('نعم
ولا'+ 'خطأ') هذه طريقة كتابتها:

MsgBox 'الرسالة', vbCritical + vbYesNo, 'عنوان'

وهذه طريقة أخرى لكتابة الرسالة بعدة سطور

Dim a As String a = 'السطر الأول' & vbCrLf & 'السطر الثاني' & vbCrLf & 'السطر الثالث' MsgBox a, vbMsgBoxRight + vbInformation, 'العنوان'

انتهينا



والله ولي التوفيق