درست کردن یک دکمه " چشمک زن "

[arastooms 1,046]

سلام 
یک دکمه دارم به صورت یک فلش که قرار به صورت چشمک زن باشه تو برنامه 
یعنی خاموش و روشن بشه 
با استفاده از کتابخانه Animation
تعریف کردم 
و لی  نمیدونم چه طور میتونم بگم مثلا در هر ثانیه مثلا 10 بار خاموش روشن بشه 
فکر میکنم باید از تایمر استفاده کنم ولی دستورش رو نمیدونم 
این ساب فعلا برای یک بار خامش و روشن شدن هست که در اکتیویتی کریت نوشتم که اکتیویتی باز میشه یک بار خاموش و روشن میشه 
ممنون از راهنمایی اساتید

Sub Globals
Dim a3 As Animation	


Sub Activity_Create(FirstTime As Boolean)

	a3.InitializeScaleCenter("", 0, 0, 1, 1, Button_raft)
	a3.Duration = 500
	a3.Start(Button_raft)

[arastooms 1,046]

 

سلام 

یک دکمه دارم به صورت یک فلش که قرار به صورت چشمک زن باشه تو برنامه 

یعنی خاموش و روشن بشه 

با استفاده از کتابخانه Animation

تعریف کردم 

و لی  نمیدونم چه طور میتونم بگم مثلا در هر ثانیه مثلا 10 بار خاموش روشن بشه 

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

این ساب فعلا برای یک بار خامش و روشن شدن هست که در اکتیویتی کریت نوشتم که اکتیویتی باز میشه یک بار خاموش و روشن میشه 

ممنون از راهنمایی اساتید

Sub Globals
Dim a3 As Animation	


Sub Activity_Create(FirstTime As Boolean)

	a3.InitializeScaleCenter("", 0, 0, 1, 1, Button_raft)
	a3.Duration = 500
	a3.Start(Button_raft)

دوستان پاسخ پیدا شد 

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

کد اصلاح شده رو قرار میدم  و از مدیران خواهش میکنم پست رو قفل کنند دوستان دیگر نیاز داشتند استفاده کنند 

 

	a3.InitializeScaleCenter("", 0, 0, 1, 1, Button_bargasht)
	a3.RepeatCount=5
	a3.Duration = 500
	a3.Start(Button_bargasht)
	

این خط باید اضافه بشه برای تکرار افکت مورد نظر 

a3.RepeatCount=5

موفق باشید