请教能否在msflexgrid控件中用复选框的形式

Question

找了好久,发现msflexgrid控件不能用复选框的形式处理显视数据,请教有什么方法使msflexgrid能够使用复选框,谢谢!!!!

Answer 1

Private Sub Form_Load()
MSFlexGrid1.Cols = 10
MSFlexGrid1.Rows = 10
MSFlexGrid1.FixedCols = 0
MSFlexGrid1.FixedRows = 0
MSFlexGrid1.SelectionMode = flexSelectionByRow
End SubPrivate Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
'On Error GoTo Err_Proc
    Dim intCurrCol      As Long
    intCurrCol = MSFlexGrid1.Col
    '单击选择或不选择
     If MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 0) = "√" Then
        MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 0) = ""
        '改变行颜色
        For i_Col = 0 To MSFlexGrid1.Cols - 1
            MSFlexGrid1.Col = i_Col
            MSFlexGrid1.CellBackColor = vbWhite
        Next i_Col
        
    Else
        MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 0) = "√"
        '改变行颜色
        For i_Col = 0 To MSFlexGrid1.Cols - 1
            MSFlexGrid1.Col = i_Col
            MSFlexGrid1.CellBackColor = &H80C0FF
        Next i_Col
        
    End If
    MSFlexGrid1.Col = intCurrCol
    Exit Sub
End Sub

Answer 2

对某单元格定位,只要改变MSFlexGrid1.text就行了.
至于它的颜色也就是设置CellBackColor属性