الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

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

مغلق
بدأه بادي في 24 أغسطس 2004 · 6 رد · 860 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

الاخوة الأفاضل السلام عليكم ورحمة الله وبركاته

ما أجمل هذا المنتدى ، وفيه كما يقال ضالة الحيران

الاخوة والأخوات الأفاضل قمت بعمل برنامج بسيط جداً للإستعلام عن الموظفين والتعديل في بياناتهم وما إلى ذلك ....

ولقد شاهدت الكثير والكثير من المشاركات الأكثر من رائعة ، فأتمنى منكم الشرح بالبفصيل لبعض هذه المشاركات الرائعة لا أريد فقط مثال أرجوكم /

1/ النص المتحرك مثلاً

2/ النص الذي يظهر ويختفي ( مث ما عمل الأخ شاكر للأخت الملاك في مشروع الكليات )

وغيرها الكثير والكثير والله يحفظكم ويرعاكم

أرجو الرد بأسرع ما يمكن ...

شكرا ُ مقدما ً

#2

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

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

#3

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

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

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

#4

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

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

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

#5

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

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

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

#6

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

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

مشكور ألف

تم تعديل هذه المشاركة بواسطة بادي في 25 أغسطس 2004 في 09:28

#7

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

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

هذا الموضوع مغلق.

مواضيع مشابهة