مرئی و نامرئی شدن تدریجی اشیا (درخواست کمک)

[vistamobile 1,700]

سلام. دوستان من یه برنامه با تم آر وم دارم حالا میخوام  چندتا پنل مخفی که دارم و با فشردن باتون ها مرئی میشن خیلی آروم بیان مثلا در عرض 3 ثانیه نه اینکه یهو بچسبن به صفحه. و اینکه برعکسش یعنی خیلی آروم مخفی بشن دوباره. ممنون میشم  دوستان راهنمایی کنن. 

[محمدرضا شاهپیری 5,579]

واسه مخفی کردن همه چی برعکس میشه دیگه

Dim A1, A2 As AnimationPlus
		Dim AnimSet As AnimationSet
		Panel1.Visible=False
		A1.InitializeAlpha("Anim1", 1, 0)
	A1.RepeatCount =0
	A1.RepeatMode = A1.REPEAT_REVERSE
	A2.InitializeScaleCenter("Anim2", 1, 1, 0, 0, Panel1)
	A2.RepeatCount = 0
	A2.RepeatMode = A1.REPEAT_REVERSE
	AnimSet.Initialize(False)
	AnimSet.AddAnimation(A1)
	AnimSet.AddAnimation(A2)
	AnimSet.Duration = 1000
	AnimSet.PersistAfter = True
	AnimSet.Start(Panel1)

هیچ مشکلی نداره و من تست کردم 

[coco 1,746]

سلام

با کتابخانه SAnimation که داخل فروشگاه موجوده میتونین این انیمیشن و خیلی انیمیشن های دیگه رو به سادگی پیاده کنین

 

مشاهده

[vistamobile 1,700]

در 56 دقیقه قبل، محمد فرجی گفته است :

توی ساب فینیش انیمیشن باید کد رو بزای اقا مختار

 

میشه یک مقدار بیشتر توضیح بدی چرا نمیشه ؟

خوب وقتی باتون رو میزنی انیمیشن اجرا میشه و پنل میاد ولی دیگه نمیشه محوش کرد. من خیلی تست زدم حتی یه باتون دیگه گذاشتم با قابلیت نامرئی کردن مستقیم :

    abzar1_pnl.Visible=False

ولی نشد که نشد!!

در 48 دقیقه قبل، Shayan Shojaei گفته است :

سلام

با کتابخانه SAnimation که داخل فروشگاه موجوده میتونین این انیمیشن و خیلی انیمیشن های دیگه رو به سادگی پیاده کنین

 

مشاهده

داداش  مشکل من در پیاده سازی انیمیشن نیس در کاربرد انیمیشنه. اونم میبینم چشم 

[محمدرضا شاهپیری 5,579]

از ترکیب  انیمیشن آلفا و اسکیل استفاده کن و زمانشو بزار رو سه یا چهار ثانیه

[vistamobile 1,700]

در 4 ساعت قبل، محمدرضا شاهپیری گفته است :

از ترکیب  انیمیشن آلفا و اسکیل استفاده کن و زمانشو بزار رو سه یا چهار ثانیه

داداش التوضیح الضافی بده لطفا. ممنون میشم 

[محمدرضا شاهپیری 5,579]

بفرما پیرمرد انجمن

کتابخونه animationplus رو تیک بزن و کارهای زیر رو انجام بده

Dim A1, A2 As AnimationPlus
		Dim AnimSet As AnimationSet
		Panel1.Visible=True
		A1.InitializeAlpha("Anim1", 0.2, 1)
	A1.RepeatCount =0
	A1.RepeatMode = A1.REPEAT_REVERSE
	A2.InitializeScaleCenter("Anim2", 0.2, 0.2, 1, 1, Panel1)
	A2.RepeatCount = 0
	A2.RepeatMode = A1.REPEAT_REVERSE
	AnimSet.Initialize(False)
	AnimSet.AddAnimation(A1)
	AnimSet.AddAnimation(A2)
	AnimSet.Duration = 3000
	AnimSet.PersistAfter = True
	AnimSet.Start(Panel1)

حتما قبلش پنل رو مخفی کرده باشی

[ha88an 203]

Panel1.SetVisibleAnimated(3000,False)

 

[vistamobile 1,700]

در ۱ ساعت قبل، محمدرضا شاهپیری گفته است :

بفرما پیرمرد انجمن

کتابخونه animationplus رو تیک بزن و کارهای زیر رو انجام بده

Dim A1, A2 As AnimationPlus
		Dim AnimSet As AnimationSet
		Panel1.Visible=True
....

حتما قبلش پنل رو مخفی کرده باشی

داداش همین کدها پیرمون کرد و گر نه من تازه چند ساله 30 سال رو رد کردم. 

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

[محمدرضا شاهپیری 5,579]

به خاطر اینه که تهاجمی با کدها برخورد میکنی   یه کم باهاشون مهربون باشی روز به روز جوونتر میشی

[vistamobile 1,700]

در در 1395/06/27, 03:15:25، محمدرضا شاهپیری گفته است :

به خاطر اینه که تهاجمی با کدها برخورد میکنی   یه کم باهاشون مهربون باشی روز به روز جوونتر میشی

داداش کدها درسته و مشکلی نداره فقط نمیشه دوباره پنل رو مخفی کرد!! نمیدونم ایراد از کجاست. 

[Negan 1,300]

در 15 دقیقه قبل، vistamobile گفته است :

داداش کدها درسته و مشکلی نداره فقط نمیشه دوباره پنل رو مخفی کرد!! نمیدونم ایراد از کجاست. 

توی ساب فینیش انیمیشن باید کد رو بزای اقا مختار

 

میشه یک مقدار بیشتر توضیح بدی چرا نمیشه ؟