التعامل مع صناديق الحوار 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, 'العنوان'