Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("lprodileazalist")
ht1.Initialize("ht1",Me)
ht1.Download("http://hamedafrough.ir/misaq/tblusers.php")
End Sub
Sub jobdone1(job As HttpJob)
If job.Success=True Then
j.Initialize(job.GetString)
Dim list As List=j.NextArray
For i=0 To list.Size-1
Dim map1 As Map=list.Get(i)
Dim p As Panel
p.Initialize("p")
slvaza.Panel.AddView(p,0,top,95%x,26%y)
p.LoadLayout("lprofileazalist2")
p.Tag=i
top=top+15%y+0%x
lblid.Text=map1.Get("ID")
lblnam.Text=map1.Get("nam")
lblsemat.Text=map1.Get("semat")
lblkod.Text=map1.Get("kod")
Next
slvaza.Panel.Height=top
Else
Msgbox("","خطا در برقراری ارتباط")
End If
ht1.Release
End Sub
سوال
hamedafrough 5
سلام دوستان
من یه مولتی پنل آنلاین ساختم که وقتی اجرا می کنم یه صفحه سفید بهم میده و اطلاعات رو نمایش نمیده
ممنون میشم کمکم کنید بگید ایراد کدهام کجاست
متشکرم
Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("lprodileazalist") ht1.Initialize("ht1",Me) ht1.Download("http://hamedafrough.ir/misaq/tblusers.php") End Sub
Sub jobdone1(job As HttpJob) If job.Success=True Then j.Initialize(job.GetString) Dim list As List=j.NextArray For i=0 To list.Size-1 Dim map1 As Map=list.Get(i) Dim p As Panel p.Initialize("p") slvaza.Panel.AddView(p,0,top,95%x,26%y) p.LoadLayout("lprofileazalist2") p.Tag=i top=top+15%y+0%x lblid.Text=map1.Get("ID") lblnam.Text=map1.Get("nam") lblsemat.Text=map1.Get("semat") lblkod.Text=map1.Get("kod") Next slvaza.Panel.Height=top Else Msgbox("","خطا در برقراری ارتباط") End If ht1.Release End Sub
تو قسمت لاگهای بیسیک هم دو گزینه اخرش ایناس:
*** Service (httputils2service) Create ***
** Service (httputils2service) Start **
لینک ارسال
به اشتراک گذاری در سایت های دیگر
4 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.