رفتن به مطلب

بایگانی شده

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

razavioo

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

پست های پیشنهاد شده

razavioo    310

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

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

gif.gif

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

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

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

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

×
×
  • جدید...