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 اتفاق بیوفته
اما خب من چه طوری میتونم ساب جابدانمو به ریسایکلرویو متصل کنم؟!
هم اکنون می توانید مطلب خود را ارسال نمایید و بعداً ثبت نام کنید.
اگر حساب کاربری دارید، برای ارسال با حساب کاربری خود اکنون وارد شوید .
توجه: مطلب ارسالی شما پس از تایید مدیریت برای همه قابل رویت خواهد بود.
سوال
MR.B4A 94
سلام.
این دستورات مربط به ساخت ریسایکلرویو هست:
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 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
به گفتگو بپیوندید
هم اکنون می توانید مطلب خود را ارسال نمایید و بعداً ثبت نام کنید. اگر حساب کاربری دارید، برای ارسال با حساب کاربری خود اکنون وارد شوید .
توجه: مطلب ارسالی شما پس از تایید مدیریت برای همه قابل رویت خواهد بود.