weblistbox cell.picture non riesco a farlo funzionare

  1. 4 days ago
    Edited 4 days ago by Ciro M

    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:\ncsb2b\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. Maurizio R

    Mar 20 Pre-Release Testers, Xojo Pro
    Edited 4 days ago by Maurizio R

    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.

or Sign Up to reply!