كيف أسوي شاشة توقف

اخي الكريم / بريمج

قم بلصق الكود التالي في نافذة الكود

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)



    End

    

End Sub

طبعا لازم يكون اسم الفورم Form1

او اخي الكريم بوضوح اكثر

قم بكاتبة كود الانهاء(End) داخل الحدث (MouseMove) التابع للفورم او لاي عنصر موجود على الفورم

تقبل تحياتي

قبل كتابه End في MouseMove اضف الكود التالي

static  x

x=x+1

if x<2 then exiti sub

ما المغزى من ذلك يا استاذ / محمد 70

؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

لماذا تعرف متغير (ستاتيك) وفي كل مرة تعمل هليه اضافة و و و ...... الخ

ريح عمرك وسوي (END)

او اذا كان عندك سبب اخر لم اتمكن من الوصول اليه فياريت لو تبلغني بذلك

مرحبا اخواني

اخوي ^^Al_Dollar^^ طريقتك صحيحة لكن البرنامج ينتهي أول ما يشتغل...

وجربت طريقتك اخوي hamohd70 ، لكن فيها مشكلة...

والسبب حرف x من الجملة الأولى static x

وتطلع لي رسالة مضمونها ( Duplicate declaration in current scope )

وتقبلوا تحياتي

بريمج

يا أستاذ دولار$$

المغزى هو ان الحدث MouseMove يعمل عندما نشغل البرنامج اول مره

ولهذا لن تعمل شاشه التوقف ابدا.

اما بالنسبه للرساله التي مضمونها ( Duplicate declaration in current scope )

فالحل ان نغير المتغير الى اي شيئ بشرط ان لا تتشابه مع Parameters المذكورين في MouseMove . اجعلها S مثلا!

ماذكره الاخ hamohd70 صحيح .. ويفضل ترك اطلاق الحدث مرتين لان ذلك يحدث في بعض الحالات .. راجع الربط لمزيد من المعلومات http://www.vb4arab.com/vb/showthread.php?threadid=4620

أشكركم إخواني على التفاعل مع مشكلتي..

يسعدني إني أقول لكم إن مشكلة الرسالة إلي تظهر، إنتهت...

لكن يؤسفني أن أقول لكم، إنه ما زالت هناك مشكلة...

فمجرد وجود المؤشر على الفورم فإنه ينهي البرنامج.. حتى لو لم يتحرك...؟؟؟؟:'(

ياليت ألقى جواب عندكم...

تحياتي

بريمج

لقد جربت العمليه و لم ينتهي البرنامج لمجرد وجود الماوس عليه و مع ذلك يمكنك زياده العدد الشرط الى 3 بدل 2 ولكن تأكد من استخدامك Static و ان تكون End من ضمن الشرط.

مثال:

Static s

s=s+1

if s=2 then end

مشكورين اخواني hamohd70 / Read Only

على التوضيح .......

تقبلوا تحياتي

الدولار

مشكوووورين يا اخوان على المساعدة...

وأخيراً إنتهت المشكلة..

ومرة أخرى أشكركم جزيل الشكر

وتقبلوا خالص تحياتي

بريمج

مرحبااا

شباب قولوا لي رايكم في الشاشة التوقف...;)

http://mypage.ayna.com/lliiaa/shasha.zip

إنشاالله تعجبكم..

تحياتي

بريمج

اخ بريمج لا تنسى التالي

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

    

    Static a

    

    a = a + 1

    

    If a > 5 Then

        End

    End If

    

End Sub

كذا يكون احسن على ما اظن

كذا تصير شاشة توقف قياسية

أضف الكود التالي :

Private Sub Form_Load()

Form1.KeyPreview = True

End Sub

واحذف هذا ، لأنه لا يتعامل إلا مع حروف الآسكي

Private Sub Form_KeyPress(KeyAscii As Integer)

If KeyAscii <> 0 Then End

End Sub

وضع ا بدلا منه

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode <> 0 Then End

End Sub

أشكركم اخوي الدولار، و اخوي h_vb

على المساعدة..

والحين تقريباً إكتملت شاشة التوقف..

لكن في مشكلة بسيطة :

عند ما يتم إيقاف تشغيل الأقراص الصلبة وكذلك الشاشة...

بعدها عندما أنهي البرنامج، أي شاشة التوقف..

تظهر الرسالة التي تقول (( إن هذا البرنامج قد قام بعملية غير شرعية.... ))

ولا أعرف مالسبب..؟؟؟

تحياتي

بريمج

عزيزي بريمج

انا شغلت برنامجك او بالاحرى شاشة التوقف وهي شغاااااااالة تماااااااام وما فيها اي شي مما ذكرت

انتهت بشكل طبيعي جدا ولم تقم بعرض اي رسالة خطأ !!!

بس الظاهر من كلامك (يرجى التوضيح اكثر في الردود القادمة) ان شاشة التوقف اذا قامت بإطفاء الشاشة وكذلك القرص الصلب اي قامت بعمل (Stand By) للجهاز قد تعطيك هذه الرسالة ؟؟؟؟

بس ان شاء الله اشغلها لفترة اطول واشوف ايش يصير معي

تحياتي

فعلا مثل ما ذكرت أخوي الدولار..

بعد الــ (stand by) تطلع لي رسالة الخطأ..

وتقبل تحياتي

بريمج

لا تخاف اخوي بريمج

كل مشكلة ولها حل ان شاء الله

طوووووووووووول بالك وحنا ان شاء الله مع الاخوان العباقر بنلقالك حل لهالمشكلة ;)

تحياتي(f)