vaSpread 控件问题

Question

在vaSpread控件上增加一checkbox列，有checkAll复选框，点击后所有复选框都钩上，如何实现？

Answer 1

vaSpread控件 没听说过  帮你顶

Answer 2

Private Sub Command1_Click()
    
    ' 增加一列
    vaSpread1.MaxCols = vaSpread1.MaxCols + 1
    
    ' 设置列属性
    vaSpread1.Col = vaSpread1.MaxCols
    vaSpread1.Row = -1
    vaSpread1.CellType = CellTypeCheckBox
    vaSpread1.TypeCheckCenter = True
    
End SubPrivate Sub vaSpread1_ButtonClicked(ByVal Col As Long, ByVal Row As Long, ByVal ButtonDown As Integer)
    
    Static b    As Boolean
    
    If Not b Then
        
        b = True
        
        vaSpread1.Col = Col
        vaSpread1.Row = Row
        
        If vaSpread1.CellType = CellTypeCheckBox Then
            vaSpread1.SetText Col, -1, vaSpread1.Text
        End If
        
        b = False
        
    End If
    
End Sub

Answer 3

我也想了解,但是你的这控件在何处下载的?可否传一份给我? [email protected]