سلام خدمت آقای شاهپیری عزیز وممنون از سورس وآموزشتان
من میخواستم در این سورس شبیه کافه بازار ، اسکرول ها از سمت راست به چپ باشه
دستور زیر را استفاده کردم ، همه اسکرول ویو ها راست چین شدند ولی اسکرول اولی درحالت چپ چین مانده وتغییری نکرد،چطور تنظیمش کنم؟
باتشکر
private Sub pr_onBindViewHolder(layoutitem As Object,position As Int,viewtype As Int)
Dim pnl As Panel=layoutitem
pnl.Width=100%x
pnl.Height=205dip
If position=0 Then
slider.Recycler.startAutoPlay
End If
If viewtype=0 Then
slider.Recycler.startAutoPlay
Else
Dim morebtn As Button=pnl.GetView(0)
Dim sectionlable As Label=pnl.GetView(1)
Dim mainmdl As MainModel=mainitems.Get(position-1)
sectionlable.Text=mainmdl.sectionname
morebtn.Text="بیشتر"
' Dim HorizontalScrollView1 As HorizontalScrollView=pnl.GetView(2)
HorizontalScrollView1 =pnl.GetView(2)
Dim litem As List=mainmdl.items
Dim left As Int
For i=0 To litem.Size-1
Dim itm As Item=litem.Get(i)
mycode.buildItem(ar,HorizontalScrollView1,left,itm)
left=left+102dip
HorizontalScrollView1.Panel.Width=left
Next
CallSubDelayed(Me,"setSV_Right")
End If
End Sub
Sub setSV_Right
HorizontalScrollView1.FullScroll(True)
End Sub