DataGridView设置复选框，滚动或列拖拽可以自动移动。

1.在工具栏拖拽一个Checkbox放到画面上。

2.做一个方法设置checkbox的位置。

Private Sub checkboxSet()
    '取得grid的指定列的位置。(参数：0是列数)
    Dim rect As System.Drawing.Rectangle = datagridview.GetCellDisplayRectangle(0, -1, True)

    '有可能列有文字，所以checkbox需要微调一下位置。
    rect.Offset(15, 35)

    '设置checkbox的位置。
    checkbox.Location = rect.Location
End Sub

3.在画面初期化(onload)时调用checkboxSet方法。

'设置checkbox
checkboxSet()

4.在Grid滚动事件调用checkboxSet方法。

Private Sub datagridview_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles datagridview.Scroll
    '设置checkbox
    checkboxSet()
End Sub

5.在Grid列宽度变更事件调用checkboxSet方法。

Private Sub datagridview_ColumnWidthChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewColumnEventArgs) Handles datagridview.ColumnWidthChanged
    '设置checkbox
    checkboxSet()
End Sub

如果资源学习了，可以点赞支持！