Sub SuchErg
Dim iv As B4XView 'statt ImageView B4XView
Dim LB1,Lb2 As Label
Dim z As Int=0
Scv.Panel.Height = 100dip *Erg
Bitmaps.Initialize
For i = 0 To 10
LB1.Initialize("LB1")
LB1.Color=Colors.ARGB(255,71,179,80)
LB1.TextSize =20
Lb2.Initialize("LB1")
Lb2.Color=Colors.argb(255,236,218,137)
LB1.Text =modSQL.tListe.Get(z) ' diese Einträge kommen aus der DB und funktionieren
Lb2.Text=modSQL.tListe.Get(z+1)
LB1.Tag=modSQL.tListe.Get(z+2)
Lb2.Tag=LB1.Tag
iv.SetBitmap(xui.LoadBitmapResize(File.DirAssets,"Dummy.jpg", 200dip, 200dip)'1 Zeile code, mehr ist nicht nötig
' LEFT, TOP, WIDTH, HEIGHT
Scv.Panel.AddView(LB1, 4dip, i* 100dip, Scv.Width -5, 28dip)
Scv.Panel.AddView(iv, 4dip,29dip + i * 120dip, Scv.Width - 50dip, 120dip)
Scv.Panel.AddView(Lb2, 30dip, i *100dip+149dip,Scv.Width-5dip , 99dip)
z=z+3
Next
End Sub