Spanish Fondo de CLV

SetCLVBackground(clv, "background.png")
....
....

Sub SetCLVBackground(clv As CustomListView, imgPath As String)
    Dim bmp As B4XBitmap = LoadBitmap(File.DirAssets, imgPath)   ' image dans Files
    clv.AsView.SetBitmap(bmp)
End Sub

Public Sub SetCLVBackground(clv As CustomListView, FileName As String)
    Dim imv As B4XImageView = XUIViewsUtils.CreateB4XImageView
    imv.Bitmap = xui.LoadBitmap(File.DirAssets, FileName)
    imv.ResizeMode = "FILL"
    clv.AsView.AddView(imv.mBase, 0, 0, clv.AsView.Width, clv.AsView.Height)
    imv.mBase.SendToBack
    imv.Update
End Sub

Public Sub SetCLVBackground(clv As CustomListView, FileName As String, CornersRadius As Int)
    Dim imv As B4XImageView = XUIViewsUtils.CreateB4XImageView
    imv.Bitmap = xui.LoadBitmap(File.DirAssets, FileName)
    imv.ResizeMode = "FILL"
    imv.CornersRadius = CornersRadius
    clv.AsView.AddView(imv.mBase, 0, 0, clv.AsView.Width, clv.AsView.Height)
    imv.mBase.SendToBack
    imv.Update
End Sub