button در حالت فشرده شدن

[pooriya 0]

سلام دوستان خسته نباشید.... ببخشید یه سوال داشتم ... من 20 تا button با حلقه for برای خودم درست کردم

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

http://s9.picofile.com/file/8322818434/i.gif

[softir 459]

سلام

Sub Button1_Down	
		Dim b As Button = Sender
		Dim size As Int = 7
		b.SetLayoutAnimated(75,b.Left + size , b.Top + size , b.Width - (size * 2) , b.Height - (size * 2))
End Sub

Sub Button1_Up
	Dim b As Button = Sender
	Dim size As Int = 7
	b.SetLayoutAnimated(75,b.Left - size , b.Top - size , b.Width + (size * 2) , b.Height + (size * 2))
End Sub

 

[pooriya 0]

عزیز این ساب sub button1_down از کجا میاد

[pooriya 0]

در 1 ساعت قبل، softir گفته است :

سلام

Sub Button1_Down	
		Dim b As Button = Sender
		Dim size As Int = 7
		b.SetLayoutAnimated(75,b.Left + size , b.Top + size , b.Width - (size * 2) , b.Height - (size * 2))
End Sub

Sub Button1_Up
	Dim b As Button = Sender
	Dim size As Int = 7
	b.SetLayoutAnimated(75,b.Left - size , b.Top - size , b.Width + (size * 2) , b.Height + (size * 2))
End Sub

 

عزیز این ساب sub button1_down از کجا میاد

[softir 459]

در 16 ساعت قبل، pooriya گفته است :

عزیز این ساب sub button1_down از کجا میاد

دستی باید اضافه کنی . تو نسخه های قبلی بودن . اما جدید نیست

[pooriya 0]

سلام..عزیز این روش رو امتحان کردم.. ولی کار نمیکنه فقط روی یدونه از button ها کار میکنه....من با حلقه for اومدم 20 تا button ایجاد کردم میخوام همشون اینجوری بشن...راه دیگه ای نیست؟

[pooriya 0]

دوستان کسی نمیدونه..؟خیلی نیاز دارم....