[VB6] Aggiungere in una Listview una barra di riempimento

[Alexinfa]

Scusa Boolean da quel che ho capito tu hai:

posto la pitcure nalla lista immage

questi non so a che servono :

ListView1.View = lvwReport
ListView1.HideSelection = False
ListView1.FullRowSelect = True

e nel timer hai creato un ciclo for che scandisce le varie righe e controlli se la barra si e' riempita tutta o meno.
Nel caso in cui si è tutta riempita la colori di verde:

Picture1.BackColor = vbGreen

poi la riaggiungi nella lista immage

ImageList1.ListImages.Add , , Picture1.Image

e la metti nella listview:

Set ListView1.SmallIcons = ImageList1

nel caso in cui non e' riempita tutta....fai un bel po' di cose che non essendo un grande esperto non le capisco, cmq usi il tag per memorizzare il riempimento della barra, poi..

questo probabilmente per normalizzare a 100 la grandezza della barra:

X = (Picture1.ScaleWidth * BarW) / 100

poi cancelli la picture e la colori:

Picture1.Cls
Picture1.BackColor = RGB(200, 200, 200)


e gli definisci la linea in base alla grandezza X normalizzata:

Picture1.Line (0, 0)-(X, Picture1.ScaleHeight), vbRed, BF

(non so BF cosa sia)

poi la riaggiungi nella lista immage

ImageList1.ListImages.Add , , Picture1.Image

e poi metti l'immagine che hai memorizzato nella listimmage nella listview:

Set ListView1.SmallIcons = ImageList1

il resto lo fai per controllare se il dl e' terminato.

Cmq grosso modo e' questo il ragionamento che hai fatto.

Puoi confermarmi che grossomodo ho capito il sorgente e puoi spiegarmi se sbaglio in qualcosa?

grazie in anticipo per la risposta.

[Boolean]

si, in sostanza è questo quello che faccio, hai interpretato bene il sorgente...

ListView1.View = lvwReport
questo imposta la visualizzazione stile "dettagli" ovvero tabulare a colonne

ListView1.HideSelection = False
consente alla listview, di mantenere visivamene selezionato un item, anche se il focus non è sulla listview

Picture1.Line (0, 0)-(X, Picture1.ScaleHeight), vbRed, BF ListView1.FullRowSelect = True[/B]
permette la selezione dell'intera riga della listview, e non solo della prima colonna.

Picture1.Line (0, 0)-(X, Picture1.ScaleHeight), vbRed, BF
il BF sta per BoxFill, in sostanza disegna un rettangolo definito utilizzando le coordinate degli angoli superiore sinistro e inferiore destro, e lo colora con il colore specificato, in questo caso, vbRed.

se hai ulteriori dubbi chiedi pure

Boolean