TimerId = SetTimer(0, 0, 1, AddressOf TimerProc)
str_Title = "الرقم السري مطلوب"
str_Prompt = "ادخل الرقم السري"
If InputBox(str_Prompt, str_Title) = "1" Then
هذا كود طلب الرقم السري
اذا اردت اضافة اكثر من رقم سري كيف اكتب الكود
مطلوب تعديل على كود الرقم السري
TimerId = SetTimer(0, 0, 1, AddressOf TimerProc)
str_Title = "الرقم السري مطلوب"
str_Prompt = "ادخل الرقم السري"
If InputBox(str_Prompt, str_Title) = "1" or "2" Then
try this
• جميل أن يضع الإنسان هدفا في حياته ...والأجمل أن يثمر هذا الهدف طموحا
اخي خالد طبقت القاعدة لكن لم تنجح معي
ارسلت المرفق البرنامج من اعداد الاخت الدكتورة زهرة
انا سئلت قبلك ماحدش رد بس انا عملت حاجة كدة تمشي الحال مؤقتا انا عملت lable بكلمات السر وخزنتها في جدول و خبيتها في الفورم علشان الباسورد يقرا منها وبدل ماتحط ارقام اكتب التكست
اخى الكود شغال زى الفل جرب فى المرفق و زاد كمان جرب رقم 1 أو 2 أو zahrah2006
• جميل أن يضع الإنسان هدفا في حياته ...والأجمل أن يثمر هذا الهدف طموحا
khaled_mmas كتب:اخى الكود شغال زى الفل جرب فى المرفق و زاد كمان جرب رقم 1 أو 2 أو zahrah2006
صحيح كلامك لكن لو ادخلت اي رقم غير الموجود في الكود مثلا 8 ستلاحظ انه يفتح النموذج والمفروض انه يعطي رساله خطأ
و الله اخى عندك حق انا استعجلت شوية على العموم جرب كده
• جميل أن يضع الإنسان هدفا في حياته ...والأجمل أن يثمر هذا الهدف طموحا