درخواست کد انیمیشن پیشنهادی

[vistamobile 1,700]

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

[حاج حسین 2,098]

مختار جان شما خودت استاد تو این زمینه

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

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

Sub Panel1_Click
	a1.InitializeTranslate("a1",0,0,0,300) 'برای منتقل کردن به جای مورد نظر
	a1.Duration=1000  'زمان انمیشین
	a1.RepeatCount=1	' تکرار که باعث میشه هر کاری که کرد دوباره انجام بده
	a1.RepeatMode=a1.REPEAT_REVERSE ' حرکتو برگردون
	a1.Start(Panel1) 	' انمیشنو استارت کن

[vistamobile 1,700]

همین عالیه ممنون