splash screen

[وسيم العش]

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

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

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

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

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

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

[الـعيدروس]

السلام عليكم

الاخ الفاضل وسيم العش

هل هذا ماتقصد

B_ALIDROOS.rar

[وسيم العش]

تماما يا استاذي الكريم

هل لي أن أطلب من حضرتك طريقة ادخاله مع أكوادنا .

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

[الـعيدروس]

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

فرضا اسم الكود 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

تم تعديل أغسطس 29, 2012 بواسطه عباد

[وسيم العش]

جزاك الله خيراً

هل من جواب بخصوص تفعيل toolbox في الاكسل ؟؟؟؟؟

بانتظار ردكم يا سادتي

[saad abed]

اخى ابو تصار

وحشنا ووحشتنا اعمالك الجميلة والمتقنه

بارك الله فيك

سعد عابد

[أبو أنس حاجب]

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

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

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

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

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

تم تعديل أغسطس 30, 2012 بواسطه أبو أنس حاجب