Dim pr As PersianRecyclerLayout
pr.Builder("pr").NormalRecycler.BALayout.ListView.RecyclerView.withDefaultDividier.Build
Activity.AddView(pr,0,0,100%x,100%y)
pr.ShowRecycler
Private Sub pr_getItemCount As Int
Return 100
End Sub
Private Sub pr_onCreateViewHolder(layoutitem As Object,viewtype As Int) As Object
Return Null
End Sub
Private Sub pr_onBindViewHolder(layoutitem As Object,position As Int,viewtype As Int)
Dim pn As Panel=layoutitem
Dim heit As Int= position *50dip
pn.Width=100%x
pn.Height=heit
pn.Color=Colors.Red
End Sub