نمایش دیتابیس آنلاین در ریسایکلرویو

MR.B4A · 13 خرداد

سلام.

این دستورات مربط به ساخت ریسایکلرویو هست:

Private prv As PersianRecyclerLayout

Sub Activity_Create(FirstTime As Boolean)
	prv.Builder("prv").NormalRecycler.BALayout.ListView.RecyclerView.Build
	Activity.AddView(prv,0,pnl_header.Height,100%x,80%y)
	prv.ShowRecycler
End Sub

Private Sub prv_onCreateViewHolder(layoutitem As Object,viewtype As Int) As Object
	lbl_title.Initialize("")
	lbl_description.Initialize("")
	img_pic.Initialize("")
	
	Private pnl_adv As Panel
	pnl_adv.Initialize("pnl_adv")
	
	Private pnl As Panel=layoutitem
	pnl.AddView(pnl_adv,3%x,3%y,94%x,29%y)
	pnl_adv.AddView(lbl_title,20%x,1%y,72%x,5%y)
	pnl_adv.AddView(lbl_description,30%x,lbl_title.Height+1%y,62%x,5%y)
	pnl_adv.AddView(img_pic,1%x,lbl_description.Top,lbl_description.Left,20%y)
	
	Return Null
End Sub

Private Sub prv_onBindViewHolder(layoutitem As Object,position As Int,viewtype As Int) As Object
	Private pnl As Panel=layoutitem
	pnl.Width=100%x
	pnl.Height=33%y
	pnl.Color=Colors.RGB(238,238,238)
	
	Private pnl_adv As Panel=pnl.GetView(0)
	
	pnl_adv.Color=Colors.White
	pnl_adv.Elevation=5dip
	
	lbl_title.Text="item"&position
	lbl_title.Gravity=Gravity.RIGHT
	lbl_title.Tag=position
	lbl_title.Color=Colors.White
	lbl_title.TextColor=Colors.Black
	lbl_title.TextSize=18
	lbl_title.Typeface=Typeface.DEFAULT_BOLD
	lbl_title.Height=su.MeasureMultilineTextHeight(lbl_title,lbl_title.Text)
	
	lbl_description.Text="item description"&position
	lbl_description.Gravity=Gravity.RIGHT
	lbl_description.Tag=position
	lbl_description.Color=Colors.Blue
	lbl_description.TextColor=Colors.Black
	lbl_description.TextSize=18
	lbl_description.Typeface=Typeface.DEFAULT
	lbl_description.Height=su.MeasureMultilineTextHeight(lbl_description,lbl_description.Text)
	
	img_pic.SetBackgroundImage(LoadBitmap(File.DirAssets,"1.png"))
	img_pic.Gravity=Gravity.FILL
End Sub

Private Sub prv_getItemCount As Int
	Return 10
End Sub

با استفاده از این دستورات دوتا لیبل و یک ایمیج ویو و پنل به ریسایکلر ویو اضافه شده.

حالا من میخوام توی این لیبل ها و ایمیج ویو رو با استفاده از رکوردهای دیتابیس آنلاینم پر کنم که اینم کدای دیتابیس آنلاینمه:

If ht_show_adv.IsInitialized=False Then
		ht_show_adv.Initialize("ht_show_adv",Me)
	End If
	
	ht_show_adv.Download("http://192.168.1.4/select_divar.php")

Private Sub JobDone(job As HttpJob)

End Sub

و بقیه ماجرا که باید توی ساب JobDone اتفاق بیوفته

اما خب من چه طوری میتونم ساب جابدانمو به ریسایکلرویو متصل کنم؟!

اینا اصن ساباشون باهم فرق میکنه

ممنون میشم کسی راهنماییم کنه.