مشکل drag کردن لیبل

[naeini89 30]

سلام

عیدتون مبارک

یه سوال دارم ،

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

میخوام هر کدوم رو جداگانه جابجا کنم

ینی کاربر روش نگه داره ، و جابجاش کنه

Sub Activity_Create(FirstTime As Boolean)

Dim lbl,lbl1 As Label
	lbl.Initialize("lbl")
	lbl1.Initialize("lbl1")
	lbl.Text="جابجایی یک"
	lbl1.Text="جابجایی دو"

 	Activity.AddView(lbl,30%x,Rnd(0,100%y) ,150 ,1500)
	Activity.AddView(lbl1,30%x,Rnd(0,100%y) ,150 ,1500)
end sub

حالا چطور lbl و  lbl1 رو انتخب کنم جهت جابجایی و درگ کردن؟

ممنون بابت راهنمایی

[softir 459]

در هم اکنون، naeini89 گفته است :

من اینو گذاشتم:

Sub Globals
dim b as label
end sub

.
.
.

Sub lbl_click   	
	b = Sender
	b.textColor = Colors.RGB(Rnd(0, 255), Rnd(0, 255), Rnd(0, 255))
end sub

Sub activity_touch (Action As Int, X As Float, Y As Float)
 ToastMessageShow("",False)
			Dim dX, dY As Float
			Select Action
				Case Activity.ACTION_DOWN
					X0 = X
					Y0 = Y
					X1 = b.Left
					Y1 = b.Top
				Case Activity.ACTION_MOVE
					dX = X - X0
					dY = Y - Y0
					b.Left = X1 + dX
					b.Top = Y1 + dY
				Case Activity.ACTION_UP
			End Select
			
End Sub

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

اما جابجا نمیشه

و بیرون لیبل رو تاچ کنم لیبل جابجا میشه

میخوام طوری باشه که روی لیبل نگه دارم جابجا بشه

از کتابخانه dragable  هم استفاده کردم

اونم نشد

لطفا بیشتر راهنمایی کنید

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

از این صفحه دانلود فیلم آموزش فارسی برنامه نویسی اندروید با Basic4Android سافت آی آر

برو آموزش فصل 2 قسمت 7

[hamidfba 7]

با سلام و تبریک سال نو

با استفاده از این تابع

Sub activity_Touch (Action As Int, X As Float, Y As Float)
	
End Sub

و گذاشتن یک شرط برای لمس روی لیبل ها میتونید جداگانه درگ کنید

[naeini89 30]

من اینو گذاشتم:

Sub Globals
dim b as label
end sub

.
.
.

Sub lbl_click   	
	b = Sender
	b.textColor = Colors.RGB(Rnd(0, 255), Rnd(0, 255), Rnd(0, 255))
end sub

Sub activity_touch (Action As Int, X As Float, Y As Float)
 ToastMessageShow("",False)
			Dim dX, dY As Float
			Select Action
				Case Activity.ACTION_DOWN
					X0 = X
					Y0 = Y
					X1 = b.Left
					Y1 = b.Top
				Case Activity.ACTION_MOVE
					dX = X - X0
					dY = Y - Y0
					b.Left = X1 + dX
					b.Top = Y1 + dY
				Case Activity.ACTION_UP
			End Select
			
End Sub

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

اما جابجا نمیشه

و بیرون لیبل رو تاچ کنم لیبل جابجا میشه

میخوام طوری باشه که روی لیبل نگه دارم جابجا بشه

از کتابخانه dragable  هم استفاده کردم

اونم نشد

لطفا بیشتر راهنمایی کنید