تأثير على الفورم

الموضوع : عمل عنوان للفورم متحرك من اليمين الى اليسار

Marquee TitleBar Text From Right To Left

مشروع جديد VB 0.6

اضافة فورم عليها Timer1 + Tetxt1 + Command1 + Command2

الاكواد :

Form_Load :

Command1.Caption = "Start"

Command2.Caption = "Exit"

Text1.Text = "الجملة التى تظهر فى العنوان"

Command2_Click() مفتاح الخروج من البرنامج Unload Me

Command1_Click()Me.Caption = Text1.Text & Space(15)

اضافة 15 مسافه بعد العنوان لكى نراه يتحرك و يمكن تغيير المسافه

Timer1.Interval = 50

سرعة الحركة = 50 نبضه فى الثانيه مكن تقليلها لتزيد اكثر أو ويادتها لكى تقل السرعه

If Command1.Caption = "Start" Then

Command1.Caption = "Stop"

Timer1.Enabled = True

Else

Command1.Caption = "Start"

Timer1.Enabled = False

End If

Timer1_Timer() Me.Caption = Right$(Me.Caption, Len(Me.Caption) - 1) & Left$(Me.Caption, 1)

هذا يتكرر مع كل 1 نبضه من الـ Timer حيث أول حرف من الجمله أو الكلمه يصبح اخر حرف و يليه و يليه حتى تجد الجملة أو الكلمه تغير مكانها و ذلك اثناء حركتها لأنها موضوعه فى حدث Timer1 .

رابط المشروع