#Region  Project Attributes 
	#ApplicationLabel: getlist
	#VersionCode: 1
	#VersionName: firsttry
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region
#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: False
#End Region
#AdditionalJar: com.android.support:recyclerview-v7
Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
End Sub
Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
	
	
	Private PersianRecyclerView1 As PersianRecyclerView
	Dim padapt As PRSwipeRecyclerAdapter
	Dim litem As List
	
	Dim q As ListView
	Private pnlsp As Panel
	Private splabel As Label
	Private sp As Spinner
	Dim litem As List
End Sub
Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("information")
'	DBUtils.ExecuteSpinner(Starter.SQL, "SELECT property FROM tbl_cameraproperty", Null, 0, spitem
	If File.Exists(File.DirRootExternal,"cameralist.db") Then
		File.Delete(File.DirRootExternal,"cameralist.db")
		Log("deleted")
		File.Copy(File.DirAssets,"cameralist.db",File.DirRootExternal,"cameralist.db")
		Log("copied")
	Else
		File.Copy(File.DirAssets,"cameralist.db",File.DirRootExternal,"cameralist.db")
		Log("copied")
		
		
	End If
	Starter.sql.Initialize(File.DirRootExternal,"cameralist.db",False)
	
	q.Initialize("q")
	q = getsoootoon("property","tbl_cameraproperty")
	For i = 0 To q.Size - 1
		Log(q.GetItem(i))
	Next
	litem.Initialize
	For i=0 To 200
		litem.Add("item"&i)
	Next
	padapt.initialize("pr")
	
	
	PersianRecyclerView1.setVerticallLinierLayoutManager
	PersianRecyclerView1.setDividier
	
	
	PersianRecyclerView1.buildDefaultAdapter(padapt.Adapter)
	
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
public Sub getsoootoon(sootoon As String,table As String) As ListView
	Dim splist As ListView
	
	splist.Initialize("splist")
	Dim cur As Cursor
	Dim values() As String
	cur = Starter.sql.ExecQuery("SELECT " & sootoon & " FROM " & table)
	For i = 0 To cur.RowCount - 1
		cur.Position = i
		'Log(cur.GetString2(0))
		splist.AddSingleLine(cur.GetString2(0))
		'values(cur.) = splist.Gcur.GetString2(0)et(i)
		'Log(values(i))
'		Log(cur.GetString(sootoon))
		'log(splist.Add(cur.GetString(sootoon)))
'		Dim val() As String = splist.Get(i)
'		Log(val(0))
	Next
	Return splist
End Sub
Sub pr_getItemCount As Int
	Return litem.Size
End Sub
Sub pr_onBindViewHolder(Createpanel As Panel,Contentpanel As Panel,position As Int)
	Dim pn As Panel=Createpanel.GetView(0)
	Dim lb As Label=pn.GetView(1)
	lb.Text=litem.Get(position)
End Sub
Sub pr_onCreateViewHolder(position As Int) As Object
	Dim swiplayout As SwipeLayout
	swiplayout.initialize(0,0,100%x,64dip)
	''''''''''''''''''''''''''''''''''''''''''''''
	Dim cretpanel As Panel
	cretpanel.Initialize("")
	cretpanel.Width=100%x
	cretpanel.Height=64dip
	cretpanel.LoadLayout("splayout")
	swiplayout.CreatePanel=cretpanel
	'''''''''''''''''''''''''''''''''''''''
	Dim contentpanel As Panel
	contentpanel.Initialize("")
	contentpanel.Width=150dip
	contentpanel.Height=64dip
	Dim bt As Button
	bt.Initialize("")
	bt.Text="cbt1"
	bt.Tag="contbt1"
	contentpanel.AddView(bt,0,0,64dip,64dip)
	Dim bt2 As Button
	bt2.Initialize("")
	bt2.Text="cbt2"
	bt2.Tag="contbt2"
	contentpanel.AddView(bt2,65,0,64dip,64dip)
	swiplayout.ContentPanel=contentpanel
	Return swiplayout.SwipeLayout
End Sub
Sub pr_OnItemClick(contentag As Object,position As Int)
	ToastMessageShow(" main item clicked "& "tag="&contentag&"*** position= "&position,False)
End Sub
Sub pr_OnContentClick(contentag As Object,position As Int)
	ToastMessageShow(" content item clicked "& "tag="&contentag&"*** position= "&position,False)
End Sub
	این کدی که استفاده میکنم و اینم ارور 
	 
 
java.lang.RuntimeException: Don't call setOnClickListener for an AdapterView. You probably want setOnItemClickListener instead