لاتنسى تحميل الخط لمجلد الخطوط قبل التشغيل
نموذج قائمة رئيسة متحركة العنوان
مغلق
بارك الله فيك على كل هذا الجهد الواضح للجميع
[gl]يا أستاذ / أبو حمود[/gl]
فكرة حلوة وجميلة
(f) (f) (f) (f) (f)
أول ما فتحتها
افتكرتها فلاش :rolleyes:
(yess)(yess)(yess)
أستاذ ابو حمود جزاك الله عما الف خير
ولكن هل لك أن تشرح لنا كيفية عمل ذلك
[gl]اخوك حسين فردان[/gl] :o
السلام عليكم
بارك الله فيك اخي أبو حمود وكثر من امثالك
مشكور أبو حمود
===
أستمد قوتي من ايماني بالله وأشعر بالراحه النفسية عندما اذكر اسم الله . الحمد لله
===
المشتاق الى الجنة
أبو صفاء - مسقط
===
يكون افضل انا حملت الفونت بس ما ادري شو اغير يا ليت تقول هل يوجد تغيير في خصائص الفورم غير التايمر
باراك الله فيك وجعله في ميزان حسناتك
الأخوان
العنوان عبارة عن 2 تسمية الأولى ذات اللون الأحمر باسم تسمية0 والثانية باسم حركة والثانية جعلت لها اللون الرصاصي وهي بنفس حجم الأولى تماما .
وضعت في حدث المؤقت عند كل 100 جزء من الثانية الكود التالي :
On Error Resume Next
If Forms![الخلفية].InsideHeight < 6000 Then
DoCmd.Close acForm, "الخلفية"
DoCmd.OpenForm "الخلفية"
End If
الأسطر السابقة لتشغيل نموذج الخلفية فيما لو قام المستخدم بتصغيره عن الحجم الأقصى وقد جعلته هنا بدلا من نموذج الخلفية حتى لااستخدم 2 تايمر .
التسمية التي اسمها حركة مخفية عند بدء التشغيل حتى تظهر التسمية الأصلية (تسمية0) ولذلك استخدمت السطر التالي في بداية التشغيل وهو ينفذ مرة واحدة لإظهارها :
If حركة.Visible = False Then حركة.Visible = True
وأما الكود التالي :
If رقم = 0 Then
If حركة.Height > 80 Then
حركة.Height = حركة.Height - 80
Else
حركة.Height = تسمية0.Height
رقم = 1
End If
Else
If حركة.Width > 180 Then
حركة.Width = حركة.Width - 180
Else
حركة.Width = تسمية0.Width
رقم = 0
End If
End If
فقد جعلت على النموذج مربع نص اسمه رقم وجعلت القيمة الافتراضية له 0
وقد جعلت هذا المربع لغرض تغيير الحركة بين العرض والطول
فإذا كانت القيمة صفر تبدأ الحركة في العرض ويبدأ كود الستة أسطر الأولى وهي :
If حركة.Height > 80 Then
حركة.Height = حركة.Height - 80
Else
حركة.Height = تسمية0.Height
رقم = 1
End If
هنا يتأكد من طول التسمية حركة فإذا كان اكبر من 80 ينفذ السطر التالي .
والسؤال هنا من أين أتينا بالرقم 80 وهذه مسألة مهمة وسهلة الرقم 80 اختياري إذا وضعت رقم هنا فضعه مثيله في السطر التالي لماذا ؟ الجواب حتى لايقوم بإنقاص الطول رقم هو أكبر من الطول الحالي للتسمية حركة فستكون النتيجة سالب ولايصح أن تكون خاصية طول للتسمية سالبة .
أما لماذا اخترت أنا هذا الرقم فهو يعطي حركة مناسبة حسب طول التسمية يعني تظهر الحركة كأنها انقاص متواصل ليس قفزات . كبر الرقم وسترى الفرق مثلا اجعله 200 .
السطر الثاني في كود الأسطر السابقة ينقص 80 من طول تسمية في كل مرة
ويستمر في الإنقاص حتى يكون باقي الطول أقل من 80 عندها ينتقل للأسطر بعد else وأول سطر هو أن يعيد التسمية حركة لطولها السابق ويجعل -السطر الذي يليه- القيمة في مربع النص رقم =1 لغرض الإنقاص الآن من العرض بعد إكتمال حركة الإنقاص للطول مرة واحدة ثم رجوع طول التسمية كما كان .
Else
If حركة.Width > 180 Then
حركة.Width = حركة.Width - 180
Else
حركة.Width = تسمية0.Width
رقم = 0
End If
End If
الأسطر السابقة تبدأ عندما تكون قيمة مربع النص رقم لاتساوي صفر .
ثم يليله التأكد من عرض التسمية فإذا كان اكبر من 180 ينتقل للسطر التالي والذي يقوم بإنقاص 180 من العرض في كل مرة وهذا الرقم كما اسلفنا اختياري ويكبر كلما كبر العرض أو الطول ولامانع من تجربة عدد من الأرقام حتى تظهر لك الحركة بصورة مناسبة ولكن لاتستخدم رقم اكبر من الطول أو العرض فهذا خطأ مباشر ولكن ترى أنت في الخصائص أن العرض بالسنتمتر وهنا رقم أكبر من الموجود في خاصية العرض أو الطول ؟ هذا لأن القياس هنا بالنقطة أو ما يسمى twips وكل
1440 twips تساوي 1 inch
أو 1 سم تساوي 567
وعندما يصل العرض لأقل من 180 ينتقل للسطر الذي بعده وهو يعيد التسمية كما كانت ثم يجعل في مربع النص المسمى رقم صفر لغرض بدء دورة جديدة للطول .
آمل لكم الاستفادة ودعوة بظهر الغيب لي
ولكم تحياتي
هذا الموضوع مغلق.