Comunidad Gambas-es
Como añadir un checkbox a un TableView - Versión para impresión

+- Comunidad Gambas-es (https://gambas-es.org)
+-- Foro: Gambas (https://gambas-es.org/forumdisplay.php?fid=3)
+--- Foro: General (https://gambas-es.org/forumdisplay.php?fid=4)
+--- Tema: Como añadir un checkbox a un TableView (/showthread.php?tid=1374)


Como añadir un checkbox a un TableView - Shell - 25-05-2023

Buenas!.

No sé si conocen la clase Style, pues con esta se crea el dibujo del checkbox.  Y más.

Style:

This class is a set of properties that return informations about the current widget style.

Clase Style

En el foro GambasOne, encontré la solución y mejoré un poco el código de BruceSteers. How to add checkbox or switch button column to tableview.
Mostrando el ejemplo esto. Lo utilicé para el traductor de los comentarios.

[Imagen: 9giMP8o.png]

Y este es el código:

GAMBAS
  1. Private pOff As New Picture(24, 24)
  2. Private pOn As New Picture(24, 24)
  3.  
  4. Public Sub Form_Open()
  5.  
  6.   Me.Title = "CheckBox en TableView"
  7.   Paint.Begin(pOff)
  8.   Style.PaintCheck(0, 0, 24, 24, False)
  9.   Paint.End
  10.  
  11.   Paint.Begin(pon)
  12.   Style.PaintCheck(0, 0, 24, 24, True)
  13.   Paint.End
  14.  
  15.   TableView1.Columns.Count = 1
  16.   TableView1.Columns[0].Title = "Seleccionado"
  17.   TableView1.Columns[0].Alignment = Align.Center
  18.   TableView1.Header = GridView.Both
  19.  
  20.   For c As Integer = 0 To 5
  21.     Inc TableView1.Rows.Count
  22.     TableView1[TableView1.Rows.Max, 0].Picture = pOff
  23.   Next
  24.  
  25.   TableView1.Columns[0].Width = -1
  26.  
  28.  
  29. Public Sub TableView1_Click()
  30.  
  31.   If TableView1.Column = 0 Then    
  32.     TableView1.Current.Picture = IIf(estaseleccionada(TableView1.Current), poff, pOn)
  34.  
  36.  
  37. Public Function estaseleccionada(celda As _GridView_Cell) As Boolean  
  38.   Return IIf(celda.Picture = pOn, True, False)  
  40.  
  41. Public Sub btnContar_Click()
  42.  
  43.   For c As Integer = 0 To TableView1.Rows.Max
  44.     If estaseleccionada(TableView1[c, 0]) Then Print "Fila " & Str(c + 1) & " seleccionada"
  45.   Next
  46.  



Comenten si lo desean sobre la clase Sytle. Toda información es poca.
No sabía que se le podía dar las dimensiones así a un objeto Picture.

Saludos

RE: Como añadir un checkbox a un TableView - vuott - 26-05-2023

...sugeriría tambien esta página del Wiki italiano:

   https://www.gambas-it.org/wiki/index.php/Inserire_un_oggetto_in_una_cella_di_una_TableView

RE: Como añadir un checkbox a un TableView - Shell - 26-05-2023

(26-05-2023, 01:00)vuott escribió:  ...sugeriría tambien esta página del Wiki italiano:

Grazie mille.

RE: Como añadir un checkbox a un TableView - vuott - 26-05-2023

Prego, non c'è di che, illustre Console del popolo romano.

RE: Como añadir un checkbox a un TableView - Shell - 27-05-2023

(26-05-2023, 16:35)vuott escribió:  Prego, non c'è di che, illustre Console del popolo romano.

Smile