用于VB6 DataGrid的复选框

时间:2016-07-15 04:51:32

标签: datagrid vb6

Image

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

1 个答案:

答案 0 :(得分:3)

对于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