رفتن به مطلب
  • 0

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


batman123

سوال

سلام.

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

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 اتفاق بیوفته

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

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

1 پاسخ به این سوال تاکنون داده شده است

ارسال‌های توصیه شده

  • 1
لینک ارسال
به اشتراک گذاری در سایت های دیگر

به گفتگو بپیوندید

هم اکنون می توانید مطلب خود را ارسال نمایید و بعداً ثبت نام کنید. اگر حساب کاربری دارید، برای ارسال با حساب کاربری خود اکنون وارد شوید .
توجه: مطلب ارسالی شما پس از تایید مدیریت برای همه قابل رویت خواهد بود.

مهمان
پاسخ به این سوال ...

×   شما در حال چسباندن محتوایی با قالب بندی هستید.   حذف قالب بندی

  تنها استفاده از 75 اموجی مجاز می باشد.

×   لینک شما به صورت اتوماتیک جای گذاری شد.   نمایش به صورت لینک

×   محتوای قبلی شما بازگردانی شد.   پاک کردن محتوای ویرایشگر

×   شما مستقیما نمی توانید تصویر خود را قرار دهید. یا آن را اینجا بارگذاری کنید یا از یک URL قرار دهید.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
  • اضافه کردن...