كود النص المتحرك

[أبو رحاب المصري]

كود النص المتحرك


لجعل النص يتحرك على نافذة الفورم
فى ال ****Box

أو فى عنوان الفورم

نتبع الخطوات التالية :
1) نضيف الكائنات التالية ****Box , Timer

2) نغير الخصائص كالتالي

****Box . ****= ****1 , ****1.BackColor = black
Timer . **** = timer1 , Timer1.Enabled = True

3) نكتب الكود التالى


************************************************** *************************
Private str**** As String

()Private Sub Form_Load
Timer1.Interval = 100
"مع تحياتي أبو رحاب المصري ......" = str****
str**** = Space(5) & str****
End Sub

() Private Sub Timer1_Timer
(str**** = Mid(str****, 2) & Left(str****, 1
****1.**** = str****
Me.Caption = str****
End Sub
************************************************** *************************

مع تحياتي أخيكم فى الله ( أبو رحاب المصري )

156394
الكود فى المرفقات

[أبو رحاب المصري]

مشششششششششششكور لكم

[@ابوسمرة@]

مشكوررررررررر بارك الله فيك

[lerby-7]

merciiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii mon amiiiiiiiiiiiiiiiiiiiiiiii

[أبو رحاب المصري]

مشكوررررررررررررر لكم

[hady306]

مشششششششششششكور