复选框datagridview

时间:2011-10-04 05:36:56

标签: vb.net datagridview checkbox

我的表单上有一个datagridview,我正在为自定义名称样式和过滤器图像呈现标题。

我想要的是:

  1. 要在第一个位置添加带有headercheckbox的checkbox列,而不是第0个索引。我希望它在-1。

  2. 在特定列添加一些复选框。

  3. 我能够将它们添加到想要的位置,但它没有刷新界面,我无法检查/取消选中它们。

    Dim indx As Int16 = -1
    
    Private Sub DataGridView1_CellPainting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellPaintingEventArgs) Handles DataGridView1.CellPainting
        tbIndex = 0 'mainTab.SelectedItem.Name.Substring(6)
        If e.ColumnIndex >= 0 AndAlso e.RowIndex = -1 Then
            If dic.ContainsKey(tbIndex) Then
                indx = dic.Item(tbIndex)
            Else
                indx = -1
            End If
    
    
            e.PaintBackground(e.ClipBounds, False)
    
            Dim pt As Point = e.CellBounds.Location
            Dim offset As Integer = (e.CellBounds.Width - 25)
    
            pt.X += offset
            pt.Y = 5
    
            If e.ColumnIndex = indx Then
                e.Graphics.DrawImage(My.Resources.SortDSC, pt.X, pt.Y, 20, 20)
            Else
                e.Graphics.DrawImage(My.Resources.SortASC, pt.X, pt.Y, 20, 20)
            End If
    
            Dim drawFormat As System.Drawing.StringFormat = New System.Drawing.StringFormat()
            drawFormat.FormatFlags = StringFormatFlags.NoFontFallback
    
           e.Graphics.DrawString(dgv(tbIndex).Columns(e.ColumnIndex).HeaderText, New Font("Georgia", 10), Brushes.DodgerBlue, pt.X - offset, pt.Y + 15, drawFormat)
            e.Handled = True
            e.Handled = True
        End If
    End Sub
    
    Private Sub DataGridView1_ColumnHeaderMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DataGridView1.ColumnHeaderMouseClick
            If indx = e.ColumnIndex.ToString Then
                indx = -1
            Else
                indx = e.ColumnIndex.ToString
            End If
    
            If Not dic.ContainsKey(tbIndex) Then
                dic.Add(tbIndex, indx)
            Else
                dic.Remove(tbIndex)
                dic.Add(tbIndex, indx)
            End If
        End Sub
    

    我想在运行时添加它们。

1 个答案:

答案 0 :(得分:0)

如果我错了,请纠正我,但我看到两个不同的问题:

  1. 使用复选框(以编程方式)创建列。 实现此目的的最简单方法是创建一个DataGridViewCheckBoxColumn()类型的列。

  2. 在行的开头之前移动此列 对于这个问题,我建议调查WPF而不是WinForms。 WPF为设计特定的布局和界面提供了更多功能。以下是MSDN的一个很好的例子:http://social.msdn.microsoft.com/Forums/en-US/a87fc1cb-4d2c-4252-a628-910c02b03adb/wpf-datagrid-with-multiple-row-selectioncheckbox-column-template