Codice ean13 in listview

5 Risposte

• O

  oregon

  Super Famoso

  Iscritto da

  nov, 2011

  Messaggi:

  21341

  Re: Codice ean13 in listview

  21 mar 2021, 20:34

  Potresti provare con la proprietà ReportIcon di ListSubItems ma le immagini devono stare in una ImageList e devono essere delle dimensioni massime consentite (la vedo dura).
  
  In alternativa, devi disegnare tu la tua Listview (owner draw) ma non è banale
  Vedi questo progetto
  
  https://www.codeproject.com/Articles/13006/Extended-ListView
• L

  luca90

  Utente Attivo

  Iscritto da

  ott, 2012

  Messaggi:

  96

  Re: Codice ean13 in listview

  21 mar 2021, 20:52

  oregon ha scritto:

  ---

  Potresti provare con la proprietà ReportIcon di ListSubItems ma le immagini devono stare in una ImageList e devono essere delle dimensioni massime consentite (la vedo dura).
  
  In alternativa, devi disegnare tu la tua Listview (owner draw) ma non è banale
  Vedi questo progetto
  
  https://www.codeproject.com/Articles/13006/Extended-ListView

  grazie, ma è in vbnet, io lavoro in vb6....
• L

  luca90

  Utente Attivo

  Iscritto da

  ott, 2012

  Messaggi:

  96

  Re: Codice ean13 in listview

  21 mar 2021, 20:58

  luca90 ha scritto:

  ---

  oregon ha scritto:

  ---

  Potresti provare con la proprietà ReportIcon di ListSubItems ma le immagini devono stare in una ImageList e devono essere delle dimensioni massime consentite (la vedo dura).
  
  In alternativa, devi disegnare tu la tua Listview (owner draw) ma non è banale
  Vedi questo progetto
  
  https://www.codeproject.com/Articles/13006/Extended-ListView

  grazie, ma è in vbnet, io lavoro in vb6....

  in ogni caso come si possono creano le icone con il codice grafico?
• O

  oregon

  Super Famoso

  Iscritto da

  nov, 2011

  Messaggi:

  21341

  Re: Codice ean13 in listview

  21 mar 2021, 21:32

  Sì era per vbnet (e questo ti dice tanto sul fatto che il vb6 sia veramente preistorico).
  
  Comunque dovresti lavorare con il sublassing, vedi
  
  https://www.freevbcode.com/ShowCode.asp?ID=717
  
  Ma è realmente complicato.
  
  Forse è più comodo impostare delle picturebox sulla listview e spostarle in modo opporruno
• 

  Rubik

  Utente Attivo

  Iscritto da

  ago, 2020

  Messaggi:

  440

  Re: Codice ean13 in listview

  23 mar 2021, 00:05

  VB6 da la possibilità di inserire immagini nelle ListView, tramite la proprietà ReportIcon, le immagini possono essere caricate in una ImageList sia in progettazione che in runtime, come aveva detto Oregon all'inizio, ma non è difficile.
  
  
  

  

  
  

  
  Private Sub Form_Load()
      Me.ScaleMode = vbPixels ' misura in pixel
  
      ListView1.SmallIcons = ImageList1 ' dove sono le immagini 110x60, puoi scegliere qualsiasi dimensione
                                        ' ne ho inserite 10 da progettazione, le ho numerate per identificarle
      ListView1.View = lvwReport
      ListView1.ColumnHeaders.Add , , "Dummy", 0 ' colonna 0, nascosta evita l'edit
      ListView1.ColumnHeaders.Add , , "Articolo" ' Header colonna 1
      ListView1.ColumnHeaders.Add , , "Codice"   ' Header colonna 2
      ListView1.ColumnHeaders.Item(3).Alignment = lvwColumnCenter ' allineamento colonna 2
      ListView1.ColumnHeaders.Add , , "Barcode", ImageList1.ImageWidth ' Header colonna 3, stessa larghezza delle immagini
      For k = 1 To 10 ' aggiungo 10 righe con tre colonne
          Set itm = ListView1.ListItems.Add(, , "") ' per aggiungere nuovo item
          itm.SubItems(1) = "Articolo n. " & k ' colonna 1
          itm.SubItems(2) = CStr(k * 1333) ' colonna 2
          itm.SubItems(3) = "" ' colonna 3, se si immette il testo va a destra dell'immagine
          itm.ListSubItems(3).ReportIcon = k ' colonna 3 immagine k
      Next
  End Sub
  

  
  Se ti servono ulteriori info, chiedi pure