سلام من با استفاده از کد زیر برنامه رو کامپایل کردم اما نمیدونم چرا فقط عکس آخر دانلود میشه.
Sub Globals
Dim hg As HttpJob
Private ImageView1 As ImageView
Private Panel1 As Panel
Private ScrollView1 As ScrollView
Private Label1 As Label
Dim p As Panel
Dim ok As Int = 3%y
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout1")
hg.Initialize("hg",Me)
Dim milad() As String=Regex.Split("<br>", Main.mil)
For i = 0 To milad.Length-1
Dim joda() As String=Regex.Split("#",milad(i))
p.Initialize("p")
ScrollView1.Panel.AddView(p,0,ok,100%x,100%y)
ok = ok + 52%y
p.LoadLayout("Layout")
p.Tag=i
Label1.Text=joda(1)
hg.Download(joda(1))
ScrollView1.Panel.Height= ok
Next
End Sub
Sub jobdone ( job As HttpJob)
If job.Success = True Then
If job.JobName = "hg" Then
ImageView1.Bitmap = job.GetBitmap
End If
End If
End Sub
سوال
میلاد حائری 180
سلام من با استفاده از کد زیر برنامه رو کامپایل کردم اما نمیدونم چرا فقط عکس آخر دانلود میشه.
Sub Globals Dim hg As HttpJob Private ImageView1 As ImageView Private Panel1 As Panel Private ScrollView1 As ScrollView Private Label1 As Label Dim p As Panel Dim ok As Int = 3%y End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("Layout1") hg.Initialize("hg",Me) Dim milad() As String=Regex.Split("<br>", Main.mil) For i = 0 To milad.Length-1 Dim joda() As String=Regex.Split("#",milad(i)) p.Initialize("p") ScrollView1.Panel.AddView(p,0,ok,100%x,100%y) ok = ok + 52%y p.LoadLayout("Layout") p.Tag=i Label1.Text=joda(1) hg.Download(joda(1)) ScrollView1.Panel.Height= ok Next End Sub Sub jobdone ( job As HttpJob) If job.Success = True Then If job.JobName = "hg" Then ImageView1.Bitmap = job.GetBitmap End If End If End Subاینم عکسش
لینک ارسال
به اشتراک گذاری در سایت های دیگر
7 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.