تکرار اجرای دستورات داخل باتن با لانگ کلیک

[حمید زارع 331]

سلام

 

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

sub Btn1_Click
   N=N+1
End sub

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

 

لطفاً راهنمایی بفرمایید

[امین شاهدی 5,773]

Sub Globals

Private button1 As Button

Dim t As Timer

Dim n As Int

End Sub

Sub Activity_Create(FirstTime As Boolean)

t.Initialize("t",10)

t.Enabled=False

End Sub

Sub button1_Down

	T.Enabled=True

End Sub

Sub button1_Up

T.Enabled=False

End Sub

Sub t_Tick

	N=N+1

End Sub

[پژمان نیکروان 6,055]

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

تایمر رو میذارم 200:

time.Initialize("time",200)

و بعد کدهای زیر واسه انجام اینکار:

Sub time_Tick
	 N=N+1
End Sub
Sub button1_Down
	time.Enabled=True
End Sub
Sub button1_Up
	time.Enabled=False
End Sub

**امین جان باهم پست دادیم**