الرسائل Msgbox
الشكل العام للرسالة :
مثال
رسالة عادية مع أيقونة النظام
لاحظ المكتوب بالأزرق وهو نوع الرسالة وهو يعني إتجاه الرسالة من اليمين لليسار + تلميحات وهذا هام في الرسالة المكتوبة باللغة العربية أي إنه يمكنك أن إضافة إشارة + بعد النوع الأول لإختيار نوع آخر مثلاً سؤال (\'نعم ولا\'+ \'خطأ\') هذه طريقة كتابتها:
وهذه طريقة أخرى لكتابة الرسالة بعدة سطور
انتهينا والله ولي التوفيق
MsgBox \'نص الرسالة\', vbDefaultButton1, \'العنوان\'
الشكل الكامل (مع ربط بالتعليمات):
MsgBox \'نص الرسالة\', vbMsgBoxHelpButton, \'العنوان\', \'c:windowshelpwindows.chm\', 0
مسار ملف التعليمات
إليك بالأمثلة عن الرسائل :
الشكل العام
Msgbox\'رسالتك هنا\'
مثال
On Error GoTo r
Dir1 = Drive1
Exit Sub
r:
MsgBox \'الرجاء إدخال قرص\', vbCritical, \'لايوجد قرص هنا\'
MsgBox \'حدث خطأ\', vbCritical, \'خطأ\'
Dir1 = Drive1
Exit Sub
r:
MsgBox \'الرجاء إدخال قرص\', vbCritical, \'لايوجد قرص هنا\'
MsgBox \'حدث خطأ\', vbCritical, \'خطأ\'
On Error GoTo r
Dir1 = Drive1
Exit Sub
r:
MsgBox \'الرجاء إدخال قرص\', vbExclamation, \'لايوجد قرص هنا\'
MsgBox \'رسالتك هنا\', vbExclamation, \'العنوان\'
Dir1 = Drive1
Exit Sub
r:
MsgBox \'الرجاء إدخال قرص\', vbExclamation, \'لايوجد قرص هنا\'
MsgBox \'رسالتك هنا\', vbExclamation, \'العنوان\'
On Error GoTo r
Dir1 = Drive1
Exit Sub
r:
MsgBox \'الرجاء إدخال قرص\', vbInformation, \'لايوجد قرص هنا\'
MsgBox \'رسالتك هنا\', vbInformation, \'العنوان\'
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
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, \'العنوان\'
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, \'العنوان\'
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, \'العنوان\'
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
هام : كيفية وضع عدة أسطر تحت بعضها في الرسالة:
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\' السطر الأخير بدون
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, \'العنوان\'
a = \'السطر الأول\' & vbCrLf & \'السطر الثاني\' & vbCrLf & \'السطر الثالث\'
MsgBox a, vbMsgBoxRight + vbInformation, \'العنوان\'
انتهينا والله ولي التوفيق