Comunidad Gambas-es

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