• فيجوال بيسك
  • 2882
  • 20/3/2008
  • الرسائل Msgbox الشكل العام للرسالة :
    MsgBox \'نص الرسالة\', vbDefaultButton1, \'العنوان\'
    الشكل الكامل (مع ربط بالتعليمات):
    MsgBox \'نص الرسالة\', vbMsgBoxHelpButton, \'العنوان\', \'c:windowshelpwindows.chm\', 0
    مسار ملف التعليمات إليك بالأمثلة عن الرسائل : الشكل العام
    Msgbox\'رسالتك هنا\'

    i


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

    i


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

    i


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

    i


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

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

    i


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

    i


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

    i

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

    i

    رسالة عادية مع أيقونة النظام
    MsgBox \'رسالتك هنا \', vbAbortRetryIgnore, \'العنوان\'

    i


    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, \'العنوان\'

    انتهينا والله ولي التوفيق
    كن أول من يقيم الموضوع
    12345