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

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

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

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

مثال جميل اخي 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)

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

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

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

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

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

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

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

;)

el_zaeem.rar

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

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