alirezafc

در 46 دقیقه قبل، محمدرضا شاهپیری گفته است :

برای سوال اولتون: کلیکهاتون رو درست انتخاب نکردین عزیز. به صورت زیر دکمه های چپ و راست رو مدیریت کنید.

Sub right_Click
	If ScrollAmount>=lis.Size-1 Then     ' پوزیشن نباید از تعداد آیتمها بیشتر باشه
		ScrollAmount=0
		Pr.scrollToPosition(0)
		Return
	End If
	Pr.smoothscrollToPosition(ScrollAmount +1)
	ScrollAmount =ScrollAmount +1	
	
End Sub
Sub left_Click
	If ScrollAmount<=0 Then   ' پوزیشن نباید از 0 کمتر بشه
		Return
	End If
	Pr.smoothscrollToPosition(ScrollAmount -1)
	ScrollAmount =ScrollAmount -1
End Sub

برای سوال دوم هم که تو قسمت کلیک میتونید این کارو بکنید

بینهایت ممنونم. فقط ببخشید من برای سوال دوم ، در قسمت کلیک اون آیتمی که روش کلیک شده ، رنگ پس زمینشو عوض می کنم. اما می خوام بار بعد اگه روی یه آیتم دیگه کلیک کردم، رنگ آیتمِ کلیک شده ی قبلی به حالت پیش فرض برگرده. یعنی در هر لحضه تنها اون آیتمی که انتخاب شده، رنگش عوض بشه و به حالت انتخاب دربیاد. این کد خودمه:

Sub pr_OnItemClick(ItemTag As Object,viewclicked As Object,position As Int)
	
	Dim pnl As Panel=viewclicked 'پنلِ مربوط عنصر انتخاب شده
	pnl.Color=Colors.Blue 'تغییر رنگ
	
End Sub

اما همانطور که میبینید رنگ پنل به صورت دائمی تغییر میکنه.

ببخشید که خیلی سوال می پرسم.

باتشکر فراوان

در 3 ساعت قبل، محمدرضا شاهپیری گفته است :

موردی نداره. همینجا پیوست کنید عزیز

ممنون

کد ایجاد لیست:

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("FoodMenu")
	Private Pr As PersianRecyclerLayout
	Pr.Builder("pr").NormalRecycler.BALayout.TurnLayoutManager.RecyclerView.Build
			Pr.PersianTurnLayout.withGravity(Pr.GRAVITY_START).withOrientation(Pr.Oriantation_Horizontal).withPeekDistance(200).withRadius(1000).withRotate
	Activity.AddView(Pr,10%x,0,80%x,40%y)
	Pr.ShowRecycler
End Sub
Sub pr_getItemCount As Int
	Return 5
End Sub


Sub pr_onCreateViewHolder(layoutitem As Object,viewtype As Int) As Object
	Dim pnl As Panel=layoutitem
	pnl.Width=Pr.Width*0.35
	pnl.Height=Pr.Height
	Dim Img As ImageView
	Img.Initialize("")
	pnl.AddView(Img,pnl.Width*0.2,pnl.Width*0.1,pnl.Width*0.6,pnl.Width*0.6)
	Dim lblname As Label
	lblname.Initialize("")
	pnl.AddView(lblname,0,pnl.Width*0.71,pnl.Width,pnl.Height*0.15)
	Return Null
End Sub


Sub pr_onBindViewHolder(layoutitem As Object,position As Int,viewtype As Int)
	Dim pnl As Panel=layoutitem
	Dim Img As ImageView=pnl.GetView(0)
	Img.Color=Colors.Black
	Img.Bitmap=LoadBitmap(File.DirAssets,"Pizza.png")
	Img.Gravity=Gravity.FILL
	Dim lblname As Label=pnl.GetView(1)
	lblname.Text="پیتزا"
	lblname.TextSize=auto.ReturnScaledSize(20)
	lblname.Gravity=Bit.Or(Gravity.CENTER,Gravity.CENTER_HORIZONTAL)
	lblname.TextColor=Colors.White
End Sub

حالا میخوام دو تا دکمه چپ و راست داشته باشم. در دو طرف لیست. وقتی روی دکمه چپ کلیک کردیم ، توی لیست یه محصول به سمت چپ اسکرول بخوره. و اگه روی راست کلیک کردیم یه محصول به سمت راست اسکرول بخوره.یعنی اسکرولِ محصولات رو بسپارم دستِ این دو تا دکمه. این کد رو برای کلیدِ اسکرولِ سمت راست نوشتم اما تا آخر اسکرول نمیخوره.یعنی یکی مونده به آیتمِ آخری دیگه اسکرول حرکت نمیکنه و عنصر آخر رو نشون نمیده:

Sub Globals
	Dim ScrollAmount As int=0
End Sub
Sub ScrollRight_Click
	ScrollAmount = ScrollAmount + 1
	Pr.smoothscrollToPosition(ScrollAmount)
End Sub

می خواستم ببینم راهی هست اینو پیاده کنم؟

خیلی ببخشید یه سوال دیگه هم داشتم. میخواستم ببینم چطور میتونیم وقتی رویِ یکی از عناصر لیست کلیک می کنیم، به حالت انتخاب شده دربیاد. مثلا رنگ بک گراندش تغییر کنه.

خیلی عذر میخوام که زیاد شد. اما اگر کمکم کنید بسیار ممنون میشم.

باتشکر فراوان

در ۱ ساعت قبل، محمدرضا شاهپیری گفته است :

سلام. سورس رو خصوصی ارسال کنید ببینم دوست عزیز.

سلام. ممنون از پاسختون.

اما متاسفانه من هنوز به حد نصاب برای پیام خصوصی نرسیدم. میشه لطف کنید ایمیلتون رو بدید تا براتون بفرستم. یا همینجا بذارم.

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

مشکلی دارم اگه کمکم کنید بسیار ممنون میشم.

یه لیست از نوع  turnlayout ساختم که توش چند تا عکس هست. دو تا دکمه ی چپ و راست گذاشتم که میخوام مثلا وقتی روی دکمه چپ کلیک شد لیست یه دونه به سمت چپ اسکرول بشه. من این کد رو نوشتم اما تا انتهای لیست نمیره.یعنی تا یک آیتم ماقبل آیتم آخر اسکرول میخوره.و آیتم آخر رو اسکرول نمیکنه. کد هم اینه :

Pr.smoothscrollToPosition(Pr.SCROLLBAR_POSITION_RIGHT+1)

با تشکر