weblistbox cell.picture non riesco a farlo funzionare

International Italiano
1

ciao a tutti,
non riesco a mettere una png nella cella della listbox, mi d sempre nilobjectexception con codice 0 e reason vuota…

questo il codice, la png viene trovate ma nella istruzione LstClientiProdotti.CellPicture(LstClientiProdotti.LastIndex,4)=p va in errore…

dove sta il problema?

While Not rs.EOF
// vediamo se devo cambiare il gruppo ed inserire l'intestazione
if rs.IdxField(4).StringValue.trim<> headerfamiglia or rs.IdxField(6).StringValue.trim <> headergrumer then
  headerfamiglia=rs.IdxField(4).StringValue.trim
  headergrumer=rs.IdxField(6).StringValue.trim
  LstClientiProdotti.AddRow(headerfamiglia,headergrumer,"","","")
  // mettiamo lo stile giusto
  LstClientiProdotti.cellstyle(LstClientiProdotti.LastIndex,0)=StyleHeaderFamGru
  LstClientiProdotti.cellstyle(LstClientiProdotti.LastIndex,1)=StyleHeaderFamGru
  LstClientiProdotti.cellstyle(LstClientiProdotti.LastIndex,2)=StyleHeaderFamGru
  LstClientiProdotti.cellstyle(LstClientiProdotti.LastIndex,3)=StyleHeaderFamGru
  LstClientiProdotti.cellstyle(LstClientiProdotti.LastIndex,4)=StyleHeaderFamGru
end if
								LstClientiProdotti.AddRow(rs.IdxField(1).StringValue,rs.IdxField(2).StringValue,rs.IdxField(3).StringValue,rs.IdxField(7).StringValue,"")
// mettiamo la giacenza
Dim img As FolderItem
if DebugBuild then
  img=GetFolderItem("C:\
csb2b\\img\\trafficlightgreen.png")
else
  img=GetFolderItem("\\img\\trafficlightgreen.png")
end if
								
if img.Exists then
  dim p as picture = picture.Open(img)
  LstClientiProdotti.CellPicture(LstClientiProdotti.LastIndex,4)=p
end if

......
2

Ciao Ciro,
il metodo CellPicture richiede una WebPicture e non una picture.
E’ inoltre necessario che la WebPicture sia accessibile quando, in un secondo momento, il browser richiedera’ l’immagine all’applicazione.
In pratica non devi dichiarare la webpicture come una variabile locale ad un metodo o, come nel tuo caso, interno ad una istruzione If.

Nel tuo caso, ad esempio, potresti dichiarare e creare la webpicture all’interno del metodo ed assegnarla alla proprieta’ CellTag della cella stessa in modo che la webpicture non scompaia all’uscita del metodo.

Saluti.