自己先顶一下

vaSpread控件 没听说过  帮你顶

Private Sub Command1_Click()
    
    ' 增加一列
    vaSpread1.MaxCols = vaSpread1.MaxCols + 1
    
    ' 设置列属性
    vaSpread1.Col = vaSpread1.MaxCols
    vaSpread1.Row = -1
    vaSpread1.CellType = CellTypeCheckBox
    vaSpread1.TypeCheckCenter = True
    
End Sub

Private 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

帮你顶

我也想了解,但是你的这控件在何处下载的?可否传一份给我? whlucky@21cn.com

UP