TableView con Imagenes

En esta oportunidad voy a agregar un formulario mas al proyecto anterior donde mostrare una tabla con imagenes:

Al momento de ejecutar la aplicacion tendremos algo como esto:

El codigo para lograr esto es el siguiente:

PRIVATE checked AS Picture
PRIVATE unchecked AS Picture

PUBLIC SUB Form_Open()

	DIM j AS Integer
	DIM k AS Integer
	TableView1.Columns.Count = 3
	TableView1.Columns[0].Text = "Mes"
	TableView1.Columns[0].Width = 100
	TableView1.Columns[1].Text = "Compra"
	TableView1.Columns[1].Width = 70
	TableView1.Columns[2].Text = "Venta"
	TableView1.Columns[2].Width = 70
	TableView1.Rows.Count = 12
	'Cargamos las imagenes en los objetos Picture
	checked = picture["tick.png"]
	unchecked = picture["notick.png"]
	'Establecemos en la columna 0 los meses del año
	TableView1[0, 0].text = "Enero"
	TableView1[1, 0].text = "Febrero"
	TableView1[2, 0].text = "Marzo"
	TableView1[3, 0].text = "Abril"
	TableView1[4, 0].text = "Mayo"
	TableView1[5, 0].text = "Junio"
	TableView1[6, 0].text = "Julio"
	TableView1[7, 0].text = "Agosto"
	TableView1[8, 0].text = "Setiembre"
	TableView1[9, 0].text = "Octubre"
	TableView1[10, 0].text = "Noviembre"
	TableView1[11, 0].text = "Diciembre"
	'Con un for recorremos la tabla y marcamos los casilleros con la imagen unchecked
	FOR j = 0 TO 11
		FOR k = 1 TO 2
			TableView1[j, k].Picture = unchecked
			TableView1[j, k].Alignment = Align.Center
		NEXT
	NEXT

END

La idea es que podamos seleccionar con un check al dar click los cuadros de Compra y Venta para los meses mostrados, en realidad lo que cargamos en el cuadro son las imagenes de «tick.png» y «notick.png». Ponemos el codigo necesario en el evento click del TableView.

PUBLIC SUB TableView1_Click()

'Hacemos esto porque en la columna 0 tenemos los meses
IF TableView1.Column > 0 THEN
	IF TableView1[TableView1.Row, TableView1.Column].Picture = unchecked THEN
		TableView1[TableView1.Row, TableView1.Column].Picture = checked
	ELSE
		TableView1[TableView1.Row, TableView1.Column].Picture = unchecked
	END IF
END IF

END

Al hacer uso de la nueva funcion que hemos incorporado tenemos lo siguiente:

Espero que esto pueda ser de utilidad. Hasta la proxima.

«Hasta la victoria siempre»