أريد كود يظهر نص في textbox لوقت محدد ثم تختفي وتظهر عبارة أخرى

[عبدالرحمـ4024ـن]

أريد كود يظهر نص في textbox لوقت محدد ثم تختفي وتظهر عبارة أخرى

 

 

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

 

أريد من حضراتكم عمل الآتي لي

 

وهو وضع مربع نص textbox

 

 ومن خلال vba يتم اظهار عبارة ولمدة 5 ثوان ثم تختفي 

 

وبعدها في نفس ال textbox تظهر عبارة أخرى لمدة 5 ثوان ثم تختفي 

 

وبعدها في نفس ال textbox تظهر عبارة أخرى لمدة 5 ثوان ثم تختفي 

 

 

وهكذا ,,, أرجو أنكم قد فهمتوا مقصودي...

 

 

ولقد اتبعت أحد الدروس لكن لم تظهر نتائج صحيحة وهي

 

التطبیق العملي الأول:

شخص يريدك أن تصمم له برنامج خاص به ويطلب فيه عدة طلبات وسوف نصمم البرنامج شيئاً فشيئاً مع

If التركيز الشديد على استخدام

أولاً : الشاشة الافتتاحیة للبرنامج/

وهو عبارة عن نموذج باسم ( افتتاحية ) يعمل في مقدمة البرنامج ويملئ الشاشة ويوجد فيه ما يلي :

( مربع نص ) أو ( مربع تسميه ) اختر واحداً فقط حسب قدرتك انت في التعامل مع أحدهما

هذا المربع تخرج فيه في البداية جملة ( أهلاً وسهلاً بك معنا )

ثم تخرج فيه جملة ( في برنامج )

ثم تخرج فيه جملة ( تطبيق الدروس )

ثم جملة (تفضل بالدخول )

ثم يقفل النموذج تلقائي .. ويفتح النموذج الآخر المسمى ( المقدمة )

في حدث عند عداد الوقت أو التايمر )) IF (( لتنفيذ ذلك يجب استخدام أداة الشرط

طريقة جعل النموذج يعمل في مقدمة البرنامج لمن لا يعرف ذلك كما يلي-:

- 1 من شريط الأدوات العلوي للأكسس نختار( أدوات )

- 2 نضغط على (بدء التشغيل )

- 3 نذهب إلى مربع التحرير والسرد المسمى (عرض النموذج/الصفحة

- 4 نختار منه نموذج (افتتاحية )

- 5 ثم موافق

(( طبعاً كل شخص له الحرية من ناحية جمال النموذج وترتيبه وهذا عامل مهم لإنتاج البرامج ))

في التطبيق القادم إن شاء الله سنتطرق إلى النموذج المسمى (المقدمة )

أرجو من الجميع عمل ذلك كلٍ حسب فهمه للدرس وعدم الالتفات لإعمال غيره

الاجابة

Option Compare Database

()Private Sub Form_Load

DoCmd.Maximize

timerinterval = 3000

End Sub

()Private Sub Form_Timer

If lbl1.Visible = False Then

lbl1.Visible = True

Else

If lbl1.Caption = "ÃåáÇð æÓåáÇð Èß ãÚäÇ" Then

" lbl1.Caption = "Ýí ÈÑäÇãÌ

Else

If lbl1.Caption = "Ýí ÈÑäÇãÌ " Then

"lbl1.Caption = "ÊØÈíÞ ÇáÏÑæÓ

Else

If lbl1.Caption = "ÊØÈíÞ ÇáÏÑæÓ" Then

lbl1.Caption = "ÊÝÖá ÈÇáÏÎæá "

If lbl1.Caption = "ÊÝÖá ÈÇáÏÎæá" Then

Call Intro

End If

End If

End If

End If

End If

End Sub

()Private Sub Intro

DoCmd.Close

DoCmd." OpenForm " frminitial

End Sub

 

 

 

[ابوخليل]

تفضل

db2.rar

[عبدالرحمـ4024ـن]

جزاك الله خير

جعلك الله ووالديك في جناته العليا يارب

سوف أقوم بفحص الكود جزءا جزءا لكي أفهم تفاصيله

ولك مني خالص الشكر