#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