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

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


لجعل النص يتحرك على نافذة الفورم
فى ال ****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

************************************************** *************************

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

aaa.jpg

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