الكلمات المتحركة

تفضل أخي الكريم ،،، هذا مثال من الاستاذ / الوارث

نص متحرك-للوارث.zip

شكراً أخي الفاضل الكريم jaffjaff على سرعة الرد ، هذا المثال هو بالضبط ما أعجبني وأدهشني لكن بعد ما نزلته ما فهمت القصه ممكن تفيدني وتوقف معي خطوة بخطوة الله يجزاك الجنه ... اللهم آمين

ممكن فقط تلمح بعض التلميحات إن كنت مشغول

وشاكر لك أخي مقدماً

بالاذن من الاستاذ الوارثي

حدث عند التحميل ضع

Private Sub Form_Load()

الشريط المتحرك باعلى النموذج

=Me.Caption

الشريط المتحرك بداخل النموذج

=Me.lblScrollingLabel.Caption

الشريط المتحرك باعلى النموذج

txtScrollStatus = "......" & Space(25)

وعند عداد الوقت ضع

Private Sub Form_Timer()

' Produce the Scrolling Text in Caption on the Form

Me.Caption = Mid(Me.Caption, 2, _

(Len(Me.Caption) - 1)) & Left(Me.Caption, 1)

' Produce the Scrolling Text in Label on the Form

Me.lblScrollingLabel.Caption = Mid(Me.lblScrollingLabel.Caption, 2, _

(Len(Me.lblScrollingLabel.Caption) - 1)) & Left(Me.lblScrollingLabel.Caption, 1)

' Produce the Scrolling Text in Status Bar of Access

SysCmd acSysCmdSetStatus, txtScrollStatus

txtScrollStatus = Mid(txtScrollStatus, 2, (Len(txtScrollStatus) - 1)) & Left(txtScrollStatus, 1)

وعند الفاضل الوقت ضع 100

شكراً شكراًَ أخي الفاضل على ردك ، بصراحة أنا لم أقرأ الرد لكن حبيت ارد عليك وأشكرك قبل الرد من فرحي بمساعدتك

الله الله يجزاك الجنه أنت ومن تحب ، وأخص منهم والديك

لكن أرجوك خليك معاي على طول الخط أنت وجميع الأخوان في هذا المنتدى الأكثر من رائع

بس أخي الفاضل ممكن أطلب منك طلب بسيط ، أنا بصراحة ما أعرف اللغة التي تكتب بها هذه الأكواد وحاب اتعلمها ، ممكن تشرح لي أكثر أو تدلني على موقع أوكتاب أمشي عليه واستفيذ ... وآسف على أتعابك

ححاول عمل الخطوات السابقة وأتمنى ان أصل

مشكور ألف

أود أن أسئل سؤال وين أحصل هذه الأكواد ( أقصد موقع أو كتاب تعليمي ) الله يجزاك الجنة )

ودمت لنا بإذنه تعالى