double touch

[abbas2142 557]

با سلام

 

چطوری می شه واسه یه باتن تعریف کرد که اگر دوبار ضربه روش زده شد فلان کارو انجام بده ؟؟؟؟

 

آیا می شه زمان بین ضربات رو هم مشخص کرد مثلا بهش بگی زیر 1 ثانیه

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

این کد رو نوشتم ببینید جواب میده : 

Sub Globals
Dim tt As Timer
Dim bb As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
bb.Initialize("bb")
Activity.AddView(bb,0,0,200,100)
tt.Initialize("tt",300)
tt.Enabled=False
End Sub

Sub bb_Click
	If tt.Enabled=True Then
	ToastMessageShow("doubleClicked",False)
	End If
	tt.Enabled=True
End Sub
Sub tt_Tick
	tt.Enabled=False
End Sub

[Alireza.Ghafari 2,104]

به این صورت عمل کنید : 

 

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

dim t1 as timer

در اکتیویتی کریت اونو اینشیالیز میکنیم : 

t1.Initialize("t1",1000)

در رویداد کلیک باتن این کد رو قرار بدید که مربوط به فعال شدن تایمر هست : 

t1.Enabled = True

اینم هم برای تایمر ک اگه 1 ثانیه تموم شد چیکار کنه : 

Sub t1_Tick
	t1.Enabled = False
	Msgbox("شما دابل کلیک کردید","!!!")
End Sub

[abbas2142 557]

ممنون از پاسختون ولی من می خوام با دوبار کلیک پشت سرهم در کمتر از 1 ثانیه اون دستور انجام بشه