• فيجوال بيسك
  • 2927
  • 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