用于VB6 DataGrid的复选框

Question

如何为Vb6数据网格添加Checkbox，如图像。

Answer 1

对于MSFlexGrid控件，我在列中使用已选中和未选中的图像。

添加两个PictureBox控件，每个图像一个，并使Visible属性为false。加载网格数据时，您可以根据是否需要检查每张图片来设置：

With MSFlexGrid1
   .Col = 1
   If myCol1Bool Then
      Set .CellPicture = picChecked.Picture
   Else
      Set .CellPicture = picUnChecked.Picture
   End If
   .Col = 2
   If myCol2Bool Then
      Set .CellPicture = picChecked.Picture
   Else
      Set .CellPicture = picUnChecked.Picture
   End If
End With

如果可以编辑，您可以在点击时切换检查状态：

Private Sub MSFlexGrid1_Click()
    If (MSFlexGrid1.Col <> 1 And MSFlexGrid1.Col <> 2) Or MSFlexGrid1.Row < 1 Then Exit Sub

    If MSFlexGrid1.CellPicture = picChecked Then
        Set MSFlexGrid1.CellPicture = picUnchecked
    Else
        Set MSFlexGrid1.CellPicture = picChecked
    End If
End Sub

如需完整示例，请查看vb-helper.com。