Ho generato un piccolo codice per consentirmi di inserire una serie di Bitmap in una lista e successivamente popolare un Panel con una serie di Imageview contenenti le immagini inserite nella lista dei Bitmap.
Ho avuto molti problemi per passare il bitmap come parametro è assegnarlo a me una variabile, come vedete nella Sub Add, che ho rusolto con la Sub Add2. (Ma non so se è la soluzione più corretta)
Adesso ho problemi per passare dalla variabile Bitmap contenuta in una lista all'oggetto ImageView.
Vi allego il codice. Spero avrete suggerimenti.




il codice è approssimativo tanto per dare un idea.
Perché DrawAll va in errore su Bm.SetBackgroundImage(MyItem.Bmp)?
Devo usare di nuovo Canvas ?
Ho avuto molti problemi per passare il bitmap come parametro è assegnarlo a me una variabile, come vedete nella Sub Add, che ho rusolto con la Sub Add2. (Ma non so se è la soluzione più corretta)
Adesso ho problemi per passare dalla variabile Bitmap contenuta in una lista all'oggetto ImageView.
Vi allego il codice. Spero avrete suggerimenti.
B4X:
'Dichiarato in Global
type Item (Name as String, Bmp as Bitmap)
Dim L as list
Sub AddItem(Name as String, Bmp as Bitmap)
Dim NewItem as Item
NewItem.Name=Name
NewItem.Bmp=Bmp ' Genera Errore
L.Add(NewItem)
End Sub
Sub AddItem2(Name as String, Bmp as Bitmap)
Dim NewItem as Item
NewItem.Name=Name
Dim B2 as Bitmap
Dim Can as Canvas
Dim Rec1 as Rec
B2.InitializeMutable(40dip,40dip)
Can.Initialize2(B2)
Rec1.Initialize(0,0,40dip,40dip)
Can.DrawBitmap(Bmp,Rec1)
NewItem.Bmp=Can.Bitmap ' funziona
L.Add(NewItem)
End Sub
Sub DrawAll
Dim P as Panel
P.Initialize("")
Activity.AddView(P,0dip,0dip,40dip,100%y)
For I=0 L.Size-1
Dim MyItem as Item = L.Get(I)
Dim Bm as ImageView
P.AddView(Bm,0dip,i * 40dip, 40dip,40dip)
Bm.SetBackgroundImage(MyItem.Bmp) ' Va in errore
Next
End Sub
il codice è approssimativo tanto per dare un idea.
Perché DrawAll va in errore su Bm.SetBackgroundImage(MyItem.Bmp)?
Devo usare di nuovo Canvas ?
Last edited: