سلام دوستان یه اپ دارم ک از دیتابیس انلاین یه سری اطلاعات میگیره و توی مولتی پنل تک ستونی نشون میده حالا میخوام همینو بگیرم توی سه تا ستون کدم اینه ":
Sub Globals
Private lblMultiTitle As Label
Private lblMultiText As Label
Private imgMulti As ImageView
Private sv As ScrollView
Dim downloader As HttpJob
Dim top As Int = 0
Dim list(10) As List
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("scroll")
For i=0 To 8
list(i).Initialize
Next
downloader.Initialize("dl",Me)
downloader.Download("http://www.appdroids.ir/amoozesh/show.php")
End Sub
Sub JobDone(job1 As HttpJob)
If job1.Success Then
If job1.JobName = "dl" Then
Dim parser As JSONParser
parser.Initialize(job1.GetString)
Dim root As List = parser.NextArray
For Each colroot As Map In root
Dim imgname As String = colroot.Get("imgname")
Dim text As String = colroot.Get("text")
Dim title As String = colroot.Get("title")
list(1).Add(imgname)
list(2).Add(text)
list(3).Add(title)
Next
For il =0 To list(2).Size-1
Dim p As Panel
p.Initialize("p")
p.Tag = il
sv.Panel.AddView(p,0,top,100%x,100%y)
top = top + 31%y
p.LoadLayout("items")
Dim dl As ImageDller
dl.Initialize
dl.Download(imgMulti,list(1).Get(il))
lblMultiTitle.Text= list(3).Get(il)
lblMultiText.Text = list(2).Get(il)
Next
sv.Panel.Height = top
End If
End If
End Sub
Sub Activity_Resume
End Sub
Sub p_Click
Dim mypanel As Panel
mypanel = Sender
' Msgbox("Text Is - > " & mypanel.Tag,"")
Log(list(3).Get(mypanel.Tag))
Log(list(2).Get(mypanel.Tag))
Log(list(1).Get(mypanel.Tag))
End Sub
سوال
mohammade79 127
سلام دوستان یه اپ دارم ک از دیتابیس انلاین یه سری اطلاعات میگیره و توی مولتی پنل تک ستونی نشون میده حالا میخوام همینو بگیرم توی سه تا ستون کدم اینه ":
Sub Globals Private lblMultiTitle As Label Private lblMultiText As Label Private imgMulti As ImageView Private sv As ScrollView Dim downloader As HttpJob Dim top As Int = 0 Dim list(10) As List End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("scroll") For i=0 To 8 list(i).Initialize Next downloader.Initialize("dl",Me) downloader.Download("http://www.appdroids.ir/amoozesh/show.php") End Sub Sub JobDone(job1 As HttpJob) If job1.Success Then If job1.JobName = "dl" Then Dim parser As JSONParser parser.Initialize(job1.GetString) Dim root As List = parser.NextArray For Each colroot As Map In root Dim imgname As String = colroot.Get("imgname") Dim text As String = colroot.Get("text") Dim title As String = colroot.Get("title") list(1).Add(imgname) list(2).Add(text) list(3).Add(title) Next For il =0 To list(2).Size-1 Dim p As Panel p.Initialize("p") p.Tag = il sv.Panel.AddView(p,0,top,100%x,100%y) top = top + 31%y p.LoadLayout("items") Dim dl As ImageDller dl.Initialize dl.Download(imgMulti,list(1).Get(il)) lblMultiTitle.Text= list(3).Get(il) lblMultiText.Text = list(2).Get(il) Next sv.Panel.Height = top End If End If End Sub Sub Activity_Resume End Sub Sub p_Click Dim mypanel As Panel mypanel = Sender ' Msgbox("Text Is - > " & mypanel.Tag,"") Log(list(3).Get(mypanel.Tag)) Log(list(2).Get(mypanel.Tag)) Log(list(1).Get(mypanel.Tag)) End Subلینک ارسال
به اشتراک گذاری در سایت های دیگر
5 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.