اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

تغير مؤشر الماوس فترة تنفيذ الكود


الردود الموصى بها

اخواني واساتذتي الكرام

تحيه طيبه ...

في كثير من الاوقات نلاحظ عند استخدام الاكواد قد يحدث تأخير"بطئ" لحين تنفيذ الكود وفي هذا الوقت وقد يكون بسيط لا يتجاوز من 10 الى 30 ثانيه،وفي هذا الوقت يكون رمزالمؤشر لا توضح بأن الكود ما زال قيد العمل مما يؤدي الى ان بعض الاشخاص قد يتصور بأن الكود لا يعمل او تم التعلق وحتى لا اطيل عليكم اود كود يقوم بتغير رمز المؤشر مما يدل على استمرارية عمل الكود لضمان وصول المعلومه لدى مستخدمين الملف (مثل بقية البرامج "الساعه الرمليه او ماشبة")..

ولكم جزيل الشر والتقدير,,,

تم تعديل بواسطه jazea
رابط هذا التعليق
شارك

يوضع السطر الأول في بداية تنفيذ الإجراء (sub) لجعل المؤشر على شكل الساعة الرملية

ويوضع السطر الثاني في نهايته لعودة المؤشر كما كان

وإذا تم إرفاق مثال منك يمكن التعديل عليه

رابط هذا التعليق
شارك

استاذي العزيز اسعد الله صباحك

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

Private Sub Workbook_Open()

Application.Visible = False

frmLogin.Show

End Sub

لا يتم الاستجابه للكود المذكود وهو:-

Application.Cursor = xlIWait

Application.Cursor = xlDefault

ما هو الحل؟

رابط هذا التعليق
شارك

من الطبيعي أن يحدث هذا

فأنت تقوم بتغيير خاصية لشيء ليس مرئياً

وأعتقد أنه يلزمك التخلي عن أحد الكودين لكي يعمل الآخر حسب أولوياتك

رغم أني لست أدري ما سبب إخفاء التطبيق ككل؟؟!!!

يمكنك إخفاء أشرطة الأدوات جميعها بجعل التطبيق ملء الشاشة كبديل

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information