السلام عليكم
الان لكم شرح صندوق الحوارMSGBOX
بسم الله بندأ
نكتب الكود الاول
لاضهار رسالة موافق
Private Sub Form_Load()
MsgBox "اهلا بك في برنامجنا"
End Sub
لكم الكود الثاني
لاضهار رسالة نعم,لا عند الخطأ او عند الخرج من البرنامج
هذا الكود عند الخروج
Private Sub Command1_Click()
ans = MsgBox("هل تريد الخروج من البرنامج", vbYesNo + vbCritical, "خروج")
If ans = vbYes Then
End
Else
MsgBox "اهلا بعودتك"
End If
الكود الثالث
لاضهار رسالة موافق,الغاء الامر عند الخطأ
Private Sub Command1_Click()
ans = MsgBox("هل تريد الخروج من البرنامج", vbOKCancel+ vbCritical, "خروج")
If ans = vbYes Then
End
Else
MsgBox "اهلا بعودتك"
End If
والان لكم الكود لارابع
لاضهار رسالة موافق,الغاء الامر عندما تريد ان تسئل المستخدم
Private Sub Command1_Click()
ans = MsgBox("مثال", vbOKCancel + vbQuestion, "مثال")
If ans = vbYes Then
End
Else
MsgBox "الغاء الامر"
End If
End Sub
الكود الخامس
لاضهار رسالة موافق عند السئال
Private Sub Command1_Click()
ans = MsgBox("مع السلامه", vbOKOnly + vbQuestion, "خروج")
End
End Sub
الكود السادس
لاضهار رسالة نعم,لا,الغاء الامر
Private Sub Command1_Click()
ans = MsgBox("هل تريد...", vbYesNoCancel, "سئال")
If ans = vbYes Then
MsgBox "نعم"
Else
If ans = vbNo Then
MsgBox "لا"
Else
If ans = vbCancel Then
MsgBox "الغاء الامر"
End If
End If
End If
End Sub
الكود السابع
لاضهار رسالة اعادة المحاولة,الغاء الامر
Private Sub Command1_Click()
ans = MsgBox("انقر اين تريد", vbRetryCancel, "مثال")
If ans = vbRetry Then
MsgBox "
اعادة المحاولة"
Else
If ans = vbCancel Then
MsgBox "
الغاء الامر"
End If
End If
End Sub
انشاء الله الشرح مفهوم
لمزيد من المعلومات ولا تتدرددو يا اخواني في الاسلام
على اميلي
a7mad_m7md@hotmail.com
مع السلامه سوف نلتقي انشاء الله