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

كيفية عمل نص متحرك

مغلق
بدأه باسم22 في 22 مايو 2006 · 5 رد · 2,771 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

الإخوة الأعضاء

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

حيث واجهتني مشكلة في تحديد حجم النص المطلوب تحريكه .

وأرفق بطيه المثال للتعديل عليه

وجزاكم الله خيراً

* كما أشكر الإخوة القائمين على هذا المنتدى الرائع والإخوة الأعضاء والذين بفضل الله ثم بفضل مشاركاتهم أصبح لدي معرفة جيدة في هذه اللغة الرائعة .

project.rar

#2

هذا مثال لكتابة نص متحرك و به ميزات تحريك النص من اليمين .... اليسار .... الاعلى .... الاسفل

ارجوا ان يفيدك فى مشروعك

تم تعديل هذه المشاركة بواسطة hichamchak في 22 مايو 2006 في 14:11

127gq4.png
#3

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

مثال جميل اخي hichamchak

ولقد خطرت ببالي هذه الفكرة..(بالفعل لقد كنت أستخدم طريقة معقدة لعمل لذك)... ولكن بالنظر للكود الخاص بك فكرت بطريقة قد تكون أسهل ...

Option Explicit		 '// DONT YOU EVER FORGE THIS LINE IN EACH MODULE
'// *********************************
Private Sub DoMarquee(pLabel As Label)
'// DoMarquee: Simple and easy Marquee.
'// Label shall has SPACES AFTER THE BANNER TO KEEP REPEATING IT.

Dim vStr As String
vStr = pLabel.Caption
vStr = Right(vStr, Len(vStr) - 1) & Left(vStr, 1)
pLabel.Caption = vStr

End Sub
'// **********************************
'//	 (Example)

Private Sub Timer1_Timer()
DoMarquee Label1
End Sub

Private Sub Form_Load()
'// Message in the Banner
Label1.Caption = "This is to inform you that our agreement as of the contract Stated clearly that we are not going to be involved in no datat entry, so you are kindly requested to perform and Do the job.."
Label1.Caption = Label1.Caption & Spaces(10)		'// This is important after the message
Timer1.Interval = 100   '// Timer can go smoothly if interval made >300
End Sub
'//	 (/Examle)

من سجن عكا وطلعــت جنـازة...

محمد جمجوم و فؤاد حجـازي

جازي عليهم يا شعبــي جازي...المندوب السامي وربعه عموما

محمد جمجوم ومع عطا الزير...فؤاد حجـــــــــازي عز الذخيـره

فلـسطـين

#4

شكرا لك على المثال الرائع ..كنت ابحث عنه من زمان

#5

هذا مثال ممكن يساعدك في مشروعك

مثال جدا بسيط يوضح

كيفية عمل كود لتحريك نص

واذا بتحب اي مساعدة في الفيجول بيسك ممكن اساعدك

خاصة في الاكواد البسيطه

اللي بتخص الاشكال والحركة

;)

el_zaeem.rar

يا آل إسرائيل، لا يأخذكم الغرور

عقارب الساعة إن توقفت

لا بد أن تدور..

إن اغتصاب الأرض لا يخيفنا

فالريش قد يسقط من أجنحة النسور

والعطش الطويل لا يخيفنا

فالماء يبقي دائما في باطن الصخور

هزمتم الجيوش .. إلا أنكم لم تهزموا الشعور

قطعتم الأشجار من رؤوسها

وظلت الجذور..

اذا كان الأنسان والزمان ضدي ...

أنا فلسطيني أحب التحدي...

القرآن الكريم بعدة أصوات ..استماع وحفظ

http://quran.muslim-web.com/

قصص الأنبياء لعدة مشايخ باسلوب جميل

http://www.prophetstory.com/

#6

أشكركم على هذه الأمثلة وأشكر لكم أيضاً إهتمامك

ولكن المطلوب هو حجم (عدد الحروف) المدخلة فيب النص المتحرك، حيث أن هه البرامج لاتتسع سوى لـ 120حرف فقط

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

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