عمل test في برنامج تعليمي .... ارجو المساعده

1-

Private Sub Command1_Click()

if text1 = "ا" then

msgbox "مبروك", vbinformation, "صحيح"

else

msgbox "حاول مرة أخرى", vbinformation, "خطأ"

end if

end sub

2- يتم الربط بحدث النقر على الزر اكيد بواسطة كود اما يقوم بتشغيل ملف wav او mid وقد ارفقت مثالا عن هذا لكن الاختلاف ان المثال كنت قد صنعته من قبل في متعلقا بحدث مرور الماوس فوق الزر فقط قومي بتغييره

3- للاسف لم ابحث في هذا الامر من قبل وان شاء الله الاخوة الكرام ما بقصروا

عفوا نسيت الملف المرفق, تفضلي

test1.zip

اخي الف شكر

الفقره الاولى انا اعرف هذالكود سهل انا اقصد كيف اربط بين زر الأمر وزر التصحيح بحيث يعر اني طلبت حرف الألف لانه راح يكون في الفورم اكثر من زر يحتوي على test لكن التكيست بوكس واحد وزر التصحيح واحد

وجزاك الله عني خير الجزاء

هو مش فاهم تمام لكن اعتقد انت ملبكة حالك

الكود السابق يشرح نفسه بنفسه فقد ربطت بين الزر الاول والتكست بوكس الاول

لزر اخر اغير لاجعله يعتامل مع التكست بوكس ال 2 وهكذا

اما لو قصدت امر اخر فصورة توضيحية بسيطة تفي (مش احترافية مجرد خطوط بيمشي الحال :D )

سلام عليكم

هل هذا ما تقصدين :eek:

اذا كان غير ذلك فلا ضرر من التوضيح اكثر...

ex.zip