Cómo usar el control listview para establecer el color de fondo de la línea en VB

Acabo de escribir uno porque lo necesito yo mismo... Pero, para ser honesto, la vista de lista tiene un efecto de selección, que debería cumplir con sus requisitos:

Opción explícita

privado WithEvents BC As PictureBox

Subcomando privado 1_Click()

Llamar a SetLineBackColor(vista de lista 1, 3 y HE0E0E0)

Conector final

Subconjunto público linebackcolor (LV es listview, lvbc es largo, lvbc es largo)' es el nombre de listview, cuya línea es el color de fondo.

Lu. Parent . ScaleMode = vbTwips

Si bc no es nada, entonces

Establezca bc = control. add("VB.PictureBox", "picbg")

Terminará si...

Usa bc

. Visible = Verdadero

. Color de fondo = lv. Color de fondo

. ScaleMode = vbTwips

. BorderStyle = vbBSNone

. AutoRedraw = Verdadero

. visible = falso

. Ancho = Lv. Ancho

. Altura = Nv. elemento de la lista (1). Altura* (LvLineCount + 1)

. altura de escala = recuento de líneas lv+1

. Ancho de escala = 1

. DrawWidth = 1

Termina en

BC. Fila (0, LvLineCount - 1) - (1, LvLineCount), LVBC, BF

LV. imagen = antes de Cristo. Imagen

Conector final