حرکت دادن نوشته نوار عنوان برنامه

[morteza@z]

سلام من میخوام که عنوان(Title)را در نوار عنوان برنامه به حرکت در بیاورم که شروع به حرکت بکند و تا آخر برود و دوباره از اول شروع کن و این کار ادامه داشته باشدبا تشکر؟

[Hybrid]

به ترتیب مراحل زیر رو برو تا به جوابتون برسید :

1)یه تایمر روی فرم قرار بدین و خصوصیت interval اونو برابر 1 و خاصیت Enabled اونو برابر True قرار بدین.

2)در رویداد Tick تایمر کد زیر رو قرار بدین..


Static i As Integer = 0

Me.Text = " " + Me.Text
i += 1

If i = 100 Then
Me.Text = Trim(Me.Text)
i = 0
End If

4)برنامه رو اجرا کنید.


پاورقی : البته Size فرم من برابر 300*300 بود و این کد رو براش نوشتم اگه سایز فرم شما بزرگتره میتونین مقدار i در شرط رو افزایش بدین و برعکس..

موفق باشین

[morteza@z]

سلام دوست من من فرم (maximum)است و i را بیشتر می کنم ولی تا نصف فرم نمرود باید چه کار کنم؟

[morteza@z]

کسی نیست کمک کنه منتظرم؟