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

splash screen


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

السادة الأعزاء

هل من الممكن اضافة (splash screen ) - ذلك الشريط الذي يظهر عند تحميل برنامج - في كود برمجي لدي بطريقة سهلة .

علماً بأنني حاولت ذلك عن طريق البحث في صفحات الانترنت ووجدت أنه يجب صناعة هذا الشريط عن طريق ( Control Toolbox ) .

لكنني وجدتها غير مفعلة عندي , وحتى الأمر toolbox عن طريق الـ view غير مفعلة ولم استطع حل هذه المشكلة .

أرجو المساعدة والتفضل بتعليمنا هذا الموضوع

ولكم جزيل الشكر والامتنان

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

في الجزء المشار في الكود

فرضا اسم الكود macro1


Sub P_ALIDROOS_CP()

Dim Ol_AIDROOS

Dim T_ALIDROOS As Integer

Dim i As Integer

Dim P_G_ALIDROOS As Single

T_ALIDROOS = 2500

Ol_AIDROOS = Application.DisplayStatusBar

For i = 2 To T_ALIDROOS

Application.StatusBar = "تقدم النتيجــة => " & Format(i / T_ALIDROOS * 10, "##0.00") & "%"

P_G_ALIDROOS = i / T_ALIDROOS

Call CP_ALIDROOS_CP(P_G_ALIDROOS)

Next

'===========================

Call macro1 ' اسم الكود المرادان يعمل مع splash screen

'===========================

Application.StatusBar = False

Application.DisplayStatusBar = Ol_AIDROOS

Unload UserForm1

Call ALIDROOS_CP_MSG

End Sub

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

السلام عليكم ورحمة الله وبركاته

أستاذي وسيدي الفاضل أبا نصار حفظك الله

بارك الله بك وفيك وكل عام وأنتم في خير ونعمة من الله وجميع من تحب.

وتقبل الله منا ومنكم صالح الأعمال

أبو أنس ناصر حاجب

تم تعديل بواسطه أبو أنس حاجب
رابط هذا التعليق
شارك

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

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



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

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

Important Information