من فائدة هذا المنتدى ومما تعلمته من احد الاساتذه طريقة عمل شريط متحرك وكما يلي :
1- انشأ نموذجا وارسم علية مربع تسمية وليكن lb واكتب فيه ما تشاء ولا تنسى ان تجعل تنسيقه على شكل شريط التمرير الذي تريد
2- ادرج في حقل حدث للنموذج عند الفتح الكود التالي :. "....Me.lb.Caption = "........ sub title
وفي حدث timer اكتب الكود التالي :Me.lb.Caption = Mid(Me.lb.Caption, 2, _
(Len(Me.lb.Caption) + 1)) & Left(Me.lb.Caption, 1)
و لاتنسى ان تضبط خاصية الفاصل الزمني على السرعة المطلوبة كما بالمثال المرفق
بارك الله بك
عمل جميل+1
سيد الاستغفار
{ اللهم أنت ربي لا إله إلا أنت خلقتني وأنا عبدك وأنا على عهدك ووعدك ما استطعت أعوذ بك من شر ما صنعت أبوء لك بنعمتك علي وأبوء لك بذنبي فاغفر لي فإنه لا يغفر الذنوب إلا أنت}
من قالها من النهار موقنا بها فمات من يومه قبل أن يمسي فهو من أهل الجنة ومن قالها من الليل وهو موقن بها فمات قبل أن يصبح فهو من أهل الجنة .رواه البخاري
ممتاز جدا أخى
بارك الله فيك
من السهل تنفيذ ذلك
لكن
هناك جزء محدد من كود التايمر
يحتاج إلى شرح من أحد فضلاء المنتدى
ألا و هو هذا الجزء
و لماذا استخدمنا دالتين مع أداة الربط
Me.lb.Caption = Mid(Me.lb.Caption, 2, _ (Len(Me.lb.Caption) + 1)) & Left(Me.lb.Caption, 1)
ليتنى أجد تفسيرا لهذا
مع الشكر لك
الحاج جعفر كتب:من فائدة هذا المنتدى ومما تعلمته من احد الاساتذه طريقة عمل شريط متحرك وكما يلي :
1- انشأ نموذجا وارسم علية مربع تسمية وليكن lb واكتب فيه ما تشاء ولا تنسى ان تجعل تنسيقه على شكل شريط التمرير الذي تريد
2- ادرج في حقل حدث للنموذج عند الفتح الكود التالي :. "....Me.lb.Caption = "........ sub title
وفي حدث timer اكتب الكود التالي :Me.lb.Caption = Mid(Me.lb.Caption, 2, _
(Len(Me.lb.Caption) + 1)) & Left(Me.lb.Caption, 1)
و لاتنسى ان تضبط خاصية الفاصل الزمني على السرعة المطلوبة كما بالمثال المرفق
جزاك الله كل خير