Android Question CustomListView

[RUNO]

I want download image from web but if I put this code in createitem function

Dim j As HttpJob
            j.Initialize("", Me)
            j.Download("https://xxxxx.000webhostapp.com/picf/g.png")
            Wait For (j) JobDone(j As HttpJob)
            If j.Success Then
            ''''''''''

I got this error
Resumable subs return type must be ResumableSub (or none).

Can anyone help me?

 

[DonManfred]

[B4X] Resumable subs that return values (ResumableSub)

Remember that that a call to Sleep or Wait For in a resumable sub causes the code flow to return to the parent. Example: Sub Button1_Click Sum(1, 2) Log("after sum") End Sub Sub Sum(a As Int, b As Int) Sleep(100) 'this will cause the code flow to return to the parent Log(a + b) End Sub...

www.b4x.com

 

[RUNO]

[B4X] Resumable subs that return values (ResumableSub)

Remember that that a call to Sleep or Wait For in a resumable sub causes the code flow to return to the parent. Example: Sub Button1_Click Sum(1, 2) Log("after sum") End Sub Sub Sum(a As Int, b As Int) Sleep(100) 'this will cause the code flow to return to the parent Log(a + b) End Sub...

www.b4x.com

In createitem function return panel not value.
How I fixed?

 

[RUNO]

My project is paused.
I want to download data from the database and view them with pictures using customlistview, does anyone help?

 

[kisoft]

Hi

xCustomListView with Four Columns of Imageviews and many Rows

I wanted to accomplish what Erel did in the below link in post #3, but with 4 or multiple columns of imageviews not one imageview column. https://www.b4x.com/android/forum/threads/applying-lazy-loading-to-xcustomlistview-with-imageviews-bitmap-files.101299/ I have a list of bitmap files to show...

www.b4x.com

 

[RUNO]

Hi

xCustomListView with Four Columns of Imageviews and many Rows

I wanted to accomplish what Erel did in the below link in post #3, but with 4 or multiple columns of imageviews not one imageview column. https://www.b4x.com/android/forum/threads/applying-lazy-loading-to-xcustomlistview-with-imageviews-bitmap-files.101299/ I have a list of bitmap files to show...

www.b4x.com

Thanks, but my images from website not from device.
Where I put the code of downloading images?
If I put inside CreateItem function, I got mistak like first post

 

[LucaMs]

To me your code seems correct, so maybe that error message comes from a different piece of code or that code is inside a resumable routine which does not return a Resumable.

 

[mangojack]

This might give you an Idea ... The code below has not been tested !

adaption of this code here .. https://www.b4x.com/android/forum/threads/b4x-okhttputils2-with-wait-For.79345/#content
... and using the xCustomListview example.

Sub DownloadImage(Link As String)
    Dim j As HttpJob
    j.Initialize("", Me)
    j.Download(Link)
    Wait For (j) JobDone(j As HttpJob)
    If j.Success Then
        clv.Add(CreateListItem(j.GetBitmap, clv.AsView.Width, 130dip), "MyReturnValue")
    End If
    j.Release
End Sub

Sub CreateListItem(bmp As Bitmap, Width As Int, Height As Int) As Panel
    Dim p As B4XView = xui.CreatePanel("")
    p.SetLayoutAnimated(0, 0, 0, Width, Height)
    p.LoadLayout("CellItem")
    ImageView1.Bitmap = bmp
    Return p
End Sub

Edit ... I presume you have an ImageView (ImageView1) included in your CLV RowItems layout.

 

[RUNO]

This might give you an Idea ... The code below has not been tested !

adaption of this code here .. https://www.b4x.com/android/forum/threads/b4x-okhttputils2-with-wait-For.79345/#content
... and using the xCustomListview example.

Sub DownloadImage(Link As String)
    Dim j As HttpJob
    j.Initialize("", Me)
    j.Download(Link)
    Wait For (j) JobDone(j As HttpJob)
    If j.Success Then
        clv.Add(CreateListItem(j.GetBitmap, clv.AsView.Width, 130dip), "MyReturnValue")
    End If
    j.Release
End Sub

Sub CreateListItem(bmp As Bitmap, Width As Int, Height As Int) As Panel
    Dim p As B4XView = xui.CreatePanel("")
    p.SetLayoutAnimated(0, 0, 0, Width, Height)
    p.LoadLayout("CellItem")
    ImageView1.Bitmap = bmp
    Return p
End Sub

Edit ... I presume you have an ImageView (ImageView1) included in your CLV RowItems layout.

Thanks @mangojack