如何将flexgrid列设置为复选框列

Question

我有一个包含3列的flexgid。我需要将第一列设为复选框列，以便用户可以在那里进行检查和取消选中。我需要检查其他列值。 `MSFlexGridBrg.Width =＆＃34; 3200＆＃34;     对于Bea = 1到NbBearg         MSFlexGridBrg.Rows = NbBearg + 1          MSFlexGridBrg.Cols = 3

     'MSFlexGridBrg.CellFontName = "Wingdings"
    MSFlexGridBrg.TextMatrix(0, 0) = "Select"
    If MainUnitIn Then
            MSFlexGridBrg.TextMatrix(0, 2) = "Cu (N)"
    Else
            MSFlexGridBrg.TextMatrix(0, 2) = "Cu (lbf)"
    End If

     MSFlexGridBrg.Row = 1
    MSFlexGridBrg.col = 1
    MSFlexGridBrg.TextMatrix(0, 1) = "Bearing No."
        MSFlexGridBrg.Row = Bea
        MSFlexGridBrg.Text = Bea & ". "

        MSFlexGridBrg.col = 1
        MSFlexGridBrg.TextMatrix(MSFlexGridBrg.Row, 2) = Cu_Value_Estimate(Bea)
Next`

输出附加为图像。我希望名为Select的列作为Checkbox列。

Answer 1

您不能在当前的第一列中执行此操作，因为它是一个不允许编辑的固定列。在格式化循环中添加一个新列（，在代码示例中没有明确显示，但我看到底部有 next ）使用标准格式代码：

   If myBooleanVar = True Then  
       MSFlexGridBrg.TextMatrix(i, 0) = "Yes"  
   Else  
       MSFlexGridBrg.TextMatrix(i, 0) = "No"  
   End If 

如果您需要使用列的第一个单元格来选择所有行，您可以使用MSFlexGridBrg_Click()，然后检查MSFlexGridBrg.MouseCol = -1和MSFlexGridBrg.MouseRow = -1 - 但是复选框赢了“永远不会出现。