رفتن به مطلب
  • 0

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


naeini89

سوال

سلام

عیدتون مبارک

یه سوال دارم ،

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

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

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

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 رو انتخب کنم جهت جابجایی و درگ کردن؟

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

3 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

در هم اکنون، 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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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  هم استفاده کردم

اونم نشد

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...