سلام استاد شاهدی لازم دیدم یه تشکر کتبی هم بکنم
واقعا پولی که گرفتی حلالت خیلی راحت شده کارم و اینکه شکل و شمایل برنامه هام خیلی زیباتر شده و حتی برای دیتابیس انلاین ، سرویس ImageDownloader و برای حلقه for مولتی پنلمم حداقل حداقل 6 خط کد کم شده و میتونم بگم این لیست ویو یک شگفتیه
راستی برای دوستانی که میخوان از این لیست ویو در دیتا بیس انلاین استفاده کنن این کدو میزارم من اینطوری استفاده میکنم بدون هیچمشکلی راحت 350 تا رکورد و برام میگیره
Sub JobDone(job1 As HttpJob)
If job1.Success Then
If job1.JobName="dl" Then
Dim parser As JSONParser
parser.Initialize(job1.GetString)
Dim lst As List
lst = parser.NextArray
For Each m As Map In lst
l1.Add(m.Get("title"))
l2.Add(m.Get("text"))
l3.Add(m.Get("imgname"))
l4.Add("click me")
Next
ad.Initialize(ad.Layouts.LAYOUT_BUTTON_CENTER,l1,l2,l3,l4).ToGridView(aria)
End If
End If
End Sub
من هنوز یاد نگرفتم چطوری این کدارو بزارم (بالای ادیتور علامت <> رو بزنین و کد رو وارد کنین و افزودن به مطلب رو بزنین)