答案 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。