اذهب الي المحتوي
أوفيسنا

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

قام بنشر (معدل)

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

تحيه طيبه ...

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

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

تم تعديل بواسطه jazea
قام بنشر (معدل)

استاذي الفاضل

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

وهل ممكن ان توضيحه بمثال بسيط

وشكراً

تم تعديل بواسطه دغيدى
دغيدى
قام بنشر

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

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

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

قام بنشر

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

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

Private Sub Workbook_Open()

Application.Visible = False

frmLogin.Show

End Sub

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

Application.Cursor = xlIWait

Application.Cursor = xlDefault

ما هو الحل؟

قام بنشر

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

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

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

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information