سلام دوستان من در قسمت اکتیویتی خودم اومدم یک فهرست برای یک کتاب طراحی کردم.... که یک عکس ستاره هم جلوش هست برای روشن شدن و نشون دادن این که در علاقه مندی ها هست اومدم یک پنل و یک لیبل و یک عکس ستاره تعریف کردم و این رو در یک اسکلرویو اجرا کردم الان میخام این رو با استفاده از کتابخانه فراخانی کوتاه تر کنم ولی گیج شدم !!! قسمت کد اکتیویتی رو قرار میدم دوستان اگر تونستند برام با کد فراخانی سه بازنویسی کنند ممنون میشم
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("fehrest")
ScrollView1.Initialize(2000dip)
Activity.AddView(ScrollView1,0%x,15%y,100%x,90%y)
sql1.Initialize(File.DirInternal,"100it.db",False)
Cur1=sql1.ExecQuery("SELECT * From tbl")
For i=0 To Cur1.RowCount-1
Cur1.Position=i
Dim p As Panel
p.Initialize("p")
ScrollView1.Panel.AddView(p,7%x,ertefa,86%x,60%Y)
ertefa=ertefa+9.5%y
p.LoadLayout("layoutpanelfehrest")
img1.Tag = i
Label5.Tag = i
Label5.Text = Cur1.GetString("name")
Label5.TextColor = Colors.RGB(70,255,240)
If Activity.Width <= 600 Then
Label5.TextSize = 18
Else If Activity.Width > 600 And Activity.Width <= 800 Then
Label5.TextSize = 20
Else If Activity.Width > 800 And Activity.Width <= 1000 Then
Label5.TextSize = 22
Else If Activity.Width > 1000 Then
Label5.TextSize = 24
End If
If Cur1.GetInt("fave") = 1 Then
img1.Bitmap = LoadBitmap(File.DirAssets,"ic_menu_sta2.png")
Else
img1.Bitmap = LoadBitmap(File.DirAssets,"ic_menu_star.png")
End If
ScrollView1.Panel.Height=ertefa
Next