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”