Lista.Add(CreateListItem(bd, ElProd.Name, ElProd.Precio, Lista.AsView.Width, 120dip), ElProd.Code)
Lista.Add(CreateListItem(bd, ElProd2.Name, ElProd2.Precio, Lista.AsView.Width, 120dip), ElProd2.Code)
Lista.Add(CreateListItem(bd, ElProd3.Name, ElProd3.Precio, Lista.AsView.Width, 120dip), ElProd3.Code)
Sub CreateListItem(bmp As BitmapDrawable, name As String, prec As Double, Width As Int, Height As Int) As Panel
Dim p As B4XView = xui.CreatePanel("")
p.SetLayoutAnimated(0, 0, 0, Width, Height)
p.LoadLayout("CellItem")
lblDesc.Text=name
lblPrecio.Text="$ " & prec
imgFoto.Background=bmp
btnAdd.Text="AGREGAR"
btnAdd.Visible=Agregar
Return p
End Sub
Private Sub btnAdd_Click
Dim Index As Int = Lista.GetItemFromView(Sender)
end sub