Comunidad Gambas-es

Versión completa: Como añadir un checkbox a un TableView
Actualmente estas viendo una versión simplificada de nuestro contenido. Ver la versión completa con el formato correcto.
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.  
  27.  
  28. Public Sub TableView1_Click()
  29.  
  30.   If TableView1.Column = 0 Then    
  31.     TableView1.Current.Picture = IIf(estaseleccionada(TableView1.Current), poff, pOn)
  32.  
  33.  
  34. Public Function estaseleccionada(celda As _GridView_Cell) As Boolean  
  35.   Return IIf(celda.Picture = pOn, True, False)  
  36.  
  37. Public Sub btnContar_Click()
  38.  
  39.   For c As Integer = 0 To TableView1.Rows.Max
  40.     If estaseleccionada(TableView1[c, 0]) Then Print "Fila " & Str(c + 1) & " seleccionada"
  41.   Next
  42.  



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
...sugeriría tambien esta página del Wiki italiano:

   https://www.gambas-it.org/wiki/index.php..._TableView
(26-05-2023, 01:00)vuott escribió: [ -> ]...sugeriría tambien esta página del Wiki italiano:

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

Smile