cur = query.ExecQuery("SELECT * FROM ofl")
For i=0 To cur.RowCount-1
cur.Position = i
Dim p As Panel
p.Initialize("p")
sv1.Panel.AddView(p,0,stop,100%x,100%y)
stop = stop + 35%y
p.LoadLayout("mp")
Label1.Text=cur.GetString("dastan")
sv1.Panel.Height = stop
Dim fa As Int
fa=cur.GetInt("fav")
If fa=0 Then
ImageView1.SetBackgroundImage(LoadBitmapSample(File.DirAssets,"booki2.png",100,100))
Else
ImageView1.SetBackgroundImage(LoadBitmapSample(File.DirAssets,"booki.png",100,100))
End If
Next
سوال
mr-edris 186
cur = query.ExecQuery("SELECT * FROM ofl") For i=0 To cur.RowCount-1 cur.Position = i Dim p As Panel p.Initialize("p") sv1.Panel.AddView(p,0,stop,100%x,100%y) stop = stop + 35%y p.LoadLayout("mp") Label1.Text=cur.GetString("dastan") sv1.Panel.Height = stop Dim fa As Int fa=cur.GetInt("fav") If fa=0 Then ImageView1.SetBackgroundImage(LoadBitmapSample(File.DirAssets,"booki2.png",100,100)) Else ImageView1.SetBackgroundImage(LoadBitmapSample(File.DirAssets,"booki.png",100,100)) End If Nextمشکل این کد چیه؟
لینک ارسال
به اشتراک گذاری در سایت های دیگر
4 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.