انیمیشن لیبل خروج از چپ و ورود از راست

[razavioo 310]

این سورس رو با توجه به سوال دوستمون که در زیر مشاهده می کنیدش قرار دادم.

در این قطعه کد، قراره یک لیبل که متنی رو نمایش میده، به سمت چپ حرکت کنه و وقتی که بخشی از اون از سمت چپ از پنل بیرون رفت، از سمت راست به بیرون بیاد و نمایش داده بشه. به شکل زیر مشاهده ش می کنید.

توی این قطعه کد من از دو تا لیبل که یک شکل هستن استفاده می کنم و داخل یک پنل قرارشون میدم. لیبل اول در مرکز صفحه قرار داده میشه و لیبل دوم در سمت راست (و دقیقا بیرون پنل) گذاشته میشه و آماده ورود به صفحه است.

از یک دکمه برای قطع و وصل تایمر استفاده میشه و با کلیک اولیه روی دکمه، تایمر فعال میشه و داخل تایمر کدهای ساده ای قرار داده شده که الگوریتمش به شکل زیر توضیح داده میشه.

1. لیبل اول (که مرکز صفحه است) به سمت چپ می رود.

2. اگر لیبل اول از صفحه پنل خارج شد، لیبل دوم با همان سرعت شروع به حرکت به سمت جپ صفحه بکند.

3. اگر لیبل اول از صفحه خارج شد، لیبل اول رو به جایی که لیبل دوم در ابتدا قرار داشت، منتقل کن.

 

در اینجا به موقعیتی می رسیم که انگار جای دو لیبل با همدیگه عوض شده.

4. مشابه مرحله (1) اما برای لیبل دوم

5. مشابه مرحله (2) اما جای لیبل ها عوض شده است.

6. مشابه مرحله (3) اما جای لیبل ها عوض شده است.

 

Sub timer_label_Tick
	If moving_label.Left < moving_label2.Left Then
		moving_label.Left = moving_label.Left - speed
		If moving_label.Left < 0 Then
			If moving_label.Left + moving_label.Width < 0 Then
				moving_label.Left = panel_label.Width + speed
			End If
			moving_label2.Left = moving_label2.Left - speed
		End If
	Else
		moving_label2.Left = moving_label2.Left - speed
		If moving_label2.Left < 0 Then
			If moving_label2.Left + moving_label2.Width < 0 Then
				moving_label2.Left = panel_label.Width + speed
			End If
			moving_label.Left = moving_label.Left - speed
		End If
	End If
End Sub

 

به راحتی میشه برای حرکت در راستای عمودی هم همین کد رو نوشت و یک حرکت زیبای ضربدری رو شکل داد و تبدیلش کرد به یک انیمیشن جابجایی ساده.

سورس برنامه رو می تونید از زیر دانلود کنید

Moving Label Example.Zip