سؤال :تعديل على رسالة معربة

[ابو جودي]

السلام عليكم ورحمة الله تعالى وبركاته
استاذتى الكرام
فضلا وكرما ممكن مساعدة

المرفق فى الاصل لاستاذى الجليل ومعلمى القدير الاستاذ ابو خليل

السؤال بخصوص وضع شرط على هذه الرسالة المعدلة عند اختيار    نعم     أو   لا     الشرح موضح داخل المرفق
 

msgBox arabic.rar

[jjafferr]

وعليكم السلام

 

تفضل يا زعيم

    MessageBoxH Me.hwnd
    resalh = MsgBox("subject", 1 + r_msg, "titel")
    If resalh = 1 Then
        
        MsgBox "Yes was selected"
    Else
        MsgBox "No was selected"
    End If

 

جعفر

[ابو جودي]

1 ساعه مضت, jjafferr said:

وعليكم السلام

 

تفضل يا زعيم

    MessageBoxH Me.hwnd
    resalh = MsgBox("subject", 1 + r_msg, "titel")
    If resalh = 1 Then
        
        MsgBox "Yes was selected"
    Else
        MsgBox "No was selected"
    End If

 

جعفر

استاذى الحبيب ومعلمى القدير 
جزاكم الله تعالى خيرا 

[jjafferr]

اخاف تعتقد اني عبقري

اخبرك كيف عرفت الجواب 

 

استخدم هذا الكود:

resalh = MsgBox("subject", 1 + r_msg, "titel")

msgbox "Checking= " & resalh

 

ثم اضغط على نعم وشوف قيمة resalh ، واضغط على لا وشوف قيمة resalh 

 

جعفر