Shell   25-05-2023, 22:25
#1
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:

Código:
Private pOff As New Picture(24, 24)
Private pOn As New Picture(24, 24)

Public Sub Form_Open()
 
  Me.Title = "CheckBox en TableView"
  Paint.Begin(pOff)
  Style.PaintCheck(0, 0, 24, 24, False)
  Paint.End
 
  Paint.Begin(pon)
  Style.PaintCheck(0, 0, 24, 24, True)
  Paint.End
 
  TableView1.Columns.Count = 1
  TableView1.Columns[0].Title = "Seleccionado"
  TableView1.Columns[0].Alignment = Align.Center
  TableView1.Header = GridView.Both
 
  For c As Integer = 0 To 5
    Inc TableView1.Rows.Count
    TableView1[TableView1.Rows.Max, 0].Picture = pOff
  Next
 
  TableView1.Columns[0].Width = -1
 
End

Public Sub TableView1_Click()
 
  If TableView1.Column = 0 Then    
    TableView1.Current.Picture = IIf(estaseleccionada(TableView1.Current), poff, pOn)
  Endif
 
End

Public Function estaseleccionada(celda As _GridView_Cell) As Boolean  
  Return IIf(celda.Picture = pOn, True, False)  
End

Public Sub btnContar_Click()

  For c As Integer = 0 To TableView1.Rows.Max
    If estaseleccionada(TableView1[c, 0]) Then Print "Fila " & Str(c + 1) & " seleccionada"
  Next

End

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
Archivos adjuntos
.gz
CheckBoxEnTableView-0.0.1.tar.gz (Tamaño: 12.26 KB Descargas: 1)

"El conocimiento es la mejor inversión que se puede hacer" - Abraham Lincoln
vuott   26-05-2023, 01:00
#2
...sugeriría tambien esta página del Wiki italiano:

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

« Los horizontes perdidos nunca regresan. » (F. Battiato, 1983)

« Las ondas nunca regresan. » (Genesis: Ripples, 1976)

« Vita non suavis esse potest, nec Mors amara. »  (...vuott)
Shell   26-05-2023, 14:19
#3
(26-05-2023, 01:00)vuott escribió: ...sugeriría tambien esta página del Wiki italiano:

Grazie mille.

"El conocimiento es la mejor inversión que se puede hacer" - Abraham Lincoln
vuott   26-05-2023, 16:35
#4
Prego, non c'è di che, illustre Console del popolo romano.

« Los horizontes perdidos nunca regresan. » (F. Battiato, 1983)

« Las ondas nunca regresan. » (Genesis: Ripples, 1976)

« Vita non suavis esse potest, nec Mors amara. »  (...vuott)
Shell   27-05-2023, 11:28
#5
(26-05-2023, 16:35)vuott escribió: Prego, non c'è di che, illustre Console del popolo romano.

Smile

"El conocimiento es la mejor inversión que se puede hacer" - Abraham Lincoln
  
Usuarios navegando en este tema: 2 invitado(s)
Powered By MyBB, © 2002-2024 MyBB Group.
Made with by Curves UI.